994
« on: May 09, 2012, 11:19:41 pm »
I am not asking for you to upgrade on your actual calculator. Try upgrading on WabbitEmu.
EDIT:
I parsed _theta_SR2FARM and found
:Ans→K
:{0,0,0,0
:If K=1
:{2,2,0,0
:If K=2
:{0,0,4,0
:If K=3
:{0,0,0,4
_theta_SR2X222:
:Menu("Equip armor?","Yes",Y,"No",N
:Lbl Y
:∟SUN2(11
:prgmθSR2XREQ
:Lbl N
_theta_SR2XBTL (could you type this in manually?):
:Ans→K
:If ∟SUN2(12)≥10 or (∟SUN2(12)≥3 and 3=∟SUN2(11
:1→∟SUN2(41
:If 15≤∟SUN2(12
:1→∟SUN2(42
:ClrHome
:{2500,2E3+550∟SUN2(12),2500+600∟SUN2(12),6666,3E3+700∟SUN2(12),15E3,8E3+925∟SUN2(12),3E4+10500∟SUN2(43),E4+E3∟SUN2(12),14E3+1200∟SUN2(12),2E4,3E5
:Ans(K→∟SUN2(31
:{0,0,0,0,0,0,0,80,0,0,0,200
:Ans(K→∟SUN2(32
:{0,∟SUN2(12),1+∟SUN2(12),8,2+∟SUN2(12),20,4+∟SUN2(12),50,5+∟SUN2(12),8+∟SUN2(12),20,75
:Ans(K→∟SUN2(33
:prgmθSR2XBSD
:If randInt(0,1
:Goto E
:Lbl P
:If 0≥∟SUN2(21
:Goto L
:Menu("BATTLE!","Attack",A,"Spell",S,"Item",I
:Lbl A
:randInt(0,100)+50∟SUN2(13)+50(1+∟SUN2(12→D
:Output(6,10,Ans
:∟SUN2(31)-D→∟SUN2(31
:rand(20
:Output(6,10,"
:prgmθSR2XBSD
:Goto E
:Lbl S
:1→Z
:prgmθSR2XCSP
:If not(Z
:Goto P
:Goto E
:Lbl I
:1→Z
:prgmθSR2XITM
:If not(Z
:Goto P
:Lbl E
:If 0≥∟SUN2(31
:Goto W
:If K=1
:randInt(150,350→D
:If K=2
:randInt(100+50∟SUN2(12),200+100∟SUN2(12→D
:If K=3
:randInt(300,500+100∟SUN2(12→D
:If K=4
:randInt(700,1000+int(.1∟SUN2(21→D
:If K=5
:randInt(600,900+10∟SUN2(12→D
:If K=6
:randInt(1000,2000+int(.1∟SUN2(21
:If K=7
:randInt(700+100∟SUN2(12),1100+100∟SUN2(12
:If K=8
:Then
:0
:If 10<∟SUN2(32
:randInt(0,1
:Ans→θ
:600∟SUN2(43)+iPart(randNorm(6800+3800θ,600→W
:∟SUN2(32)-10θ→∟SUN2(32
:If θ
:Then
:0
:prgmθSR2AS31
:ClrHome
:prgmθSR2XBSD
:End
:W
:End
:If K=9
:randInt(800+125∟SUN2(12),1500+150∟SUN2(12
:If K=10
:randInt(1000+140∟SUN2(12),1650+160∟SUN2(12
:If K=11
:randInt(2000,2500
:If K=12
:Then
:0
:If 40≤∟SUN2(32
:randInt(0,1
:Ans→θ
:∟SUN2(32)-40θ→∟SUN2(32
:10500+θrandInt(0,6500
:End
:max(200+50∟SUN2(12),Ans-10∟SUN2(14→D
:Output(6,2,Ans
:∟SUN2(21)-Ans→∟SUN2(21
:rand(20
:Output(6,2,"
:prgmθSR2XBSD
:Goto P
:Lbl L
:ClrHome
:Output(2,5,"YOU DIED
:For(I,1,200
:End
:"X
:For(I,1,7
:Ans+Ans
:End
:prgmTYPE
:Pause
:DelVar ∟SUN2Stop
:Lbl W
:"{XP,GP,MGO,HP,MP,APL,SW,VL,FB
:{4,10,0,0,0,0,0,0,0
:If K=2
:{8,5,0,0,0,0,0,0,0
:If K=3
:{12,6,0,0,0,0,0,0,0
:If K=4
:{40,20,0,0,0,0,0,0,0
:If K=5
:{19+3(∟SUN2(12)>10),8,0,0,0,0,0,0,0
:If K=6
:{40,10,0,0,0,0,0,0,0
:If K=7
:{25,10,0,randInt(0,1),0,0,0,0,0
:If K=8
:{500,E2,0,0,0,0,0,0,0
:If K=9
:{40,18,0,randBin(1,.7),0,0,0,0,0
:If K=10
:{50,25,0,randBin(2,.5),0,0,0,0,0
:If K=11
:{E2,50,0,0,0,0,0,0,0
:If K=12
:{E3,E2,0,0,0,0,0,0,0
:Ans→∟TMP
:If (K=8)randBin(1,.2(6≠∟SUN2(43
:Then
:1+∟SUN2(43→∟SUN2(43
:ClrHome
:Disp "You gained a","level in the","Fire spell!
:Pause
:End
:∟SUN2(19)+Ans(1→∟SUN2(19
:∟TMP(2)+∟SUN2(17→∟SUN2(17
:∟TMP(4)+∟SUN2(25→∟SUN2(25
:DelVar ∟TMP
:ClrHome
:prgmθSR2XLVL
I have to stop soon...