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
: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