0 Members and 7 Guests are viewing this topic.
You have to manually put brackets around each line. For some odd reason sc doesn't do them, I'm guessing because it merges Axe and BASIC tho they're completely different.Anyway "PART_1" is the front buffer, "PART_2" is the back.Once you put the brackets around each line (which is easier to do on a computer btw ) you could run it through sc again to get the 8xp to send to the calc. On the first line store a pointer, then use a Copy() or similar to copy to L6 and/or just DispGraph from there.
:If <S1>: <B1>:ElseIf <S2>: <B2>:ElseIf <S3>: <B3>:...
:MySub():Lbl MySub:If <S1>: <B1>: Return:End:If <S2>: <B2>: Return:End:If <S3>: <B3>: Return:End:...
If A=1Text(1,16,"YOU HAVE BEEN GIVEN A GUN."Text(1,24,"GO AND TEST IT OUT."Text(1,32,"DESTROY 2 ENEMIES")ElseIf A=2Text(1,16,"BATTLE MORE."Text(1,24,"DEFEAT 6 ENEMIES"ElseIf A=3Text(1,16,"THERE ARE 3 ENEMIES"Text(1,24,"THEY ARE FAST"ElseIf A=4Text(1,16,"THE NEW GUN IS READY"Text(1,24,"BUY THE WEAPON FROM THE"Text(1,32,"UPGRADE MENU"ElseIf A=5Text(1,16,"THERE ARE 10 GUARDS"Text(1,24,"DEFEAT THEM TO CONTINUE"ElseIf A=6Text(1,16,"THIS PLACE HAS ENEMIES THAT"Text(1,24,"WILL BE AS FAST AS YOU."Text(1,32,"KILL 4"ElseIf A=7Text(1,16,"NOW, BUY THE NEXT WEAPON"Text(1,24,"FROM THE UPGRADE MENU"ElseIf A=8Text(1,16,"GOOD. YOU NOW MUST KILL"Text(1,24,"10 ENEMIES"ElseIf A=9Text(1,16,"UPGRADE MORE."Text(1,24,"GET THE NEXT GUN"ElseIf A=10Text(1,16,"DEFEAT 10 FASTER ENEMIES"Text(1,24,"USING YOUR NEW WEAPON."ElseIf A=11Text(1,16,"DEFEAT 5 MORE ENEMIES"Text(1,24,"TO CONTINUE"ElseIf A=12Text(1,16,"GET THE NEXT GUN"Text(1,24,"FROM THE UPGRADE MENU"ElseIf A=13Text(1,16,"DEFEAT 10 FAST ENEMIES"Text(1,24,"THEY WILL BE AS FAST AS YOU"ElseIf A=14Text(1,16,"DEFEAT 5 MORE ENEMIES"Text(1,24,"THEY'RE REALLY FAST"EndIf A=15Text(1,16,"GET THE LAST"Text(1,24,"FROM THE UPGRADE MENU!"ElseIf A=16Text(1,16,"NOW ITS NIGHT TIME."Text(1,24,"KILL 20 ENEMIES!"ElseIf A=17Text(1,16,"MIDNIGHT:"Text(1,24,"KILL EVERYTHING. ALL 35"Text(1,32,"THEY ARE SUPER FAST"EndText(1,56,"Push On"Repeat getKey(41)If getKey(15)Goto CEndEndFix 5If A=1GAME(0,2,0,4,3,1ElseIf A=2GAME(0,6,0,4,3,1ElseIf A=3GAME(0,3,0,4,1,1ElseIf A=4GAME(0,0,1,4,3,1ElseIf A=5GAME(0,10,1,3,3,1ElseIf A=6GAME(0,4,1,1,3,1ElseIf A=7GAME(0,0,2,3,3,1ElseIf A=8GAME(0,10,2,3,3,1ElseIf A=9GAME(0,0,3,3,3,1ElseIf A=10GAME(10,0,3,1,3,1ElseIf A=11GAME(5,0,3,2,3,1ElseIf A=12GAME(0,0,4,2,3,1ElseIf A=13GAME(10,0,4,1,3,1ElseIf A=14GAME(7,0,4,1,3,2EndIf A=15GAME(0,0,5,1,3,1ElseIf A=16GAME(20,0,5,1,3,2ElseIf A=17GAME(35,0,5,1,3,3
Am I doing this right?"appvBLARG"→Str1GetCalc(Str1,123)→oVAR255→oVAR!If oVAR-255.if equal to 255Disp "Yay"ElseDisp "Noes"End