Sorry your browser is not supported!

a = 4
x = rnd(8) + 1
if x >= a then inc x

a = 4
b = 7
x = rnd(8) + 1
if x >= a then inc x
if a <> b and x >= b then inc x

#constant NUMBER_OF_NUMBERS     10
#constant NUMBER_TO_CHOOSE      5

dim Numbers(NUMBER_OF_NUMBERS-1) as integer

for i = 0 to NUMBER_OF_NUMBERS-1
    Numbers(i) = i + 1
next

do
    cls
    
    Top = array count(Numbers())
    
    for i = 1 to NUMBER_TO_CHOOSE
        Pick = rnd(Top)
        print Numbers(Pick)

        swap array items Numbers(), Pick, Top
        dec Top
    next
    
    wait key
loop

Randomize Timer()

Dim FactionArray(6)
Dim RandomNumber()

#Constant NumberWeDontWant = 4 ` This is the pretend number of the faction that is making the choice, it doesnt want to pick 4 because it is 4
Global Number ` This will be the final number chosen

` Populate the array with data
For a = 1 To Array Count(FactionArray()) ` 1 to 6 because thats how long the array is (as dimmed at the start)
   FactionArray(a) = a
Next a

Do
Cls

   For a = 1 To Array Count(FactionArray()) ` Print each elements data
      Print "FactionArray Element ", a, " Contains ", FactionArray(a)
   Next a
   Print "Number Chosen (Should not be 4) ", GetNumber()
Wait Key
  
Loop

Function GetNumber()
   For a = 0 To 1 ` Only passing through twice as we only want 2 numbers (if its not one number it will be the other)
      NumberChosen = Rnd(Array Count(FactionArray())) ` Choose random number from whats left of the array
      Array Delete Element FactionArray(NumberChosen) ` This will delete that element and the number that it holds which will be the same FactionArray(3) should hold 3 for example
      Array Insert At Bottom RandomNumber() ` Add an element to the array
      RandomNumber(a) = NumberChosen ` Populate it with the number chosen
   Next a
   
   If RandomNumber(0) = NumberWeDontWant ` If number we dont want is same number as the one chosen and stored in the array
      Number = RandomNumber(1) ` Then it must be the second number
   Else Number = RandomNumber(0) ` Otherwise randomnumber(1) is fine
Endif
Endfunction Number

Rem ***** Main Source File *****
sync on : sync rate 60
randomize timer()
number as integer = 4
rand as integer
Max_Rand as integer = 10 // maximum number that the random function will generate
do
     // get a random number for 'number' but don't choose 4
     rand = rnd(1) // we will get either 1 or 0
     
     // store the number before it gets changed
     check = number
     
     // a few checks
     if number = 1 // if it's at its lowest go for the greater option
        rand = 1
     endif
     
     if number = max_rand // if 'number' it at its highest go for the smaller option
        rand = 0
     endif
     
     if rand = 0 // get a number lower than 'number'
        number = rnd( number - 2) + 1 // we subtract two and then add one to avoid
                                      // landing on the previous number and not getting a 0
     endif
     
     // get a random number greater than 'number
     if rand = 1
        number = rnd( max_rand - number - 1 ) + number + 1
     ENDIF
     // the above if statement explained
     // max_rand - number - 1 will randomise through a rand to which if you add number + 1 will return a number
     // greater than 'number' but below or equal to 10.  
     
     print number
     // wait key // - to remove the check uncomment this line and comment out the if statement below
     
     
     // check impossible (or should be) numbers
     if number <= 0 or number > max_rand or check = number
         wait key
     ENDIF
     sync
    
LOOP

