Sorry your browser is not supported!

remstart
   This is a very BASIC (pardon the pun) simulation program and is NOT perfect.
   I just typed it up quickly to illustrate a concept. It will not produce very varying results
   as I haven't given it sufficient conditions to make it such. That's up to you.

   I've tried to make it as readable as possible so feel free to ask if there's something you don't understand.
   I'm sure that if I don't get back to you within a day or two, someone else will.
   In fact a senior member will no doubt find over 9000 oversights in my code. But, in my defence, I just quickly typed it
   up and haven't debugged it passed the fact that it runs.
remend

rem -----------------------------------------------------------------------------------------------
rem                           BASIC SIMULATION OF BEHAVIORS
rem -----------------------------------------------------------------------------------------------


Global Turn: Turn = Timer()
Global TurnCount: TurnCount = 1

Type Character
   Aggressive
   Defensive
   Decisiveness
   NextMove$
EndType

Dim Char(5) As Character

rem Define Qualities of each player
rem Player 3 & 4 will be assigned random qualities each round (just for fun)
Char(1).Aggressive = 78: Char(1).Defensive = 30: Char(1).Decisiveness = 5
Char(2).Aggressive = 78: Char(2).Defensive = 30: Char(2).Decisiveness = 8
Char(5).Aggressive = 100: Char(5).Defensive = 100: Char(5).Decisiveness = 10

Do
   Randomize Timer()
   rem ^Don't confuse this with the Timer() command.
   rem This simply reseeds the Randomizing process using the value returned from from Timer()
   Char(3).Aggressive = rnd(100): Char(3).Defensive = rnd(100): Char(3).Decisiveness = rnd(10)
   Char(4).Aggressive = rnd(80): Char(4).Defensive = rnd(60): Char(4).Decisiveness = rnd(6)

   rem YOUR CODE HERE (Player interface, text/grphics etc.

   If Timer() - Turn > 500 rem If 0.5 seconds have passed. In other words, each Turn is 0.5 seconds long.
      For i = 1 to 5
         WillTakeAction = Char(i).Decisiveness * rnd(10)
         RequiredDecisiveness = rnd(100)
         If WillTakeAction > RequiredDecisiveness
         rem NOTE: This is for a model where Decisiveness ranges from 1 to 10.
         rem It also adds a little randomness to it all (Like an RPG Battle).
         rem If you want EXACT results, remove the randomness
            PersonalityHandler(i)
            rem Now perform your actions based on Char(i).NextMove$
         EndIf
      Next i
      Turn = Timer() rem Resets the turn timer
      INC TurnCount, 1
   EndIf
   rem This will output to the screen what's happening in the sim.
   Cls
   For i = 1 to 5
      If Char(i).NextMove$ = "" then Char(i).NextMove$ = "DO NOTHING!"
      Print "Turn Number: " + str$(Turncount)
      Print "------------------"
      Print "Player " + str$(i) + ": " + Char(i).NextMove$
      Print " "
   Next i
Loop



Function PersonalityHandler(Current)
      Char(Current).NextMove$ = "" rem Clear actions already committed on previous move.
      rem You could add code to check previous actions too if you wanted it to play a role in decision-making
      If Char(Current).Aggressive > 75
         rem Do your action eg: Send pawns out to battle
         rem Do this by the degree of Char(i)'s Agressiveness
         rem EG: 75 - 100: Make 20 units & send 18 to attack
         Char(Current).NextMove$ = Char(Current).NextMove$ + "|Build|Ogre|20|Attack|PlayerX|18"
      EndIf
      If Char(Current).Defensive > 50
         rem Commit action here
         rem EG: 50 - 75: Make 20 units & send 2 out to probe
         Char(Current).NextMove$ = Char(Current).NextMove$ + "|Build|Archer|30|Probe|60.32|2"
      EndIf
      rem Note: You could do almost anything here, eg. use these stats to decide how many get built, how many stay
      rem and how many go. This is a very crude illustration, just to point you in theright direction.
EndFunction