Program Rant (stretches screen)
» > >
»
» View previous topic :: View next topic  
Are there some people that really make you angry? Write some code about it! There's this really annoying kid in my math class that just kept pushing my buttons. I decided to make a program about it. It's a pretty funny program, and everyone loves it. I get comments like, "Whoa how did you do that!" Here is the code:
BASIC Code wrote:
::"Death's Head
:ClrHome
:Output(4,3,"LOADING...
:AxesOff
:CoordOff
:GridOff
:LabelOff
:ExprOff
:FnOff
:PlotsOff
:ClrDraw
:0→Xmin
:0→Ymin
:96→Xmax
:64→YMax
:0,1,0,6,5,4,3,2,1,0,7,0,6,5,4,3,2,1,0,1,0,0→∟A
:0,1,1,2,2,2,2,2,2,2,3,3,4,4,4,4,4,4,4,5,5,6→∟B
:17,13,27,26,25,24,23,22,21,18,16,15,14,12,9,8,7,6,5,4,3,27,25,23,21,18,17,13,12,9,7,5,3,27,26,25,24,23,22,21,19,11,9,8,7,6,5,4,3,25,23,21,18,17,13,12,9,7,5,25,23,21,16,15,14,9,7,5,26,25,24,23,22,8,7,6,5,4,26,22,8,4,26,22,16,15,8,4,26,22,17,14,8,4,26,22,17,14,8,4,26,22,16,15,14,13,8,4,26,22,14,13,8,4,26,22,12,8,4,26,22,8,4,26,16,15,14,4,25,24,17,13,6,5,23,22,21,18,12,9,8,7,20,19,18,17,13,12,11,10,16,14,16,15,14,16,15,14,17,13,19,18,16,15,14,12,11,20,10,21,20,16,9,8,22,21,20,15,10,9,8,22,20,18,17,16,14,13,12,10,8,21,20,19,18,16,15,14,12,11,10,9,20,18,17,16,14,13,12,10,20,19,18,17,16,15,14,13,12,11,10,20,19,18,17,16,15,14,13,12,11,10→L1
:0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,6,7,7,7,7,8,8,8,8,8,8,9,9,9,9,9,9,10,10,10,10,10,10,11,11,11,11,11,11,11,11,12,12,12,12,12,12,13,13,13,13,13,14,14,14,14,15,15,15,15,15,16,16,16,16,16,16,17,17,17,17,17,17,17,17,18,18,18,18,18,18,18,18,19,19,20,20,20,21,21,21,22,22,23,23,23,23,23,23,23,24,24,25,25,25,25,25,26,26,26,26,26,26,26,27,27,27,27,27,27,27,27,27,27,28,28,28,28,28,28,28,28,28,28,28,29,29,29,29,29,29,29,29,30,30,30,30,30,30,30,30,30,30,30,31,31,31,31,31,31,31,31,31,31,31→L2
:ClrHome
:1→dim(∟E
:1→dim(∟F
:augment(∟E,L1+64→∟E
:augment(∟F,L2→∟F
:Plot1Scatter ,∟E,∟F,∙
:Text(21,63,"STEFANO
:StorePic 1
:DelVar ADelVar BstartTmr→A
:Repeat 80≤B
:1→dim(∟C
:1→dim(∟D
:augment(∟C,∟A+B→∟C
:augment(∟D,∟B+24→∟D
:Plot1Scatter ,∟C,∟D,∙
:RecallPic 1
:B+8→B
:End
:Text(21,5,"BOOM! HEADSHOT!
:For(A,0,200
:Text(randInt(30,56),randInt(64,90),"*
:End
:getKey
:Repeat Ans
:Text(‾1,10,10,"OHHHHHHHH!
:Text(‾1,10,10,"                    
:getKey
:End
:PlotsOff
:ClrDraw
:DelVar ADelVar BDelVar CDelVar Pic1DelVar ∟C
:DelVar ∟D
:DelVar ∟E
:DelVar ∟F
:Output(1,1,"
Generated by SourceCoder, © 2005 Cemetech
Check the links:



Please help save Stargate SG-1.
sourcecoder seems to have removed your {
fun idea though.
<- Please Support on Lego Ideas
It is extremely fun. A great stress reliever. I wrote a similiar program that uses Omnicalc to improve speed. I didn't use Xlib because I don't have it on my calc and I already had Omnicalc installed.
Check the links:



Please help save Stargate SG-1.
elfprince13 wrote:
sourcecoder seems to have removed your {
fun idea though.

[[known SC2 issue]]

Laughing I'd be careful with something like that if I were you...
What kind of program is that? Surprised Mad
Allergic to morons? Don't click here. >(v')

Tell you what...I think I shall close this. Anyone disagree?
  
Program Rant (stretches screen)
»
» View previous topic :: View next topic  
Page 1 of 1
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement