0 Members and 4 Guests are viewing this topic.
::"FIREWORKS:getKey:ClrHome:4→X:8→Y:4→Z:Lbl A:Output(1,1,"::::FIREWORK::::":Output(2,5,"{-}{-}{-}{-}{-}{-}{-}{-}":Output(4,5,"EXPLODE!":Output(5,5,"QUIT":Output(8,1,"................":Output(Z,4,"[":Output(Z,13,"]":While 1:getKey→B:While B=0:getKey→B:End:If B=25:Goto UP:If B=34:Goto DN:If B=105:Goto EN:If B=45:Goto X:If B≠25 or 34 or 105 or 45:Goto A:Lbl UP:Output(Z,4," ":Output(Z,13," ":Z-1→Z:If Z=3:5→Z:Goto A:Lbl DN:Output(Z,4," ":Output(Z,13," ":Z+1→Z:If Z=6:4→Z:Goto A:Lbl EN:If Z=4:Goto EX:If Z=5:Goto X:End:Lbl EX:ClrHome:For(A,0,100:Output(X,Y,"{box}:End:8→V:Lbl PI:getKey:Output(8,V,"π":While 1:getKey→B:While B=0:getKey→B:End:If B=24:Goto LT:If B=26:Goto RT:If B=105:Goto ST:If B≠24 or 35 or 105:Goto PI:End:Lbl LT:Output(8,V," ":V-1→V:If V=1:2→V:Goto PI:End:Lbl RT:Output(8,V," ":V+1→V:If V=16:15→V:Goto PI:End:Lbl ST:If V=8:Goto BO:If V≠8:For(A,0,20:Output(7,V,"º:End:For(A,0,20:Output(6,V,"º:Output(7,V," :End:For(A,0,20:Output(5,V,"º:Output(6,V," :End:For(A,0,20:Output(4,V,"º:Output(5,V," :End:For(A,0,20:Output(3,V,"º:Output(4,V," :End:For(A,0,20:Output(2,V,"º:Output(3,V," :End:For(A,0,20:Output(1,V,"º:Output(2,V," :End:For(A,0,20:Output(1,V," :End:ClrHome:Output(1,1,":Return:Lbl BO:For(A,0,20:Output(7,8,"º:End:For(A,0,20:Output(6,8,"º:Output(7,8," :End:For(A,0,20:Output(5,8,"º:Output(6,8," :End:For(A,0,5:Output(5,8," :Output(4,8," :Output(3,7,"*:Output(5,9,"*:Output(5,7,"*:Output(3,9,"*:End:ClrHome:For(A,0,5:Output(8,V,"π:Output(2,6,"*:Output(6,10,"*:Output(6,6,"*:Output(2,10,"*:Output(1,8,"*:Output(4,5,"*:Output(4,11,"*:End:ClrHome:For(A,0,5:Output(8,V,"π:Output(3,5,"*:Output(7,9,"*:Output(7,7,"*:Output(1,9,"*:Output(2,7,"*:Output(5,4,"*:Output(5,12,"*:End:ClrHome:For(A,0,5:Output(8,V,"π:Output(4,7,"*:Output(8,8,"*:Output(8,6,"*:Output(2,10,"*:Output(3,8,"*:Output(6,5,"*:Output(6,11,"*:End:ClrHome:For(A,0,5:Output(8,V,"π:Output(5,8,"*:Output(3,9,"*:Output(4,9,"*:Output(7,4,"*:Output(7,6,"*:End:ClrHome:For(A,0,5:Output(8,V,"π:Output(6,9,"*:Output(4,8,"*:Output(5,10,"*:Output(8,3,"*:Output(8,9,"*:End:ClrHome:For(A,0,5:Output(8,V,"π:Output(7,8,"*:Output(5,9,"*:Output(6,9,"*:End:ClrHome:For(A,0,5:Output(8,V,"π:Output(8,9,"*:Output(6,8,"*:Output(7,10,"*:End:ClrHome:For(A,0,5:Output(8,V,"π:Output(7,9,"*:Output(8,11,"*:End:ClrHome:For(A,0,9:Output(8,V,"π:Output(8,8,"*:End:For(A,0,10:Output(8,8," :End:Return:Lbl X:ClrHome:Output(1,1,":Generated by SourceCoder (http://sc.cemetech.net)© 2005-2010 Cemetech (http://www.cemetech.net)
You made this: http://www.ticalc.org/archives/files/fileinfo/412/41215.htmlIt makes me so sad. I was such a noob, all the different areas have their own copies of the RPG Starter Kit (Meaning their own map set, movement engine and event program). This could have easily been astronomically smaller. It also might have helped if I'd actually beaten FF4 before I tried to make a sequel.
For(A,1,95)For(B,1,63)Pxl-On(B,A)EndEnd
/\or you can just use the Horizontal command/\
I wrote a 17k program that inverted the screen.Still on ticalc, if anyone wants to find it.