Oh yes, i forgot to show you the first one, i guess it's really not what you would expect lol, here it is:
REM Projekt: stick suicide 1
REM erstellt: 01.12.2005 13:49:57
REM
REM ***** Haupt-Quelldatei *****
cls
sync on
sync rate 60
set image colorkey 255,0,255
set display mode 1280,768,16
set image colorkey 255,0,255
cls rgb(255,255,255)
ink 0,rgb(255,255,255)
``Intro(1,500,3)
Texter("Welcome to Stick suicide!")
Texter("Try these keys:....")
Texter("Uparrow, Downarrow, Space and Return!")
rem *Variablen und Arrays
restart:
grav# = 20
big# = 7
alive = 2
``alive 2 = lebendig
``alive 1 = "ragdolling:-)"
``alive 0 = #.,-*fetz!*-,.#
geschw# = 0
gravity# = 10
speed = 60
Dim Blut(200,4)
For t = 1 to 200
Blut(t,1)=-100
Blut(t,2)=1000
Blut(t,3)= 4
Blut(t,4)= 4
next t
Dim boxen(10,4)
boxen(1,1)=0 ; boxen(1,2)=635 ; boxen(1,3)=screen width() ; boxen(1,4)=screen height()
boxen(2,1)=screen width()-50 ; boxen(2,2)=0 ; boxen(2,3)=screen width() ; boxen(2,4)=screen height()
For t = 1 to 10
if boxen(t,1)=0 and boxen(t,2)=0 then boxen(t,2)=2000
next t
Dim Wind(10) as float
Wind# = 0
Dim laufen(4)
laufen(1)=116
laufen(2)=29
laufen(3)=1
laufen(4)=1
Dim lin(10,6) as float
``lin(x,1)=x#-wert
``lin(x,2)=y#-wert
``lin(x,3)=w#(winkel)
``lin(x,4)=l#(länge)
``lin(x,5)=Masse
``lin(x,6)=rotations-schnelligkeit
``lin(12,x) für Kopf
lin(1,3) = 89 ; lin(1,4)=20
lin(2,1) = 200 ; lin(2,2)=600 ; lin(2,3)=92 ; lin(2,4)=40
lin(3,3) = 315 ; lin(3,4)=20
lin(4,3) = 50 ; lin(4,4)=20
lin(5,3) = 275 ; lin(5,4)=20
lin(6,3) = 70 ; lin(6,4)=20
lin(7,3) = 11 ; lin(7,4)=20
lin(8,3) = 300 ; lin(8,4)=20
lin(9,3) = 0 ; lin(9,4)=20
randomize rnd(1000)
randomize timer()
For t = 0 to 10
lin(t,5)=2+rnd(6)
lin(t,6)=2+rnd(6)
next t
ink 0,rgb(255,255,255)
Do
sync rate speed
cls rgb(255,255,255)
box boxen(1,1),boxen(1,2),boxen(1,3),boxen(1,4)
box boxen(2,1),boxen(2,2),boxen(2,3),boxen(2,4)
ink rgb(193,255,255),0
box boxen(1,1)+1,boxen(1,2)+1,boxen(1,3)-1,boxen(1,4)-1
box boxen(2,1)+1,boxen(2,2)+1,boxen(2,3)-1,boxen(2,4)-1
ink 0,rgb(255,255,255)
Print "fps :",screen fps()
if geschw# > 0 then inc geschw#,-1
if geschw# < 0.2 then geschw# = 0
if downkey() = 1 then gosub restart
if rightkey()=1 and alive = 2
if geschw# < 10 then inc geschw#,1.2
if laufen(4)= 0
laufen(4)=1
lin(1,3) = 89 ; lin(3,3) = 315 ; lin(4,3) = 50 ; lin(5,3) = 275 ; lin(6,3) = 70 ; lin(7,3) = 11 ; lin(8,3) = 300 ; lin(9,3) = 0
endif
if laufen(3)=1 then inc lin(1,3),4 ; inc lin(3,3),4 ; inc lin(4,3),-3 ; inc lin(5,3),-4 ; inc lin(6,3),-5 ; inc lin(8,3),5
if laufen(3)=0 then inc lin(1,3),-4 ; inc lin(3,3),-4 ; inc lin(4,3),3 ; inc lin(5,3),4 ; inc lin(6,3),5 ;inc lin(8,3),-5
if lin(1,3)>116 then laufen(3)=0
if lin(1,3)<29 then laufen(3)=1
endif
if laufen(4) = 1
For t=1 to 10
if lin(t,1)<screen width()-50 then inc lin(t,1),geschw#
next t
endif
if leftkey() and alive = 2
if geschw# < 10 then inc geschw#,1.2
if laufen(4)= 1
laufen(4)=0
lin(1,3) = 89 ; lin(3,3) = 200 ; lin(4,3) = 130 ; lin(5,3) = 250 ; lin(6,3) = 70 ; lin(7,3) = 170 ; lin(8,3) = 300 ; lin(9,3) = 180
endif
if laufen(3)=1 then inc lin(1,3),-4 ; inc lin(3,3),-4 ; inc lin(4,3),3 ; inc lin(5,3),4 ; inc lin(6,3),-5 ; inc lin(8,3),5
if laufen(3)=0 then inc lin(1,3),4 ; inc lin(3,3),4 ; inc lin(4,3),-3 ; inc lin(5,3),-4 ; inc lin(6,3),5 ;inc lin(8,3),-5
if lin(1,3)<60 then laufen(3)=0
if lin(1,3)>160 then laufen(3)=1
endif
if laufen(4) = 0
For t=1 to 10
inc lin(t,1),-geschw#
next t
endif
if upkey() and alive <>0 then inc lin(2,4),2 ; inc big#,0.5
if controlkey() then lin(5,1) = lin(7,1)+lin(7,4)*cos(lin(7,3)) ; lin(5,2) = lin(7,2)+lin(7,4)*sin(lin(7,3))
`grade Zahlen
For t = 1 to 10
lin(t,3) = wrapvalue(lin(t,3))
next t
`Stick zusammenhalten´
if alive = 1 or alive = 2
lin(10,1)=lin(2,1)-(lin(2,4)+4)*cos(lin(2,3)) ; lin(10,2) = lin(2,2)-(lin(2,4)+big#-1)*sin(lin(2,3))
lin(1,1)=lin(2,1) ; lin(1,2)=lin(2,2) ; lin(3,1) = lin(1,1)+lin(1,4)*cos(lin(1,3)) ; lin(3,2) = lin(1,2)+lin(1,4)*sin(lin(1,3))
lin(4,1)=lin(2,1) ; lin(4,2)=lin(2,2) ; lin(5,1) = lin(4,1)+lin(4,4)*cos(lin(4,3)) ; lin(5,2) = lin(4,2)+lin(4,4)*sin(lin(4,3))
lin(6,1)=lin(2,1)-(lin(2,4)-10)*cos(lin(2,3)) ; lin(6,2)=lin(2,2)-(lin(2,4)-10)*sin(lin(2,3))
lin(7,1)=lin(6,1)+lin(6,4)*cos(lin(6,3)) ; lin(7,2)=lin(6,2)+lin(6,4)*sin(lin(6,3))
lin(8,1)=lin(2,1)-(lin(2,4)-10)*cos(lin(2,3)) ; lin(8,2)=lin(2,2)-(lin(2,4)-10)*sin(lin(2,3))
lin(9,1)=lin(8,1)-lin(8,4)*cos(lin(8,3)) ; lin(9,2)=lin(8,2)-lin(8,4)*sin(lin(8,3))
endif
if returnkey()
if alive = 2
if laufen(4)=1
For t = 1 to 10
wind(t) = rnd(3)+geschw#
next t
endif
if laufen(4)=0
For t = 1 to 10
wind(t) = rnd(3)+geschw#*(-1)
next t
endif
alive = 0
endif
endif
if spacekey()
if alive = 2
if laufen(4)=1 then wind# = geschw#
if laufen(4)=0 then wind# = geschw#*(-1)
alive = 1
endif
endif
``fetz´´
if alive = 0
Text 500,450,"The End..."
Text 450,470,"Nochmal: richtungstaste unten"
inc gravity#,-0.1
For t = 1 to 10
For u = 1 to 10
if lin(t,2) < 636
inc lin(t,2),-gravity#/10
inc lin(t,1),wind(t)/10
inc lin(t,3),lin(t,6)/10
endif
next u
next t
endif
``"ragdolling"´´
if alive = 1
inc gravity#,-0.1
For t = 1 to 10
if lin(t,2) < 635
inc lin(t,2),-gravity#
inc lin(t,1),wind#
inc lin(t,3),lin(t,6)
endif
if lin(t,2) > 635 then gravity# = 3 ; alive = 0
next t
if returnkey()
For t = 1 to 10
wind(t)=wind#-2+rnd(4)
next t
alive = 0
endif
endif
if alive = 0 or alive = 1
For t = 1 to 10
if lin(t,1)> screen width()-50
bluter = t
wind(t) = wind(t)*(-0.6)
if laufen(4)=1
doing = rnd(2)
wind# = wind# * (-0.6)
if doing = 1 then lin(t,6) = lin(t,6) * (-1)
if doing = 2 then lin(2,6) = lin(2,6) * (-1)
laufen(4)=0
endif
endif
next t
endif
if controlkey()
if laufen(4)=1 then lin(7,3)=0 ; lin(6,3)=20
if laufen(4)=0 then lin(7,3)=180 ; lin(6,3)=160
endif
liner(1,1);liner(0,2);liner(0,3);liner(1,4);liner(0,5);liner(1,6);liner(1,7);liner(0,8);liner(1,9)
circle lin(10,1),lin(10,2),big#
``sprite 2,lin(7,1)+lin(7,4)*cos(lin(7,3)),lin(7,2)+lin(7,4)*sin(lin(7,3)),2
``rotate sprite 2,lin(7,3)
fastsync
Loop
return
`` r = 0 oder 1
`` t = nummer : 1-11
function liner(r,t)
if r = 1
line lin(t,1),lin(t,2),lin(t,1)+lin(t,4)*cos(lin(t,3)),lin(t,2)+lin(t,4)*sin(lin(t,3))
``ellipse lin(t,1)+lin(t,4)*cos(lin(t,3)),lin(t,2)+lin(t,4)*sin(lin(t,3)),4,3
endif
if r = 0
line lin(t,1),lin(t,2),lin(t,1)-lin(t,4)*cos(lin(t,3)),lin(t,2)-lin(t,4)*sin(lin(t,3))
``ellipse lin(t,1)-lin(t,4)*cos(lin(t,3)),lin(t,2)-lin(t,4)*sin(lin(t,3)),3,4
endif
endfunction
function Texter(string$)
set text size 30
cls rgb(255,255,255)
For t = 1 to len(string$)
color = rnd(200)
set cursor t*20,50+rnd(5)
ink rgb(color,color,color),rgb(255,255,255)
Print Mid$(string$,t);
if mid$(string$,t)="," then sleep 500
sleep 90
sync
if downkey() then set text size 12; gosub restart
next t
sleep 1000
set text size 12
endfunction
