Sorry your browser is not supported!

TYPE spearman
   attack AS INTEGER
   defence AS INTEGER
ENDTYPE
DIM spearman() AS spearman
ARRAY INDEX TO TOP spearman(0)
spearman(0).attack = 10
spearman(0).defence = 15

RANDOMIZE TIMER()

#CONSTANT UNIT_SPEARMAN 1
#CONSTANT UNIT_SOMEENEMY 2

TYPE Unit
   class AS INTEGER
   attack AS INTEGER
   defence AS INTEGER
ENDTYPE

DIM units() AS Unit

INPUT "How many spearmans? ",spearmans
`INPUT "How many enemies? ",enemies

IF spearmans < 1 OR enemies < 1 THEN END

` create spearmans
FOR x = 1 TO spearmans
   ARRAY INSERT AT TOP units(0)
   units(0).class = UNIT_SPEARMAN
   units(0).attack = 10
   units(0).defence = 10
NEXT x

` create enemies
FOR x = 1 TO 500
   ARRAY INSERT AT TOP units(0)
   units(0).class = UNIT_SOMEENEMY
   units(0).attack = 5
   units(0).defence = 5
NEXT x

` let them fight
player = -1
enemy  = -1
FOR unit = 0 TO ARRAY COUNT(units(0))
   IF units(unit).class = UNIT_SPEARMAN  THEN player = unit
   IF units(unit).class = UNIT_SOMEENEMY THEN enemy  = unit
   IF player > -1 AND enemy > -1 ` we have a player unit and an enemy
      loser = GetLoser(player,enemy)
      ARRAY DELETE ELEMENT units(0),loser ` remove defeated unit from array
      player = -1
      enemy  = -1
      unit   = -1 ` start over (not very effective, I know...)
   ENDIF
NEXT unit

winner = units(0).class ` only one class of units is left
IF winner = UNIT_SPEARMAN
   PRINT "Player won with ",ARRAY COUNT(units(0))+1," units remaining."
ELSE
   PRINT "Player lost against ",ARRAY COUNT(units(0))+1," remaining enemy units."
ENDIF
SYNC
WAIT KEY

END

FUNCTION GetLoser(unit1,unit2)
   ` this is where your game logic goes
   ` I made it simple
   IF units(unit1).defence < units(unit2).attack THEN loser = unit1 ELSE loser = unit2
ENDFUNCTION loser

INPUT "How many spearmans? ",spearmans


enemies=500

IF spearmans < 1 OR enemies < 1 THEN END

` create spearmans
FOR x = 1 TO spearmans
   ARRAY INSERT AT TOP units(0)
   units(0).class = UNIT_SPEARMAN
   units(0).attack = RND(10)
   units(0).defence = RND(10)
NEXT x

` create enemies
FOR x = 1 TO enemies
   ARRAY INSERT AT TOP units(0)
   units(0).class = UNIT_SOMEENEMY
   units(0).attack = RND(10)
   units(0).defence = RND(10)
NEXT x

clubmen#=2000
enemy#=1000
clubattack = 9
clubdefence = 7
enemyattack = 4
enemydefence = 5
clubattack2#=clubattack*clubmen#
clubdefence2#=clubdefence*clubmen#
enemyattack2#=enemyattack*enemy#
enemydefence2#=enemydefence*enemy#
PlayerAttacking#=1
Print "Troops:"
Print clubmen#
Print "Attack:"
Print clubattack2#
Print "Defence:"
Print clubdefence2#
Print ""
Print ""
Print "Enemy Troops:"
Print enemy#
Print "Attack:"
Print enemyattack2#
Print "Defence:"
Print enemydefence2#

If PlayerAttacking#=1
wait 5000
      If Clubattack2#>enemydefence2# then gosub fight2
      If Clubattack2#<enemydefence2# then gosub fail

endif


fail:
cls
Print Clubattack2#
Print enemydefence2#
Print "Your Attack was Weaker than their Defence, you have lost!"
wait 5000

fight2:
Print Clubattack2#
Print enemydefence2#
Print "Your Attack was Greater than their Defence, you have won!"
wait 5000
cls
dec PlayerAttacking#,1
dec clubmen#,1000
inc enemy#,1500
dec clubattack,4
inc clubdefence,2
inc enemyattack,3
dec enemydefence,2
clubattack2#=clubattack*clubmen#
clubdefence2#=clubdefence*clubmen#
enemyattack2#=enemyattack*enemy#
enemydefence2#=enemydefence*enemy#

Print "Troops:"
Print clubmen#
Print "Attack:"
Print clubattack2#
Print "Defence:"
Print clubdefence2#
Print ""
Print ""
Print "Enemy Troops:"
Print enemy#
Print "Attack:"
Print enemyattack2#
Print "Defence:"
Print enemydefence2#
wait 5000

If PlayerAttacking#=0
wait 5000
      If Clubdefence2#>enemyattack2# then gosub victory
      If Clubdefence2#<enemyattack2# then gosub fail