do
    ` Pick the aggressor (1-6)
    Faction = rnd(5) + 1
    
    ` Now pick the defender (1-6, less 1 for the attacker)
    FactionToAttack = rnd(4) + 1
    if FactionToAttack >= Faction then inc FactionToAttack
    
    ` Output the result
    print "Faction "; Faction; " is attacking Faction "; FactionToAttack
    
    wait key
loop

#constant INITIAL_FACTION_COUNT     9

dim FactionList() as integer
global FactionListTop as integer

ResetAllFactions()

repeat
    input "Action?", Action$
    Action$ = upper$( Action$ )
    print
    select Action$
    case "F" : FactionFight() : endcase
    case "R" : ResetAllFactions() : endcase
    endselect
    print
until Action$ = "Q"
end

function ResetAllFactions()
    print "Resetting all"

    dim FactionList( INITIAL_FACTION_COUNT )

    for i = 1 to INITIAL_FACTION_COUNT
        FactionList(i) = i
    next
    FactionListTop = INITIAL_FACTION_COUNT
endfunction

function FactionFight()
    print "FIGHT!"
    Top = FactionListTop

    ` Simple KFY shuffle - randomise the whole array in one shot
    for i = Top to 1 step -1
        swap array items FactionList(), i, rnd(i-1)+1
    next

    if Top > 1
        if (Top mod 2) = 0
            ` Even number of factions, so they all get involved with a fight
            Bottom = 1
        else
            ` Odd number of faction, so one faction gets a bye
            Bottom = 2
        endif
    
        ` Loop through all eligable factions in pairs
        for i = Top-1 to Bottom step -2
            ` Pick a random winner
            Winner = rnd(1)
            
            ` Display a result
            print "Faction "; FactionList(i); " attacks faction "; FactionList(i+1); " ... Faction "; FactionList(i + Winner); " wins!"
    
            ` Rule: If the attacker is the winner, destroys the defender.
            `       If the defender is the winner, attacker is driven off and not destroyed.
            if Winner = 0
                print "        The defender, faction "; FactionList(i+1); ", is destroyed."
                swap array items FactionList(), i+1, FactionListTop
                dec FactionListTop
            endif
        next
    
        if Bottom = 2 then print "Faction "; FactionList(1); " avoids fighting."
    else
        print "Faction "; FactionList(1); " has no-one to fight."
    endif
endfunction

` Run through all factions to count how many are alive
Count = 0
for x = 1 to NumFactions
    if Faction(x).Alive = 1 then inc Count
next x

` Pick a random number between 1 and the number of factions that are still alive 
WhichFaction = rnd(Count-1) + 1

` Run through all factions again, counting live ones until we hit our random number
Count2 = 0
for x = 1 to NumFactions
    if Faction(x).Alive = 1
        inc Count2
        if Count2 = WhichFaction
            ` Set our final result to the current index
            SelectedFacton = x
            ` Terminate the loop
            x = NumFactions            
        endif 
    endif
next x

` SelectedFaction now contains the index number of a random, currently living faction.

` Run through all factions to count how many are alive
Count = 0
for x = 1 to NumFactions
    if Faction(x).Alive = 1 then inc Count
next x

` Pick a random number between 1 and the number of factions that are still alive 
WhichFaction = rnd(Count-1) + 1

` Run through all factions again, counting live ones until we hit our random number
Count2 = 0
for x = 1 to NumFactions
    if Faction(x).Alive = 1
        inc Count2
        if Count2 = WhichFaction
            ` Set our final result to the current index
            SelectedFacton = x
            ` Terminate the loop
            x = NumFactions            
        endif 
    endif
next x

` -----
` Following is nearly identical code to select a second faction from the same list, that isn't the same as the first selection

` We have one less faction from which to choose this time
dec Count
WhichFaction = rnd(Count-1) + 1

Count2 = 0
for x = 1 to NumFactions
    ` The following line contains the only other change, to ensure we don't consider the one we already chose as a valid choice.
    if Faction(x).Alive = 1 and x <> SelectedFaction
        inc Count2
        if Count2 = WhichFaction
            SelectedFacton2 = x
            x = NumFactions            
        endif 
    endif
next x

` SelectedFaction and SelectedFaction2 are now two choices from the list of alive factions, and the only time they will be the
` same number is if there is only one faction (or no factions) left alive.

SelectedFaction = ChooseFaction(0)
SelectedFaction2 = ChooseFaction(SelectedFaction)

function ChooseFaction(Exclude)
    Result = 0
    Count = 0
    for x = 1 to NumFactions
        if Faction(x).Alive = 1 then inc Count
    next x
    
    if Exclude <> 0 then dec Count
    WhichFaction = rnd(Count-1) + 1
    
    Count2 = 0
    for x = 1 to NumFactions
        if Faction(x).Alive = 1 and x <> Exclude
            inc Count2
            if Count2 = WhichFaction
                Result = x
                x = NumFactions            
            endif 
        endif
    next x
endfunction Result