New revolutinary Basic Strategy-Game

[Scavenger]

This game is awesome! It's all basic, right? If so, that's really good. I like the grayscale swords at the main menu. You might want to make the gray extend towards the handle more, if you can. If I make a boulding, is it supposed to show up on the map? And is the map supposed to scroll when you go to the edge? Because neither one of those happen.

Still great though! :biggrin:

[lolje]

Of course I m able to make the grayscale longer. But then it would flicker much more. No, this game should not scroll when you hit the right or left and -
do you think of the way how to attack the opponent? You can do this in the barracks (you need to build the barracks first )

thx for these praises

EDIT: PURE basic,yes!

[Scavenger]

Ok, now that I have been attacked and lost horribly, I have one suggestion: when the enemy attacks you, give the player more that a few seconds to rebuild his army. I was attacked, then 2 seconds later, attacked again. I hardly made it to the barracks in that time.

[alexrudd]

[Weregoose]

It would be easier to offer criticsm and/or improvements to the program if we know what makes it tick!

[Scavenger]

I am playing on easy, and I know what everything does. But between the times I get attacked, I don't have enough time to get more soldiers.

[Rezek]

[lolje]

ok, I see - ill have to fix this bug^^
Tomorrow there'll be a new version.
I have to go now. Thx for downloading and playing and so on!

Ill also provide another version for 83+ users! Once again,
Look forward !

EDIT: Game is 83+ compatibel now.

[alexrudd]

Ich musste zuerst ein Worterbüch benutzen, denn ich bin nicht so gut mit Artikeln und so was.


