has just edited this program. The source code now reads:
:SetUpEditor∟BALI:1→dim(∟BALI:SetUpEditor∟PRTY:∟PRTY(1→∟BALI(1
:ClrDraw:SetUpEditor∟PRTY2:∟PRTY→∟PRTY2
:"0ZBD
:prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1
:"rowSwap(ZSS→Str0:0→θ
:1:prgmZCE:expr(Str9→Str4
:{15,24:prgmZSP
:SetUpEditorL
6
:60→dim(L
6:Fill(0,L
6
:iPart(∟EPRTY(1→L
6(43:
E2fPart(∟EPRTY(1→L
6(46
:"0ZEQU
:prgmZRS:1→Z:prgmTEMP:prgmZC1
:L
6→L
2
:If Tmin=2:Then
:"rowSwap(TRNRNAME→Str0
:0→θ:10fPart(∟EPRTY(7:prgmZCE:Str9→Str5
:"rowSwap(ZSS→Str0:iPart(∟EPRTY(7
:prgmZCE:expr(Str9→Str4:{65,2:prgmZSP:1→U
:Text(47,4,Str5," WANTS
:Text(53,4,"TO FIGHT!
:Repeat getKey
:Line(90,7,86,7,U
:Line(89,6,87,6,U
:Pt-Change(88,5
:not(U→U
:rand(20
:End
:For(F,4,14
:Line(4,F,90,F,0
:End:0→θ
:"rowSwap(ZPNA→Str0:L
2(43:prgmZCE
:Text(47,4,Str5," SENT
:Text(53,4,"OUT ",Str9:
:rand(20
:For(F,41,62
:Line(61,F,91,F,0
:End
:End
:If Tmin=1:Then
:"rowSwap(ZPNA→Str0
:L
2(43:prgmZCE
:Text(47,4,"WILD ",Str9
:Text(53,4,"APPEARED!
:End:Str9→Str7
:"rowSwap(ZPMA→Str0
:L
2(43:prgmZCE:Str9→Str4:DelVar Str9
:64→I:1→J:Asm(prgmZSP2
:1→Z:"0ZEQU
:prgmZRS:prgmTEMP:prgmZC1
:Text(0,2,Str7
:Text(6,15,"∟",L
2(46
:Text(11,5,"HP
:Line(14,49,39,49
:Line(14,47,39,47
:Line(3,53,3,44
:Line(3,44,42,44
:Line(4,43,42,43
:Line(2,53,2,45
:Line(41,45,40,46
:Pt-On(40,48
:Pt-On(40,45
:Pt-On(13,48
:iPart((
E2(L
2(1)/L
2(2)).25
:Line(14,48,14+Ans,48
:For(F,4,14
:Line(4,F,90,F,0
:End
:4→W:1→A:SetUpEditor∟PRTY
:While W=4
:If fPart(∟PRTY(A))=.5:Then
:A+1→A:Else
:4→θ:"ZTMP→Str0:prgmZCE
:3→θ:prgmZCE
:"∟P"+sub("123456",∟PRTY(A),1→Str4
:1→θ:"Unarchive"+Str4+":"+Str4+sub(Str9,1,1)+"L
1:Archive"+Str4→Str9
:1:prgmZCE:prgmZTMP:60→dim(L
1:∟PRTY(A→L
1(57
:1→W
:End
:End
:0→θ:"rowSwap(ZPNA→Str0
:L
1(43:prgmZCE
:Text(47,4,"GO! "+Str9+"!
:For(F,19,42
:Line(10,F,40,F,0
:End:Str9→Str8
:‾32→I:21→J
:"rowSwap(ZPMA→Str0
:L
1(43:prgmZCE:Str9→Str4:DelVar Str9
:Asm(prgmZSP2
:DelVar Str4
:Text(29,66,"∟ ",L
1(46
:If L
1(44)>0:Text(29,76,sub("BRNPSNPARSLPFNTFRZ",3L
1(44)-2,3
:Text(34,56,"HP
:Line(65,26,90,26
:Line(65,24,90,24
:Pt-On(64,25
:Pt-On(91,25
:Line(92,30,92,21
:Line(92,21,52,21
:Line(93,22,93,30
:Line(52,20,91,20
:Line(53,22,54,23
:Pt-On(54,22
:L
1(1)/L
1(2→G
:(G
E2)/4→G
:Line(65,25,65+G,25
:For(F,4,14
:Line(4,F,90,F,0
:End
:StorePic Pic1
:While W=1
:Text(50,10,"FIGHT ITEM PKMN RUN
:DelVar X
:5→W
:6→A:While W=5
:Text(50,A,">
:getKey→K
:If K:Text(50,A,"
:A+4(A=6 and K=26)-20((K=24 and A>6)-(K=26 and A<70))-4(A=30 and K=24→A
:If K=21:Then
:If A=70:Then
:If Tmin=2:Then
:For(F,4,14
:Line(4,F,90,F,0
:End
:Text(47,4,"NO! THERE'S NO RUNNING
:Text(53,4,"FROM A TRAINER BATTLE!
:1→U:Repeat getKey
:Line(90,7,86,7,U
:Line(89,6,87,6,U
:Pt-Change(88,5
:not(U→U
:rand(20
:End
:For(F,4,14
:Line(4,F,90,F,0
:End
:1→W
:End
:If Tmin=1:Then
:X+1→X
:L
2(33)/4→C
:While C>255
:C-256→C
:End
:L
1(33)32→D
:(D/C)+(30X→I
:For(F,4,14
:Line(4,F,90,F,0
:End
:If I<256
:randInt(0,255→N
:If N<I:Then:1→U
:Text(47,4,"COULDN'T ESCAPE!
:Repeat getKey
:Line(90,7,86,7,U
:Line(89,6,87,6,U
:Pt-Change(88,5
:not(U→U:rand(20
:End
:For(F,4,14
:Line(4,F,90,F,0
:End
:End
:10→W:End
:If N>I or I>255:Then
:Text(47,4,"GOT AWAY SAFELY!
:1→U:Repeat getKey
:Line(90,7,86,7,U
:Line(89,6,87,6,U
:Pt-Change(88,5
:not(U→U:rand(20
:End:2→W
:End
:End
:If A=50:Then
:"0ZPP
:prgmZRS:2→H:prgmTEMP
:prgmZC1:"0ZEF
:prgmZRS:prgmTEMP:prgmZC1
:1→W
:End
:End
:End:"K=21
:End:"W=1
:
Generated by
SourceCoder, © 2005-2011
Cemetech