endif

victory:
cls
Print "you have won both fights hazzah!!!!!!!!!"
wait 10000

percentage1#=5000.0/14000.0*100.0
Print percentage1#
percentage2#=2000.0*0.percentage1#
print percentage2#
wait key

Rem Project: systemf
Rem Created: 23/06/2008 20:10:15

Rem ***** Main Source File *****

defending:
cls
INPUT "How many Clubmen? ",clubmen
INPUT "How many enemies? ",enemies
INPUT "How Good at attacking will your Clubmen be? ",clubmenA
INPUT "How Good at defending will your Clubmen be? ",ClubmenD
INPUT "How Good at attacking will your Enemies be? ",EnemyA
INPUT "How Good at defending will your Clubmen be? ",EnemyD
clubmen#=clubmen
enemy#=enemies
clubattack = clubmenA
clubdefence = ClubmenD
enemyattack = EnemyA
enemydefence = EnemyD
PlayerAttacking#=2

If PlayerAttacking#=1
    Print "You are Attacking."
    clubattack2#=clubattack*clubmen#
    clubdefence2#=clubdefence*clubmen#
    enemyattack2#=enemyattack*enemy#
    enemydefence2#=enemydefence*enemy#
    percentage1#=enemydefence2#/clubattack2#*100.0
    percentage2#=clubmen#*percentage1#/100.0
    remaining#=clubmen#-percentage2#
endif

If PlayerAttacking#=2
    Print "You are Defending."
    clubattack2#=clubattack*clubmen#
    clubdefence2#=clubdefence*clubmen#
    enemyattack2#=enemyattack*enemy#
    enemydefence2#=enemydefence*enemy#
    percentage1#=enemyattack2#/clubdefence2#*100.0
    percentage2#=clubmen#*percentage1#/100.0
    remaining#=clubmen#-percentage2#
endif

Print "Troops:"
Print clubmen#
Print ""
Print ""
Print "Unit Stats:"
Print "Attacking:"
Print clubattack
Print "Defending:"
Print clubdefence
Print ""
Print ""
Print "Overall Army Strength:"
Print "Attack:"
Print clubattack2#
Print "Defence:"
Print clubdefence2#
Print ""
Print ""
print "<<<<<<<<<<<<<Enemy:>>>>>>>>>>>>>>>>"
print "Enemy Troops:"
print enemy#
print ""
print ""
print "Unit Stats:"
print "Attacking:"
print enemyattack
print "Defending:"
print enemydefence
Print ""
Print ""
Print "Overall Army Strength:"
Print "Attack:"
Print enemyattack2#
Print "Defence:"
Print enemydefence2#
Print ""
Print ""
Print "<<<<<<<<<<<LOSSES>>>>>>>>>>>>>"
Print "Percentage lost"
Print percentage1#," %"
Print "Troops You Lost"
print percentage2#
Print ""
Print ""
Print "Your Remaining Troops"
Print Remaining#
wait key
gosub attacking

attacking:
PlayerAttacking#=1

If PlayerAttacking#=1
    Print "You are Attacking."
    clubattack2#=clubattack*clubmen#
    clubdefence2#=clubdefence*clubmen#
    enemyattack2#=enemyattack*enemy#
    enemydefence2#=enemydefence*enemy#
    percentage1#=enemydefence2#/clubattack2#*100.0
    percentage2#=clubmen#*percentage1#/100.0
    remaining#=clubmen#-percentage2#
endif

If PlayerAttacking#=2
    Print "You are Defending."
    clubattack2#=clubattack*clubmen#
    clubdefence2#=clubdefence*clubmen#
    enemyattack2#=enemyattack*enemy#
    enemydefence2#=enemydefence*enemy#
    percentage1#=enemyattack2#/clubdefence2#*100.0
    percentage2#=clubmen#*percentage1#/100.0
    remaining#=clubmen#-percentage2#
endif

Print "Troops:"
Print clubmen#
Print ""
Print ""
Print "Unit Stats:"
Print "Attacking:"
Print clubattack
Print "Defending:"
Print clubdefence
Print ""
Print ""
Print "Overall Army Strength:"
Print "Attack:"
Print clubattack2#
Print "Defence:"
Print clubdefence2#
Print ""
Print ""
print "<<<<<<<<<<<<<Enemy:>>>>>>>>>>>>>>>>"
print "Enemy Troops:"
print enemy#
print ""
print ""
print "Unit Stats:"
print "Attacking:"
print enemyattack
print "Defending:"
print enemydefence
Print ""
Print ""
Print "Overall Army Strength:"
Print "Attack:"
Print enemyattack2#
Print "Defence:"
Print enemydefence2#
Print ""
Print ""
Print "<<<<<<<<<<<LOSSES>>>>>>>>>>>>>"
Print "Percentage lost"
Print percentage1#," %"
Print "Troops You Lost"
print percentage2#
Print ""
Print ""
Print "Your Remaining Troops"
Print Remaining#
wait 10000
end