OK, here is the code according to SourceCoder. Stand back as the resident coders start posting...
[quote name='"BASIC Code"']::"Age of culture v1.0 beta
:Lbl ME
:Unarchive∟AOC
:∟AOC→∟A
:AxesOff
:0→Xmin:94→Xmax
:0→Ymin:62→YMax
:ClrDraw:ClrHome
:Horizontal(62
:Horizontal(52
:Horizontal(44
:Horizontal(36
:Horizontal(28
:Line(17,12,77,12
:Text(‾1,2,6,"Age of culture
:Text(11,4,"1:
:Text(19,4,"2:
:Text(27,4,"3:
:Text(11,10,"Continue
:Text(19,10,"New game
:Text(27,10,"Quit
:Text(51,18,"2006, JR-Calcsoft
:Text(57,18,"-(by  Jesko  Roos)-
:Vertical 0
:Vertical 2
:Line(16,11,16,0
:Line(78,11,78,0
:Line(84,51,84,29
:Vertical 92
:Vertical 94
:For(θ,0,9
:Line(43+θ,24-θ,41+θ,24-θ
:Line(53-θ,24-θ,51-θ,24-θ
:End
:Pt-Off(41,24
:Pt-Off(53,24
:Pt-On(43,14
:Pt-On(51,14
:Line(42,18,46,14
:Line(52,18,48,14
:StorePic 0
:11→θ
:" "→Str0
:Lbl 00
:If θ≠11:Text(11,87,Str0
:If θ≠19:Text(19,87,Str0
:If θ≠27:Text(27,87,Str0
:1→Z
:Text(θ,87,"<
:Repeat G≠0
:getKey→G
:For(Z,0,2
:Pt-Off(43+Z,23-Z
:Pt-Off(51-Z,23-Z
:End
:RecallPic 0
:End
:If G=92 or G=21 and θ=11:Goto 01
:If G=93 or G=21 and θ=19:Goto 02
:If G=94 or G=22 or G=21 and θ=27:Goto EX
:If G=34:θ+8→θ
:If G=25:θ-8→θ
:If θ≥35:11→θ
:If θ≤5:27→θ
:Goto 00
:Lbl 01
:If ∟A(1)=0:Goto 00
:Lbl GA
:Disp "loading...
:Archive∟AOC
:ClrHome
:Lbl ER
:ClrDraw
:Line(0,62,0,56
:Line(1,55,93,55
:Line(94,62,94,56
:Line(0,0,0,5
:Line(1,6,93,6
:Line(94,5,94,0
:Text(0,2,"G:
:Text(0,29,"W:
:Text(0,64,":
:DelVar A
:For(θ,58,60
:Line(θ,57,θ,59+A
:Line(120-θ,57,120-θ,59+A
:A+1→A
:End
:Pt-Off(60,58
:For(θ,0,4
:Line(20-θ,40-θ,21+θ,40-θ
:End
:If ∟A(1)≥4:Goto FU
:Line(18,35,18,32
:Line(23,35,23,32
:Line(20,34,21,34
:Line(20,33,21,33
:Line(19,32,22,32
:Lbl FU
:If ∟A(1)≥4:Then:For(θ,32,36):Line(16,θ,25,θ):End:End
:If ∟A(1)≥4:Then:For(θ,33,35):Line(20,θ,21,θ,0):End:End
:Text(0,78,"/
:StorePic 0
:If ∟A(1)≥2:Goto K0
:Lbl K1
:StorePic 0
:7→X:3→Y
:Text(‾1,Y8,X6,"x"
:DelVar G
:Lbl E3
:°→C
:Lbl E2
:RecallPic 0
:If X=3 and Y=3:Text(57,23,"-Main-building-
:If X=9 and Y=4 and ∟A(1)≥2:Text(57,27,"-barracks-
:Repeat G≠0
:getKey→G
:Text(0,8,∟A(2)
:Text(0,35,∟A(3)
:Text(0,66,∟A(4)+∟A(5)
:Text(0,82,∟A(6)
:While °-C>0
:∟A(4)→V:∟A(5)→W
:(∟A(1)≥4)V+V→V
:(∟A(1)≥4)W+W→W
:If ∟A(2)+V≤99999:∟A(2)+V→∟A(2)
:If ∟A(3)+W≤99999:∟A(3)+W→∟A(3)
:°→C
:∟A(10)+1→∟A(10)
:∟A(11)+∟A(12)→R:If R>9 and R≥(∟A(7)+∟A(8)).9 and randInt(1,9)=1:Goto FA
:If ∟A(10)≥190 and round(∟A(10)/7,0)=∟A(10)/7:Then:randInt(1,3)→θ:∟A(11)+(θ≠1)→∟A(11):∟A(12)+(θ=1)→∟A(12):End
:End
:End
:Lbl G
:0→Z
:(G=26)-(G=24)→A
:(G=34)-(G=25)→B
:A+B→D
:If A+B≠0:1→D
:If X=3 and Y=3 or X=9 and Y=4 and ∟A(1)≥2:1→Z
:If Z and D:Goto E1
:X+A→X:Y+B→Y
:If Y=3 and X=3:1→Z
:If Y>6:6→Y:If Y<1:1→Y:If X>15:15→X:If X<0:0→X
:If D:Text(‾1,(Y-B)8,(X-A)6," ":If Z=0:Text(‾1,Y8,X6,"x"
:If G=24 or G=25 or G=26 or G=34:Goto E2
:If G=21 and Y=3 and X=3:Goto MB
:If G=21 and Y=4 and X=9 and ∟A(1)≥2:Goto BR
:If G=22:Goto PM
:Goto E2
:Lbl E1
:For(θ,0,5
:Line(1,θ,93,θ,0
:End
:X+A→X:Y+B→Y:Text(‾1,Y8,X6,"x"
:Goto E2
:Lbl PM
:ClrHome
:Menu("<  Pause-menu  >","Save game",SV,"Cheats",CH,"Quit",EX,"Resume game",E3)
:Lbl SV
:Disp "saving...
:Unarchive∟AOC
:∟A→∟AOC
:Archive∟AOC
:ClrHome
:Pause "game saved!"
:Goto PM
:Lbl C1
:ClrHome
:Input "How many ress. ?",θ
:If ∟A(2)+θ<99999:Then:∟A(2)+θ→∟A(2):Else:99999→∟A(2):End
:If ∟A(3)+θ<99999:Then:∟A(3)+θ→∟A(3):Else:99999→∟A(3):End
:Lbl C0
:Disp "","Here you are,":Pause "CHEATER!":ClrHome
:Goto E3
:Lbl CH
:Input "Tipe in a Cheat!",Str0
:If Str0="GIMME GOODS" or Str0="GIMMEGOODS":Goto C1
:If Str0="I NEED WORKERS" or Str0="INEEDWORKERS":Then:round(∟A(6)/2,0)→θ:θ→∟A(4):∟A(6)-θ→∟A(5):Goto C0:End
:If Str0="MANY,MANY HOUSES" or Str0="MANY,MANYHOUSES" or Str0="MANYMANYHOUSES":Then:999→∟A(6):Goto C0:End
:Disp "":Pause "Wrong cheat":ClrHome
:Goto PM
:Lbl MB
:Vertical 0
:Vertical 94
:RecallPic 0
:Text(10,2,"1:Spawn worker          50G,10W
:Text(19,2,"2:Set workers...
:Line(17,37,24,37,0
:Line(16,36,25,36,0
:Line(16,35,25,35,0
:Text(28,2,"3:Build a House          50G,250W
:If ∟A(1)≥2:Then:For(θ,28,23,‾1):Line(54,θ,59,θ,0):End:End
:Text(37,2,"4:Build...
:Text(46,2,"5:Leave Main-building
:°→C
:Goto E5
:Lbl E7
:Text(0,8,"               
:Text(0,35,"               
:Text(0,66,"       
:Text(0,82,"       
:Lbl E5
:Repeat G≠0
:getKey→G
:Text(0,8,∟A(2)
:Text(0,35,∟A(3)
:Text(0,66,∟A(4)+∟A(5)
:Text(0,82,∟A(6)
:While °-C>0
:∟A(4)→V:∟A(5)→W
:(∟A(1)≥4)V+V→V
:(∟A(1)≥4)W+W→W
:If ∟A(2)+V≤99999:∟A(2)+V→∟A(2)
:If ∟A(3)+W≤99999:∟A(3)+W→∟A(3)
:°→C
:∟A(10)+1→∟A(10)
:∟A(11)+∟A(12)→R:If R>9 and R≥(∟A(7)+∟A(8)).9 and randInt(1,9)=1:Goto FA
:If ∟A(10)≥190 and round(∟A(10)/7,0)=∟A(10)/7:Then:randInt(1,3)→θ:∟A(11)+(θ≠1)→∟A(11):∟A(12)+(θ=1)→∟A(12):End
:End
:End
:If G=92 and ∟A(2)≥50 and ∟A(3)≥10 and (∟A(4)+∟A(5))<∟A(6):Goto E6
:If G=94 and ∟A(2)≥50 and ∟A(3)≥250 and ∟A(6)≠999:Goto E8
:If G=93:Goto E9
:If G=22 or G=83:Goto E4
:If G=82:Goto B0
:Goto E5
:Lbl E6
:∟A(2)-50→∟A(2)
:∟A(3)-10→∟A(3)
:If ∟A(4)<∟A(5) or ∟A(4)=∟A(5):Then:∟A(4)+1→∟A(4):Else:∟A(5)+1→∟A(5):End
:Goto E7
:Lbl E4
:X→A:Y→B
:ClrDraw
:A→X:B→Y
:Goto E2
:Lbl E8
:∟A(2)-50→∟A(2):∟A(3)-250→∟A(3):∟A(6)+10→∟A(6)
:If ∟A(6)≥1000:999→∟A(6)
:Goto E7
:Lbl E9
:Output(1,1,"< set  workers >gold-workers: wood-workers: total:          [<]:wood -> gold[>]:gold -> wood[2nd]:Auto-set  [Mode]:back"
:Output(4,14,∟A(4)+∟A(5
:" "→Str0
:Lbl EA
:Output(2,14,Str0
:Output(2,14,∟A(4
:Output(3,14,Str0
:Output(3,14,∟A(5
:Repeat G≠0
:getKey→G
:End
:If G=24 and ∟A(5)>0:Then:∟A(5)-1→∟A(5):∟A(4)+1→∟A(4):End
:If G=26 and ∟A(4)>0:Then:∟A(4)-1→∟A(4):∟A(5)+1→∟A(5):End
:If G=21:Then:round((∟A(4)+∟A(5))/2,0)→θ:∟A(4)+∟A(5)→Z:θ→∟A(4):Z-θ→∟A(5):End
:If G=22:Then:ClrHome:Goto E5:End
:Goto EA
:Lbl B0
:ClrHome
:Output(1,1,"<  Build ...?  >1:barracks                      2:barracks lv2  (              )3:              (              )4:back")
:If ∟A(1)>1:Then:Output(3,1,"-already  built-":Else:Output(3,1,"(  150G, 500W  )":End
:If ∟A(1)>2:Then:Output(5,1,"-already  built-":Goto B1:Else:Output(5,1,"(  500G, 150W  )":End
:If ∟A(1)<2:Output(5,1,">barracks needed
:Lbl B1
:Repeat G≠0
:getKey→G
:End
:If G≠92:Goto B2
:If G=92 and ∟A(1)=1 and ∟A(2)≥150 and ∟A(3)≥500:Then:2→∟A(1):∟A(2)-150→∟A(2):∟A(3)-500→∟A(3):ClrDraw:Goto K0:End
:If G=92 and ∟A(1)=1:Then:If ∟A(3)<500:Output(3,1,"More wood needed":If ∟A(2)<150:Output(3,1,"More gold needed":End
:Lbl B2
:If G=93 and ∟A(1)=2 and ∟A(2)≥500 and ∟A(3)≥150:Then:3→∟A(1):∟A(2)-500→∟A(2):∟A(3)-150→∟A(3):ClrDraw:Goto K0:End
:If G=93 and ∟A(1)=2:Then:If ∟A(3)<150:Output(5,1,"More wood needed":If ∟A(2)<500:Output(5,1,"More gold needed":End
:If G=82 or G=22:Goto E5
:Goto B1
:Lbl K0
:RecallPic 0
:Line(56,32,58,32
:Line(54,30,55,31
:Line(57,31,58,30
:If ∟A(1)>2:Line(59,32,59,24
:Line(58,29,58,23
:Line(54,29,54,23
:Line(55,27,55,23
:Line(57,27,57,23
:Line(55,29,57,29
:Line(56,28,56,26
:Pt-On(56,23
:Pt-On(58,31
:If ∟A(1)>2:Pt-Off(58,31
:Goto K1
:Lbl BR
:Line(0,55,0,48
:Line(0,6,0,19
:54→A:48→B
:Line(18,A,18,B
:Line(19,A,19,B
:Line(1,47,93,47
:Line(1,20,93,20
:Line(94,55,94,48
:Line(94,6,94,19
:Text(8,14,"I
:Text(8,33,"C,total:
:Line(37,A,37,B
:Line(38,A,38,B
:Lbl R5
:Text(43,2,"1:Spawn Soldiers... 
:Text(43,70,"2:War!!!
:Text(49,2,"3:Research...                     
:Text(49,70,"4:back
:Text(0,82,∟A(6
:Text(8,2,∟A(7
:Text(8,21,∟A(8
:Text(8,59,∟A(7)+∟A(8)
:Lbl R0
:Repeat G≠0
:getKey→G
:Text(0,8,∟A(2
:Text(0,35,∟A(3
:Text(0,66,∟A(4)+∟A(5)
:While °-C>0
:∟A(4)→V:∟A(5)→W
:(∟A(1)≥4)V+V→V
:(∟A(1)≥4)W+W→W
:If ∟A(2)+V≤99999:∟A(2)+V→∟A(2)
:If ∟A(3)+W≤99999:∟A(3)+W→∟A(3)
:°→C
:∟A(10)+1→∟A(10)
:∟A(11)+∟A(12)→R:If R>9 and R≥(∟A(7)+∟A(8)).9 and randInt(1,9)=1:Goto FA
:If ∟A(10)≥190 and round(∟A(10)/7,0)=∟A(10)/7:Then:randInt(1,3)→θ:∟A(11)+(θ≠1)→∟A(11):∟A(12)+(θ=1)→∟A(12):End
:End
:End
:If G=82 or G=22:Goto E4
:If G=92:Goto R1
:If G=93 and ∟A(7)+∟A(8)>0:Then:DelVar Q:Menu("Are you sure?","No",R0,"Yes, Attack!",FB):End
:If G=94 and ∟A(1)>2 and ∟A(1)<4:Goto R6
:If G=94 and ∟A(1)=2:Then:ClrHome:Disp "You need":Disp "barracks lv2 to":Pause "research.":ClrHome:End
:If G=94 and ∟A(1)=4:Then:ClrHome:Disp "More upgrades":Pause "in next version!":ClrHome:End
:Goto R0
:Lbl R1
:Text(43,2,"1:Infantry    :10G,50W 3:back
:Text(49,2,"2:Cavallery:100G,20W                 
:Lbl R2
:"                "→Str0
:Text(8,2,∟A(7
:Text(8,21,∟A(8
:Text(8,59,∟A(7)+∟A(8
:Goto R3
:Lbl R4
:Text(8,2,∟A(7
:Text(8,21,∟A(8
:Text(8,59,∟A(7)+∟A(8
:Text(0,8,Str0
:Text(0,35,Str0
:Text(0,8,∟A(2
:Text(0,35,∟A(3
:Lbl R3
:Repeat G≠0
:getKey→G
:End
:If G=92 and ∟A(2)≥10 and ∟A(3)≥50 and ∟A(6)-(∟A(4)+∟A(5))>0:Then:∟A(2)-10→∟A(2):∟A(3)-50→∟A(3):∟A(6)-1→∟A(6):∟A(7)+1→∟A(7):Goto R4:End
:If G=93 and ∟A(2)≥100 and ∟A(3)≥20 and ∟A(6)-(∟A(4)+∟A(5))>0:Then:∟A(2)-100→∟A(2):∟A(3)-20→∟A(3):∟A(6)-1→∟A(6):∟A(8)+1→∟A(8):Goto R4:End
:If G=94 or G=22:Goto R5
:Goto R3
:Lbl R6
:ClrHome:Output(1,1,"< Research >1:Research        Feudal Age    ( 1000G, 1000W )+Better workers +More upgrades                  [Mode]:back
:Lbl R7
:Repeat G≠0
:getKey→G
:End
:If G=92 and ∟A(3)<1000:Output(4,1,"More wood needed
:If G=92 and ∟A(2)<1000:Output(4,1,"More gold needed
:If G=92 and ∟A(2)≥1000 and ∟A(3)≥1000:Then:ClrHome:Output(1,1,"You researched  the Feudal Age! +workers produce2 instead of 1  units per second+More upgrades  available    ( NEXT VERSION )":Pause :4→∟A(1):∟A(2)-1000→∟A(2):∟A(3)-100→∟A(3):ClrHome:Goto ER:End
:If G=22:Goto R0
:Goto R7
:Lbl FB
:ClrHome:∟A(11)+1→∟A(11):∟A(11)→F:∟A(12)→P:1→∟A(11):0→∟A(12):Output(1,4,"Attack!!!":Output(3,1,"defending army: Infantry :      Cavallery:":Output(8,2,"press Enter...":Output(4,11,F):Output(5,11,P):Pause :Goto FX
:Lbl FA
:round(∟A(11).9,0)→F:round(∟A(12).8,0)→P:∟A(11)-F→∟A(11):∟A(12)-P→∟A(12):1→Q:ClrHome
:Output(1,1,"soldiers of your!  enemy are !!attacking your!!  village!!!  ! - - - -- - - - attacking units:Infantry :      Cavallery:      ":Output(7,11,F:Output(8,11,P:Pause
:Lbl FX
:1→R:ClrHome
:Output(2,10,∟A(7):Output(3,10,∟A(8):Output(2,14,"</>
:1→I:DelVar C
:Lbl FC
:Output(1,1,"<Attack with...>I:    of
:Output(3,1,"C:    of
:Output(4,1,"Set your army with the arrow  keys and attack![Alpha]:All  [2nd]:Attack!!!
:Output(2,3,I
:Output(3,3,C
:If G≠25 and G≠34:Goto FH
:If R:Then:Output(2,14,"</>":Output(3,14," ":Else:Output(3,14,"</>":Output(2,14," ":End
:Lbl FH
:Repeat G≠0
:getKey→G
:End
:If G=25 or G=34:not®→R
:If R and G=24 and I>1:I-1→I
:If R and G=26 and I<∟A(7):I+1→I
:If R=0 and G=24 and C>0:C-1→C
:If R=0 and G=26 and C<∟A(8):C+1→C
:If G=24 or G=25 or G=26 or G=34:Goto FC
:If G=31 and ∟A(7)+∟A(8)>0:Then:∟A(7)→I:∟A(8)→C:Goto FC:End
:If G=22 and Q=0:Goto R0
:If G=21:Goto F0
:Goto FH
:Lbl F0
:If ∟A(7)-I≥0:∟A(7)-I→∟A(7)
:If ∟A(8)-C≥0:∟A(8)-C→∟A(8)
:ClrDraw
:Horizontal(62
:Line(0,61,0+∟A(9)46/100,61
:Line(47,61,47+∟A(13)46/100,61
:Horizontal(60
:Horizontal(52
:Horizontal(44
:Text(3,2,"You:
:Text(3,49,"Enemy:
:For(θ,0,47,47
:Text(3,43+θ,"/
:Pt-On(43+θ,58
:Pt-On(45+θ,54
:Line(2+θ,46,6+θ,50
:Line(2+θ,48,4+θ,46
:Line(8+θ,51,8+θ,45
:Line(25+θ,51,25+θ,45
:Line(27+θ,50,31+θ,50
:Line(27+θ,49,28+θ,49
:Line(30+θ,49,31+θ,49
:Line(27+θ,48,27+θ,47
:Line(31+θ,48,31+θ,47
:Line(28+θ,47,28+θ,46
:Line(30+θ,47,30+θ,46
:Pt-On(29+θ,48
:Pt-On(29+θ,46
:Line(33+θ,51,33+θ,45
:End
:Text(3,31,∟A(9
:Text(3,78,∟A(13
:I+C2,F+P2,I+C,F+P→∟WAR
:∟WAR(3)+1→V
:∟WAR(4)+1→W
:Lbl F4
:For(R,0,6
:Line(1,R,93,R,0
:End
:Vertical 0
:Vertical 47
:Vertical 94
:"        "→Str0
:Text(11,10,Str0
:Text(11,10,∟WAR(1
:Text(11,35,Str0
:Text(11,35,∟WAR(3
:Text(11,57,Str0
:Text(11,57,∟WAR(2
:Text(11,82,Str0
:Text(11,82,∟WAR(4
:DelVar θ
:If ∟WAR(3)=V:Goto F2
:∟WAR(3)→Z
:2→D:If ∟WAR(3)>400:1→D
:For(R,7,42
:Line(1,R,46,R,0
:End
:Lbl F1
:2→A:53→B
:A→X:B→Y
:While 1
:B-11→B
:If B<0:Then:42→B:A+11.3→A:End
:A→X
:For(X,X,X+9,D
:B→Y
:For(Y,Y,Y-9,‾D
:X→C
:If θ:94-X→C
:Pt-On(C,Y)
:Z-1→Z
:If Z=0:Goto F2
:End
:End
:End
:Lbl F2
:If θ or ∟WAR(4)=W:Goto F3
:For(R,7,42
:Line(48,R,93,R,0
:End
:∟WAR(4)→Z
:2→D:If ∟WAR(4)>400:1→D
:1→θ
:Goto F1
:Lbl F3
:Horizontal(6
:If Q:Then:For(R,1,5):Line(1,R,61,R,0):End:End
:If Q=0:Text(57,2,"Its your turn!
:If Q=0:Text(57,49,"Press second !
:Repeat G≠0 or Q
:getKey→G
:End
:If Q:Then:Text(57,0,"The enemy army is attacking!"):Pause :∟WAR(2)-∟WAR(3)→θ:∟WAR(1)/∟WAR(3)→C:∟WAR(3)→V:∟WAR(4)→W:If θ<1:1→θ:∟WAR(3)-θ→∟WAR(3):round(∟WAR(3)C,0)→∟WAR(1):If ∟WAR(3)≤0:Goto WL:0→Q:Goto F4:End
:If G=21 and Q=0:Then:Text(57,0,"      Your army is attacking !    ":Pause :∟WAR(1)-∟WAR(4)→θ:∟WAR(2)/∟WAR(4)→C:∟WAR(3)→V
:∟WAR(4)→W:If θ<1:1→θ:∟WAR(4)-θ→∟WAR(4):round(∟WAR(4)C,0)→∟WAR(2):If ∟WAR(4)≤0:Goto WW:1→Q:Goto F4:End
:Goto F3
:Lbl WW
:ClrHome:
:If ∟A(13)-∟WAR(1)≤0:Goto θW:Output(1,1,"The enemies were  defeaded!!!                The enemy playerlost    livesand has still live points.":Output(5,6,∟WAR(1)):∟A(13)-∟WAR(1)→∟A(13):Output(6,15,∟A(13):∟WAR(1)-∟WAR(3)→C:∟WAR(3)-C→I:I+∟A(7)→∟A(7):C+∟A(8)→∟A(8):DelVar ∟WAR:Pause :ClrHome
:Goto ER
:Lbl WL
:ClrHome:If ∟A(9)-∟WAR(2)≤0:Goto θL:Output(1,1," Your army was    defeaded!!!                You lost        live points.    (remaining: 99 )":Output(4,10,∟WAR(2)):∟A(9)-∟WAR(2)→∟A(9):Output(6,13,∟A(9)):∟WAR(2)-∟WAR(4)→P:∟WAR(4)-P→F:F+∟A(11)→∟A(11):P+∟A(12)→∟A(12):DelVar ∟WAR:Pause :ClrHome
:Goto ER
:Lbl θW
:DelVar ∟WAR:Output(1,1,"Congratulations!  You defeaded your enemy and won the game !!!":Output(8,2,"press Enter...":Pause :ClrHome:Output(1,6,"Cheats:    GIMME GOODS  gives gold+wood I NEED WORKERS  filles houses MANY,MANY HOUSES999 houses    press Enter... ":Pause :Goto ME
:Lbl θL
:DelVar ∟WAR:Output(1,4,"You lost ! Your mission  to kill the enemy  failed... ":Output(6,1,"thx for playing!":Output(8,2,"press Enter...":Pause :Goto ME
:Lbl 02
:If ∟A(1)≥1:Menu("Overwrite?","No",00,"Yes",03
:Lbl 03
:1,100,50,1,1,10,0,0,100,0,0,0,100→∟A
:Menu("difficulty?","easy",04,"normal",GA,"hard",05)
:Lbl 04
:‾10→∟A(10
:200→∟A(2
:100→∟A(3
:20→∟A(6
:Goto GA
:Lbl 05
:10→∟A(10
:50→∟A(2
:25→∟A(3
:Goto GA
:Lbl EX
:Output(1,1,"Version:1.0-betathx for playing!":DelVar ADelVar BDelVar CDelVar Str0DelVar GDelVar YDelVar θDelVar ∟ADelVar Pic0:Archive∟AOC:ClrDraw:Pause :ClrHome:Output(1,1,"
Generated by SourceCoder, © 2005 Cemetech[/quote]

[lolje]

I already said its quite long ...

Note: This code is to criticsm and/or make improvements-suggestions -
NOT to copy and put your own Name on this, please-remember this!

Thank you for all interests

EDIT: Source code is very old [...]

[DarkerLine]

[Weregoose]

Even if it takes several hours, I'll have some code ready in my next post.

DarkerLine already knocked out plenty.

[Rezek]

[DarkerLine]

It's slightly off, the difference between 52 and 62 is 10 not 8.

[Rezek]

Oh yeah, you're right :/

Just swap out 62 for 52 and put Horizontal(62 after the end I guess.

[DarkerLine]

And change the loop to

[Rezek]

I figured there was some crazy thing like that, 'twas what I meant by "I think even that could lose 3 bytes."

[DJ Omnimaga]

nice to see a version for 83+ will be made I hope to be able to play soon keep up the good work

[axcho]

[bukwirm]

That's pretty impressive! Nice job. It does work on an ordinary 83+.

You should read this topic, though.