0 Members and 1 Guest are viewing this topic.
thanks scout also, this will take more than Friday to make a new press release unlike pyyrix, no idea when I'll be ready. I have so much done that you guys can't see, yet I can't post it yet
like the two source codes?I doubt you'll actually understand anything. I barely do anymore. I actually jump around all over the place in the program, so you'll take five minutes back and forth just to see all the enemy code. But, it's fast like hell 45 FPS with 3 enemies and 2 items on screen, and practivally no flicker at these times. I bet even the boss fights will be over 55 FPS.
:.TaNF:"prgmTITLE"[00]Asm(E7EF7C4E:Full:FnOff :Fix 5:Fix 2:GetCalc("vA",768):GetCalc("vB",768):::.ITEMS:{L1}+300→A:0→{A}:Fill(A,7::.ENEMY STATS:conj(θ+168,{L1}+400,24:::.SLOWTIMER:0→{{L1}+216}{^r}:.CUR SPELL:0→N:.HEALTH/MAGIC /STRENGTH XP:0→{{L1}+10}{^r}:50→{{L1}+12}{^r}:100→{{L1}+14}{^r}:500→{{L1}+16}{^r}::.SWORD DIR:0→{{L1}+214}:.STRENGTH:1→S:.DMG FLASH:0→{{L1}+212}:.BLOCKMOVE:0→{{L1}+210}:.MONOMODE:0→{{L2}}:.HEALTH/MHP:5→{{L1}}:5→{{L1}+1}:.MAGIC/MMP:5→{{L1}+2}:5→{{L1}+3}:.X, Y, AND DIR:8→X:8→Y:2→D:::.STEP ANI STATS:0→{{L1}+200}→{{L1}+202}:.SWORD SWING/SPIN STATS:0→{{L1}+204}→{{L1}+206}:.WEP COOLDOWN:0→{{L1}+208}::.ROOM NUM:0→{{L1}+500}::sub(STM:::Repeat getKey(15)::If getKey(0):If {{L1}+206}=0 or ({{L1}+208}≠0):If getKey(2):3→D:ElseIf getKey(3):1→D:ElseIf getKey(4):0→D:ElseIf getKey(1):2→D:End:End:End::conj(U,{L6},768:conj(V,{L3},768::If {{L1}+204}:sub(SWD:ElseIf {{L1}+206}>0 and ({{L1}+204}=0 and ({{L1}+208}=0)):sub(SPN:End::::If getKey(54) and ({{L1}+206}=0):sub(SWD:End::X/8→F:Y/8→G:(G*12+F-1*2+θ+1)→I:(G*12+F+1*2+θ+1)→J:(G-1*12+F*2+θ+1)→K:(G+1*12+F*2+θ+1)→L::If getKey(0):Normal:If getKey(48):Full:sub(MG:End:Normal:If getKey(55):Full:sub(XP:ElseIf getKey(40):Full:sub(MAG:End:Full:::::If {{L1}+204}=0 or ({{L1}+208}>0):If getKey(2) and (X>0):If ((Y^8)≠0) and ({I}=0 and ({I+24}=0)):X-1→X:ElseIf Y^8=0 and ({I}=0):X-1→X:ElseIf X^8>0 and (({I}≠0) or ({I+24}≠0)):X-1→X:End::ElseIf getKey(3) and (X<88):If Y^8≠0 and ({J}=0) and ({J+24}=0):X+1→X:ElseIf Y^8=0 and ({J}=0):X+1→X:End:End:X/8→F:Y/8→G::If getKey(4) and (Y>0):If X^8≠0 and ({K}=0) and ({K+2}=0):Y-1→Y:ElseIf X^8=0 and ({K}=0):Y-1→Y:ElseIf Y^8>0 and (({K}≠0) or ({K+2}≠0)):Y-1→Y:End:ElseIf getKey(1) and (Y<48):If X^8≠0 and ({L}=0) and ({L+2}=0):Y+1→Y:ElseIf X^8=0 and ({L}=0):Y+1→Y:End:End:If getKey(2) or (getKey(3) or (getKey(1) or (getKey(4)))):If {{L1}+202}<6:0→{{L1}+200}:{{L1}+202}+1→{{L1}+202}:ElseIf {{L1}+202}<12:1→{{L1}+200}:{{L1}+202}+1→{{L1}+202}:ElseIf {{L1}+202}≥12:0→{{L1}+202}→{{L1}+200}:End:End:End:If getKey(2) and ({I}=2 and ({I-2}=0)):{{L1}+210}+1→{{L1}+210}:ElseIf getKey(3) and ({J}=2 and ({J+2}=0)):{{L1}+210}+1→{{L1}+210}:ElseIf getKey(4) and ({K}=2 and ({K-24}=0)):{{L1}+210}+1→{{L1}+210}:ElseIf getKey(1) and ({L}=2 and ({K+24}=0)):{{L1}+210}+1→{{L1}+210}:End:D→{{L1}+211}:If {{L1}+210}≥35:!If {{L1}+211}:If {K}=2:0→{K-1}{^r}:2→{K-25}:2→{K-24}:End:Else!If {{L1}+211}-1:If {J}=2:0→{J-1}{^r}:2→{J+1}:2→{J+2}:End:Else!If {{L1}+211}-2:If {L}=2:0→{L-1}{^r}:2→{L+23}:2→{L+24}:End:Else!If {{L1}+211}-3:If {I}=2:0→{I-1}{^r}:2→{I-3}:2→{I-2}:End:End:0→{{L1}+210}{^r}:sub(STM:End:::If X≥84:8→X:{{L1}+500}+1→{{L1}+500}:sub(STM:ElseIf X≤4:80→X:{{L1}+500}-1→{{L1}+500}:sub(STM:ElseIf Y≤4:40→Y:{{L1}+500}-8→{{L1}+500}:sub(STM:ElseIf Y≥44:8→Y:{{L1}+500}+8→{{L1}+500}:sub(STM:End:::End::!If {I+1}-3:!If {{L1}+212}:sub(DMG,2:End:End:::Return!If {{L1}}::::If {{L1}+216}{^r}:{{L1}+216}{^r}-1→{{L1}+216}{^r}:End::sub(ENE:sub(ITM:sub(DPL:sub(HUD::::If {{L2}}=2:Normal:DispGraph{^r}:Full:ElseIf {{L2}}:DispGraph:Else:Normal:DispGraph{^r}{^r}:Full:ClrDraw:ClrDraw{^r}:End:End:DelVar "vA":DelVar "vB":DelVar "vT1":Return::::::::::Lbl MG:Return!If N:...:QUAKE:...:If N=1 and ({{L1}+2}≥2):sub(DMP,2:sub(ENE:Normal:DispGraph{^r}{^r}:For(A,0,50:Horizontal -:Horizontal +{^r}:DispGraph{^r}{^r}:End:Full:For(A,0,2:If {A*8+{L1}+400}:A*8+{L1}+403→B:{B}-1→{B}:!If {B}:0→{B-3}:End:End:End:...:SLOW:...:ElseIf N=2 and ({{L1}+2}≥10):!If {{L1}+216}{^r}:sub(DMP,10:1024→{{L1}+216}{^r}:sub(ENE:Normal:For(A,0,20:DrawInv :DispGraph{^r}{^r}:DrawInv {^r}:DispGraph{^r}{^r}:DrawInv :DispGraph{^r}{^r}:DrawInv {^r}:DispGraph{^r}{^r}:End:Full:End:...:ERUPTION:...:ElseIf N=3 and ({{L1}+2}>25):sub(DMP,25:For(A,0,2:A*8+{L1}+403→B:If {B}>10:{B}-10→{B}:Else:0→{B-3}:End:End:Normal:For(A,0,25:DrawInv :Horizontal +:Horizontal -{^r}:DispGraph{^r}{^r}:DrawInv {^r}:Horizontal -:Horizontal +{^r}:DispGraph{^r}{^r}:End:Full:...:SHIMMER:...:ElseIf N=4 and ({{L1}+2}≥40):sub(DMP,40:255→{{L1}+212}:Normal:255→{{L6}}:For(A,0,25:Fill({L6},767:DispGraph{^r}{^r}:End:Full:...:MOROSE:...:ElseIf N=5 and ({{L1}+2}≥75):sub(DMP,75:For(A,0,167:If {A+θ}=2:0→{A+θ}:End:End:Normal:For(A,0,15:A*4→B:rref(0,B,96,2:rref(0,B+2,96,2){^r}:DispGraph{^r}{^r}:End:Full:...:SPELL:...:ElseIf N=6 and ({{L1}+2}≥125):sub(DMP,125:sub(ENE:ClrDraw{^r}:Normal:For(A,0,25:DispGraph{^r}{^r}:End:StorePic :ClrDraw:For(A,0,25:DispGraph{^r}{^r}:End:ClrDraw{^r}:For(A,0,10:DispGraph{^r}{^r}:End:Full:For(A,0,83:!If {A*2+θ+1}-3:0→{A*2+θ+1}:End:End:For(A,0,2:A*8+{L1}+400→B:{B}-1→{B}:If {B+3}≥25:{B+3}-25→{B+3}:Else:0→{B}:End:End:...:HOLY:...:ElseIf N=7 and ({{L1}+2}≥250):sub(DMP,250:{{L1}+1}→{{L1}}:For(A,0,2:A*8+{L1}+400→B:If {B}≤3:0→{B}:End:End:Normal:For(A,0,128:rref(rand^96,rand^64,rand^20,rand^20:expr({L3},{L6},768:DispGraph{^r}{^r}:End:Full::End::sub(STM:Return::::::Lbl DMP:If {r1}≤{{L1}+2}:{{L1}+2}-{r1}→{{L1}+2}:Else:0→{{L1}+2}:End:Return:::::Lbl MAG:ClrDraw{^r}:ref(8,0,64,64:rref(9,1,62,62:StorePic :0→C:DispGraph:Normal:Pause 200:Repeat getKey(56):ClrDraw:RecallPic :Text(10,2,"MP: ",{{L1}+2}►Dec," / ",{{L1}+3}►Dec:Text(15,12,"Quake - 2":Text(15,19,"Slow - 10":Text(15,26,"Eruption - 25":Text(15,33,"Shimmer - 40":Text(15,40,"Morose - 75":Text(15,47,"Spell - 125":Text(15,54,"Holy - 250":Pt-On(10,C*7+12,[0040A09090A04000]:If getKey(4) and (C>0):C-1→C:ElseIf getKey(1) and (C<6):C+1→C:End::If getKey(54):C+1→N:ref(9,1,62,62:rref(9,1,62,62:DispGraph:Pause 200:Goto 003:End:::DispGraph:End:Lbl 003:Full:sub(STM:Return::::::::Lbl XP:ClrDraw{^r}:ref(16,8,64,48:rref(17,9,62,46:StorePic :DispGraph:Normal:Pause 200:0→C:Repeat getKey(56):ClrDraw:RecallPic :Text(18,10,"EXP.:",{{L1}+10}{^r}►Dec:Text(23,20,"HP needs: ",{{L1}+12}{^r}►Dec:Text(23,28,"MP needs: ",{{L1}+14}{^r}►Dec:Text(23,36,"STR needs: ",{{L1}+16}{^r}►Dec:Text(18,48,"H: ",{{L1}+1}►Dec," M: ",{{L1}+3}►Dec," S: ",S►Dec:Pt-On(18,C*8+20,[0040A09090A04000]:If getKey(1) and (C<2):C+1→C:ElseIf getKey(4) and (C>0):C-1→C:End:If getKey(54):!If C:If {{L1}+10}{^r}≥{{L1}+12}{^r}:{{L1}+10}{^r}-{{L1}+12}{^r}→{{L1}+10}{^r}:{{L1}+1}+2→{{L1}+1}:If {{L1}+1}>200:{-}1→{{L1}+12}{^r}:ElseIf {{L1}+1}>100:50000→{{L1}+12}{^r}:Else:{{L1}+12}{^r}+({{L1}+1}-5*10)→{{L1}+12}{^r}:End:End:Else!If C-1:If {{L1}+10}{^r}≥{{L1}+14}{^r}:{{L1}+10}{^r}-{{L1}+14}{^r}→{{L1}+10}{^r}:{{L1}+3}+3→{{L1}+3}:If {{L1}+3}>150:{-}1→{{L1}+14}{^r}:ElseIf {{L1}+3}>75:48500→{{L1}+14}{^r}:Else:{{L1}+14}{^r}+({{L1}+3}-5*20)→{{L1}+14}{^r}:End:End:Else!If C-2:If {{L1}+10}{^r}≥{{L1}+16}{^r}:{{L1}+10}{^r}-{{L1}+16}{^r}→{{L1}+10}{^r}:S+1→S:If S>50:{-}1→{{L1}+16}{^r}:ElseIf S>25:25000→{{L1}+16}{^r}:Else:{{L1}+16}{^r}+500→{{L1}+16}{^r}:End:End:End::End:DispGraph:End:Full:sub(STM:Return::::::.SLIME:[00003C46BFFFFF7E00003C7AE5A5817E003C465EBFBFFF7E003C7A62E5E5817E]→Str6:.DARKSLIME:[00003C46BFFFFF7E00003C7EFFFFFF7E003C465EBFBFFF7E003C7E7EFFFFFF7E]:.SUPER SLIME:[00000018245E7E3C000000183C62423C000018242C5E7E3C0000183C3C62423C]:::::Lbl ENE:{L1}+400→B:For(A,0,2:(A*8+B)→H:If {H}=1 or ({H}=2) or ({H}=3):!If {H+7}:!If {H+6}:rand^4→{H+5}:0→C:{H+1}/8→F:{H+2}/8→G:!If {H+5}:!If {G-1*12+F*2+θ+1}:1→C:End:Else!If {H+5}-1:!If {G*12+F+1*2+θ+1}:1→C:End:Else!If {H+5}-2:!If {G+1*12+F*2+θ+1}:1→C:End:Else:!If {G*12+F-1*2+θ+1}:1→C:End:End:If C:8→{H+6}:End:Else:!If {H+5}:{H+2}-1→{H+2}:Else!If {H+5}-1:{H+1}+1→{H+1}:Else!If {H+5}-2:{H+2}+1→{H+2}:Else:{H+1}-1→{H+1}:End:{H+6}-1→{H+6}:!If {H}-1:8→{H+7}:Else!If {H}-2:5→{H+7}:Else:2→{H+7}:End::If ({{L1}+216}{^r}):{H+7}*2→{H+7}:End::End:Else:{H+7}-1→{H+7}:End:If X≥{H+1}:If X≤({H+1}+8):If Y≥{H+2}:If Y≤({H+2}+8):!If {{L1}+212}:!If {H}-1:sub(DMG,1:Else!If {H}-2:sub(DMG,2:Else:sub(DMG,rand^2+3:End:End:End:End:End:End:If {{L1}+204} or {{L1}+206}:!If {H+4}:sub(DEN:End:End:If {H+4}:{H+4}-1→{H+4}:End:If {H+4}:If rand^2:Plot1{H+1},{H+2}+8,({H}-1*32)+({H+6}/4*16)+Str6:End:Else:Plot1{H+1},{H+2}+8,({H}-1*32)+({H+6}/4*16)+Str6:End:End::::End:Return:::::::::::::Lbl DEN:0→M:{H+3}→{{L5}}:!If {{L1}+214}:If {H+1}≥X and ({H+1}≤(X+8)):If {H+2}≥(Y-16) and ({H+2}≤Y):1→M:End:End:Else!If {{L1}+214}-1:If {H+1}≥(X+8) and ({H+1}≤(X+16)):If {H+2}≥(Y-16) and ({H+2}≤(Y-8)):1→M:End:End:Else!If {{L1}+214}-2:If {H+1}≥(X+8) and ({H+1}≤(X+16)):If {H+2}≥Y and ({H+2}≤(Y+8)):1→M:End:End:Else!If {{L1}+214}-3:If {H+1}≥(X+8) and ({H+1}≤(X+16)):If {H+2}≥(Y+8) and ({H+2}≤(Y+16)):1→M:End:End:Else!If {{L1}+214}-4:If {H+1}≥X and ({H+1}≤(X+8)):If {H+2}≥(Y+8) and ({H+2}≤(Y+16)):1→M:End:End:Else!If {{L1}+214}-5:If {H+1}≥(X-16) and ({H+1}≤(X-8)):If {H+2}≥(Y+8) and ({H+2}≤(Y+16)):1→M:End:End:Else!If {{L1}+214}-6:If {H+1}≥(X-16) and ({H+1}≤(X-8)):If {H+2}≥Y and ({H+2}≤(Y+8)):1→M:End:End:Else:If {H+1}≥(X-16) and ({H+1}≤(X)):If {H+2}≥(Y-16) and ({H+2}≤(Y)):1→M:End:End:End:If M:If S≤{H+3}:{H+3}-S→{H+3}:Else:0→{H+3}:End:End:!If {H+3}:!If {H}-1:sub(EXP,1:Else!If {H}-2:sub(EXP,2:Else!If {H}-3:sub(EXP,5:End:If (rand^64)=63:4→{{L1}+300}:{H+1}→{{L1}+301}:{H+2}→{{L1}+302}:Else!If rand^8-7:!If {{L1}+300}:1→{{L1}+300}:{H+1}→{{L1}+301}:{H+2}→{{L1}+302}:{H}→{{L1}+303}:Else!If {{L1}+304}:1→{{L1}+304}:{H+1}→{{L1}+305}:{H+2}→{{L1}+306}:{H}→{{L1}+307}:End:Else!If rand^8-6:!If {{L1}+300}:2→{{L1}+300}:{H+1}→{{L1}+301}:{H+2}→{{L1}+302}:{H}→{{L1}+303}:Else!If {{L1}+304}:2→{{L1}+304}:{H+1}→{{L1}+305}:{H+2}→{{L1}+306}:{H}→{{L1}+307}:End:End:0→{H}:End:If {{L5}}>{H+3}:50→{H+4}:End:Return::::Lbl EXP:If ({{L1}+10}{^r}+{r1})<{-}1 and ({-}1-{r1}≥{{L1}+10}{^r}):{{L1}+10}{^r}+{r1}→{{L1}+10}{^r}:Else:{-}1→{{L1}+10}{^r}:End:Return::::[003E62404E623E003E7FFFFEFFFF7F3E001818243C424200183C3C7E7EFFE742000024245A42420000247E7EFFFFE742007E407878407E007EFFFEFCFCFEFF7E000000324C0000000000327FFE4C00000018244242241800183C7EE7E77E3C18004242242418180042E7E77E7E3C3C18007E407878407E007EFFFEFCFCFEFF7E007844447844460078FCFEFEFCFEEF46]→Str11::Lbl DMG:100→{{L1}+212}:If {r1}≤{{L1}}:{{L1}}-{r1}→{{L1}}:Else:0→{{L1}}:End:!If {{L1}}:0→{{L1}+212}:For(A,0,15:ClrDraw:ref(X-6,Y+8,20,8:ref(X,Y+2,8,20:ref(X-3,Y+5,14,14:DrawInv :A^4→D:sub(DPL:DispGraph:Pause 500:End:ClrDraw:ref(X-6,Y+8,20,8:ref(X,Y+2,8,20:ref(X-3,Y+5,14,14:DrawInv :4→D:sub(DPL:DispGraph:Pause 1000:For(A,0,3:Plot1A*8+8,8,A*16+Str11:Pause 1500:DispGraph:End:Plot144,8,Str11+64:Pause 1500:DispGraph:For(A,5,8:Plot1A*8+16,8,A*16+Str11:Pause 1500:DispGraph:End:Pause 5000:End:Return:::::::::::.UP:[3C7E7EFEC37E4AFC3C7E7EFEFF7E7EFC]→Str1:[3C7E7EFEC37E523F3C7E7EFEFF7E7E3F]:.RIGHT:[3C7E7A623C38243E3C7E7E7E3C3C3C3E]:[3C7E72E2BC7C526E3C7E7EFEFC7C7E6E]:.DOWN:[3C7E66C2BD7E523F3C7E7EFEFF7E7E3F]:[3C7E6643BD7E4AFC3C7E7E7FFF7E7EFC]:.LEFT:[3C7E5E463C1C247C3C7E7E7E3C3C3C7C]:[3C7E4E463D3E4A763C7E7E7E3F3E7E76]:.STILL:[3C7E6642E7BD7EE73C7E7E7EFFFF7EE7]::::Lbl DPL:If {{L1}+212}:{{L1}+212}-1→{{L1}+212}:If rand^2:Plot1X,Y+8,D*32+Str1+({{L1}+200}*16):End:Else:Plot1X,Y+8,D*32+Str1+({{L1}+200}*16):End:Return::[00183C6E7E3C180000182452463C1800]→Str5:[003C18182C5E7E3C3C7E3C3C76E7EF7E]:[60F0F0701A0F0602F09898FA7F1D0F07]:[384C3844BEBEFE7C3874387CEAD2AA7C]:::Lbl ITM:For(A,0,1: If {A*4+{L1}+300}: If ((X≥({A*4+{L1}+301}-8)) and (X≤({A*4+{L1}+301}+8))) and ((Y≥({A*4+{L1}+302}-8)) and (Y≤({A*4+{L1}+302}+8))): !If {A*4+{L1}+300}-1: {{L1}}+{A*4+{L1}+303}→{{L1}}: If {{L1}}>{{L1}+1}: {{L1}+1}→{{L1}}: End:Else!If {A*4+{L1}+300}-3:{{L1}+6}+1→{{L1}+6}:Else!If {A*4+{L1}+300}-4:sub(EXP,50+(450*(rand^8=7))+(9950*(rand^64=63)): ElseIf {A*4+{L1}+300}=2: {{L1}+2}+{A*4+{L1}+303}→{{L1}+2}: If {{L1}+2}>{{L1}+3}: {{L1}+3}→{{L1}+2}: End: End:0→{A*4+{L1}+300}: Return:End:Plot1{A*4+{L1}+301},{A*4+{L1}+302}+8,{A*4+{L1}+300}-1*16+Str5:End:End:Return::::[0306A6E6A6A6A60305AAEAAAAAAA0A05C0606060606060C0A0505050505050A000808080808080008000808080800080]→Str41:[030686868686E603058A8A8A8AEAEA05]:[03050A94E850F0D8010103060C18387C]:[18381C3C1C3E7C7E3C6C36663663C6C318665AA7AF5E7E18186E5EADF57A66187E993C5A46BFFF7E8166A57E7AC1C37E3C7EE7C3C3E77E3C5AA55AA5A55AA55A387C6C1C38300030043E360E1C1800186699BB666E99BB6666BBC54A52A3DD663838FEFE383838381C1C7F7F1C1C1C1C]→Str000::::::Lbl STM::GetCalc("vTILES")→C::If GetCalc("vT1"):DelVar "vT1":End:GetCalc("vT1",202)→θ::GetCalc("vMAP",{Y1}):conj({{L1}+500}*202+{Y1},θ,202:::ClrDraw:ClrDraw{^r}:For(B,0,6:For(A,0,11:Pt-On(A*8,B*8+8,({B*12+A*2+θ}*16)+C:Pt-On(A*8,B*8+8,({B*12+A*2+θ}*16+8)+C){^r}:End:End:Pt-On(2,0,Str41+48:Pt-On(2,0,Str41+56){^r}:Pt-On(23,0,Str41+16:Pt-On(23,0,Str41+24){^r}:Pt-On(35,0,Str41:Pt-On(35,0,Str41+8){^r}:Pt-On(57,0,Str41+16:Pt-On(57,0,Str41+24){^r}:Pt-On(63,0,Str41+32:Pt-On(63,0,Str41+40){^r}:If N:Pt-On(65,0,N-1*16+Str000:Pt-On(65,0,N-1*16+8+Str000){^r}:End::Pt-On(74,0,Str41+32:Pt-On(74,0,Str41+40){^r}:Pt-On(78,0,Str41+64:Pt-On(78,0,Str41+72){^r}:Text(87,0,S►Dec:If GetCalc("vA"):DelVar "vA":End:If GetCalc("vB"):DelVar "vB":End:GetCalc("vA",768)→U:GetCalc("vB",768)→V:conj({L6},U,768:conj({L3},V,768::GetCalc("vT1")→θ::Return:::::::::Lbl HUD:ref(9,2,{{L1}}*16/{{L1}+1},4:ref(42,2,{{L1}+2}*16/{{L1}+3},4:Return::.SWORD1:[1028282828287C381038383838387C3800060A1428D060A02056AE5C38F060A00040FEC1FE4000000040FEFFFE400000A060D028140A0600A46AF53A1C0E06001C3E1414141414081C3E1C1C1C1C1C0805060B142850600005060F1C3A756A040000027F837F02000000027FFF7F020000605028140B0605006070385CAF5625]→Str2::Lbl SWD:If {{L1}+208}: {{L1}+208}-1→{{L1}+208}: 1→{{L1}+204}: !If {{L1}+208}: 0→{{L1}+204}: End: Return: End: {{L1}+204}+1→{{L1}+204}:If {{L1}+204}≥45 and (getKey(54)=0):0→{{L1}+200}:20→{{L1}+208}:Return: ElseIf {{L1}+204}>0 and ({{L1}+204}<16): !If D:7→{{L1}+214}: Plot1X-7,Y+1,Str2+112: Else!If D-1:1→{{L1}+214}: Plot1X+7,Y+1,Str2+16: Else!If D-2:3→{{L1}+214}: Plot1X+7,Y+15,Str2+48: Else!If D-3:5→{{L1}+214}: Plot1X-7,Y+15,Str2+80: End: 0→{{L1}+200}: {{L1}+204}+1→{{L1}+204}: Else:If {{L1}+204}>200 and (getKey(54)):0→{{L1}+204}+1→{{L1}+206}:Return:End::!If D:0→{{L1}+214}:Plot1X,Y,Str2:Else!If D-1:2→{{L1}+214}:Plot1X+7,Y+8,Str2+32:Else!If D-2:4→{{L1}+214}:Plot1X,Y+16,Str2+64:Else!If D-3:6→{{L1}+214}:Plot1X-7,Y+8,Str2+96:End:{{L1}+204}+2→{{L1}+204}:1→{{L1}+200}:End:Return::::Lbl SPN:0→{{L1}+204}:If getKey(54) and ({{L1}+206}≤2):rand^3→R:R+1→R:!If D:0→{{L1}+214}:If R=1 or (R=3):Pt-On(X,Y,Str2+8:End:If R≥2:Pt-On(X,Y,Str2+8){^r}:End:Else!If D-1:2→{{L1}+214}:If R=1 or (R=3):Pt-On(X+7,Y+8,Str2+40:End:If R≥2:Pt-On(X+7,Y+8,Str2+40){^r}:End:Else!If D-2:4→{{L1}+214}:If R=1 or (R=3):Pt-On(X,Y+16,Str2+72:End:If R≥2:Pt-On(X,Y+16,Str2+72){^r}:End:Else!If D-3:6→{{L1}+214}:If R=1 or (R=3):Pt-On(X-7,Y+8,Str2+104:End:If R≥2:Pt-On(X-7,Y+8,Str2+104){^r}:End:End:Return:End::If {{L1}+206}<5 and ({{L1}+206}>0):0→D→{{L1}+214}:Plot1X,Y,Str2:ElseIf {{L1}+206}<10:1→{{L1}+214}→D:Plot1X+7,Y+1,Str2+16:ElseIf {{L1}+206}<15:2→{{L1}+214}:1→D:Plot1X+8,Y+8,Str2+32:ElseIf {{L1}+206}<20:3→{{L1}+214}:2→D:Plot1X+7,Y+15,Str2+48:ElseIf {{L1}+206}<25:2→D:4→{{L1}+214}:Plot1X,Y+16,Str2+64:ElseIf {{L1}+206}<30:5→{{L1}+214}:3→D:Plot1X-7,Y+15,Str2+80:ElseIf {{L1}+206}<35:6→{{L1}+214}:3→D:Plot1X-7,Y+8,Str2+96:ElseIf {{L1}+206}<40:7→{{L1}+214}:0→D:Plot1X-7,Y+1,Str2+112:ElseIf {{L1}+206}<45:0→{{L1}+214}:0→D:Plot1X,Y,Str2:End::{{L1}+206}+1→{{L1}+206}:If {{L1}+206}≥45:0→{{L1}+206}:End:Return
:.TITLE:Lbl 3:64→A:0→C:sub(A:FnOff :Fix 3::!If Full:ClrHome:Disp "NEED A TI-83+ SE",{i},"OR HIGHER...":End::Fix 5:[00648A8A8A8A640000CEA4A4A4A4A40000EC4A4A4A4AEA0000AEA8ACA8A8EE00]→Str3:[00CEA8ACA8A8AE0000888888A8A850000044AA8AEEAA6A000053AAAB8A8A8B000080000000008000]→Str4:[00607EFFFF7E600060FEFFC1C1FFFE60]→Str5::Repeat getKey(15):Pause 6::A+1→A:!If A-255:64→A:End::conj(U,{L6},768:conj(V,{L3},768::If getKey(0):If getKey(10):DrawInv {^r}:conj({L3},V,768:End:If getKey(48):If getKey(4) and (M>0):M-1→M:ElseIf getKey(1) and (M<23):M+1→M:End:End:If getKey(1):1→C:ElseIf getKey(4):0→C:End:End::Plot146,C*8+47,Str5:::Pxl-Off(80,3:Pxl-Off(30,9){^r}:Pxl-Off(2,30:Pxl-Off(2,30){^r}:Pxl-Off(61,22:::!If A/64:Pxl-Off(5,5:Pxl-Off(5,5){^r}:Pxl-Off(85,45:Pt-Off(89,25,[FFBFFFFFFFFFFFFF]:Pt-Off(45,3,[DFDF27DFDFFFFFFF]:::Else!If A/64-1:Pxl-Off(5,5:Pxl-Off(85,45){^r}:Pt-Off(40,32,[FFBFFFFFFFFFFFFF]:Pt-Off(45,3,[FFAFDFAFFFFFFFFF]:::Else!If A/64-2:Pxl-Off(5,5){^r}:Pt-Off(40,32,[BF1FBFFFFFFFFFFF]:Pt-Off(89,25,[FFBFFFFFFFFFFFFF]:Pt-Off(45,3,[FFFFDFFFFFFFFFFF]::Else:Pxl-Off(5,5:Pxl-Off(85,45){^r}:Pt-Off(40,32,[FFBFFFFFFFFFFFFF]:Pt-Off(89,25,[BF1FBFFFFFFFFFFF]:Pt-Off(45,3,[DFDF27DFDFFFFFFF]::End:::!If (M+8/8)-1:Normal:DispGraph{^r}{^r}:Full:Else!If (M+8/8)-2:Normal:DispGraph{^r}:Full:Else:DispGraph:End:If getKey(54):Goto 1:End:End:Fix 2:Return::Lbl 1:!If C:!If GetCalc("vTaNFsave",{Y1}):!If GetCalc("vTaNFsave"):ClrDraw:DrawInv :StorePic :DispGraph:While getKey(54):End:Pause 1500:Text(5,5,"No save-state file has been":Text(5,11,"detected. Would you like":Text(5,17,"to start a new game?":StorePic :DispGraph:Pause 1500:0→D:Repeat getKey(54):RecallPic :Text(20,30,"Yes":Text(20,38,"No":If getKey(4):0→D:ElseIf getKey(1):1→D:End:Pt-Off(12,D*8+30,[FFF7E3E1E1E3F7FF]::If getKey(54):While getKey(54):End:!If D:Goto 2:Else:Goto 3:End:End::DispGraphClrDraw:End:Fix 2:End:End:::Else:Lbl 2::::End::DelVar "vA":DelVar "vB":Return:::::::.DATA:::[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]→Str1:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]:[FFFFFFFFFFFFFFFFFFFFFFFFFFF1E3FF]:[FFFFFFFFFFF7FFFFFFEE1DFFF073FFFE]:[E657FFFFFFE805FFFDFFFFFEF2F7FFFF]:[FFF61BFFFD827C88F4953FFFFFF9E7FF]:[FDD9BAA6F6D2DFFFFFFE1FFFF8927C28]:[E6853FFFFFFFFFFFFFFFFFFFFFFFFFFF]:[FFFCFFFFFFFFFFFFFFFFFFFFFFFD7FFF]:[FFFFFFFFFFFFFFFFFFFDFFFFFFFFFFFF]:[FFFFFFFFFFFCFFFFFFFFFFFFFFFFFFFF]:[FFFC9FF01E3EFF7FC1CE607FFFFCFFF7]:[FC3CFE7FF7CCEF3FFFFDFFF7FD3DFE7F]:[EF8CDFFFFFFD7FE07B39FC7FCFAD9FFF]:[FFFDFFCFE739FCFFDF2D98FFFFFDBFCF]:[E03BFDFFBE63BCFFFFFCFFDFDF37FBFF]:[3EF39CFFFFFDFFDF9F30180E0EF381FF]:[FFFC7FFFFFFFFFFFFFFFFFFFFFFDFFFF]:[FFFFFFFFFFFFFFFFFFFD7FFFFFFFFFFF]:[FFFFFFFFFFFD7FFFFFFFFFFFFFFFFFFF]:[FFFC7FFFFFFFFFFFFFFFFFFFFFFFFFFF]:[FFFFFFFFFFFFFFFFFFFDFFFFFFFFFFFF]:[FFFFFFFFFFFB3FFFFFFFFFFFFFFFFFFF]:[F887CAD7FFFFFFFFFFFFFFFFE5AEFF7F]:[FFFFFFFFFFFFFFFFF1FFDFFFFFFFFFFF]:[E07FFFFFFFF7FBFFFFFFFFFF000FFFFF]:[FFF807FFFFFFFFFC0003FFFFFFF8C7FF]:[FFFFFFFC0003FFFFFFF8C7FFFFFFFFF8]:[0001FFFF000844000000000000000000]:[00084400000000000000000000104400]:[0000000000000000001045F9CF00FC00]:[00000000166043FFFFFFFF39FC000000]:[FFF041FFFFFFFFFFFE0F9400FFF04159]:[59595BFFFFFFFE8F6560431595B73559]:[5BFFFFFFDCD042F3736AEB3736B2B7FF]:[56A0412EAEA92AEAEA6E6D65CDA04392]:[92B2B2B129D5D4DCBAD042BB7B6E6E6F]:[959593AB4AB0436AEACDD5D6B3736CA4]:[ED204352B2B252516EAE9EDEAB604166]:[6E6F6F6A529292BA52604315D5D55D59]:[7B7B752596D042F2525292972AEA5656]:[56A0432F6F6CB4B2D494CDCDCDA04395]:[5D5AB2B125A5BABABAD042BA92966E6F]:[95954A4A4AB0416CB4B5D5D6B373EDED]:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]→Str2:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]:[FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]:[FFF003FFFFFFFFFFFFFFFFFFFFEE1DFF]:[FFFFFFFFFFFFFFFFFFF143FFFFFFFFFF]:[FFFFFFFFFFF393FFFFFFFFFFFFFFFFFF]:[FFE845FFFFFFFFFFFFFFFFFFFFF61BFF]:[FFFFFFFFFFFFFFFFFFF9E7FFFFFFFFFF]:[FFFFFFFFFFFC0FFFFFFFFFFFFFFFFFFF]:[FFFF0FFFFFFFFFFFFFFFFFFFFFFF8FFF]:[FFFFFFFFFFFFFFFFFFFF0FFFFFFFFFFF]:[FFFFFFFFFFFF0FFFFFFFFFFFFFFFFFFF]:[FFFF6FFFE7DF3F9FFE739F9FFFFF0FF9]:[FFDF3F9FF8F333CFFFFE0FF9FEDE7F9F]:[F3F327FFFFFE8FFF9CDE7F9FF3D267FF]:[FFFE0FF3F9DE7F3FE7D2673FFFFE4FF3]:[FFDCFE7FCF9CCF3FFFFF0FE7E7D9FCFF]:[CF3CE73FFFFE0FE7E7DFE7F3F3D9FCFF]:[FFFF8FFFFFFFFFFFFFFFFFFFFFFF0FFF]:[FFFFFFFFFFFFFFFFFFFE8FFFFFFFFFFF]:[FFFFFFFFFFFE8FFFFFFFFFFFFFFFFFFF]:[FFFF8FFFFFFFFFFFFFFFFFFFFFFF0FFF]:[FFFFFFFFFFFFFFFFFFFE0FFFFFFFFFFF]:[FFFFFFFFFFFCC7FFFFFFFFFFFFFFFFFF]:[F778352BFFFFFFFFFFFFFFFFFA510081]:[FFFFFFFFE07FFFFFFE002003FFFFFFFF]:[000FFFFFFFF807FFFFFFFFFC0003FFFF]:[FFFFFFFFFFFFFFF80001FFFFFFFF2FFF]:[FFFFFFF80001FFFFFFFD27FFFFFFFFF0]:[0000FFFFFFF9B7FFFFFFFFFFFFFFFFFF]:[FFFB37FFFFFFFFFFFFFFFFFFFFF137FF]:[FFFFFFFFFFFFFFFFFFF3A7FFFFFFFFFF]:[FFFFFFFFFFF2B20638FF03FFFFFFFFFF]:[E992AE00000000C603FFFFFF0003B626]:[2626240001F06BFF9893B0E26240C226]:[240001700301A10C0C0100C0C04C4800]:[8903B85010145501018180983053A005]:[454C4C4C560203034020A04080818180]:[22626C04150AB084041202004C0C1151]:[024BB42C4C48A8AA901000201093B611]:[8180101505456101A493A4E202008086]:[00808A4A4901A508A8AD2520C4048989]:[8903A05010124A4929293030305B3000]:[80844C4C52524040402B344525218180]:[22621515150B32824A4A02004C0C0202]::Lbl A:If GetCalc("vA"):DelVar "vA":End:If GetCalc("vB"):DelVar "vB":End:GetCalc("vA",768)→U:GetCalc("vB",768)→V:conj(Str1,U,768:conj(Str2,V,768:conj(U,{L6},768:conj(V,{L3},768:ref(54,46,37,18:ref(54,46,37,18){^r}:rref(55,47,35,16:rref(55,47,35,16){^r}::For(A,0,3:Pt-On(A*8+56,47,A*8+Str3:End:For(A,0,4:Pt-On(A*8+56,55,A*8+Str4:End:::conj({L6},U,768:conj({L3},V,768:Return
Another revival! This is great. I hope you finish it Does everyone have spring break this week or something?
* Qwerty.55 is disappointed not to see 1500 byte menu screen graphics
Author
Topic: Trio and Niko (Read 133164 times)
