Genre: Geschicklichkeit
Erschienen:
2003
Größe: ---
____________________________________
:: XS 1 als Code !::
Screenshots:
Klicke auf die Screenshots um eine große Version zu sehen.
Code:
rem ------------------------------------------------
rem ------------------------------------------------
rem Das hier ist Xtreme Skill 1, allerdings benötigt
rem es keine Resourcen und speichert deinen Rekord.
rem Code By Bastian Hoff
rem Angefangen:24.07.03
rem Beendet :24.07.03
rem -------------------------------------------------
hide mouse
rem Die punkte saverei --
dim score(1)
load array "score",score(1)
anfang:
cls
wait 100
if p=>score(1)
score(1)=p
endif
save array "score",score(1)
rem Voreinstellungen
aus=0
p=0
y=100
x=50
x2=100
y2=120
a=640
b=rnd(370)+30
c=b+50
d=340
e=rnd(370)+30
f=e+50
speed=5
n=100
stufe=1
rem -------------
set text size 10
sync on:sync rate 0
text 600,400,"Code von Bastian"
do
cls
ink rgb(0,0,200),1
rem Steuerung per Maus wie bei XS1
if mouseclick()=0
if aus=0
y=y+3
y2=y2+3
endif
endif
if mouseclick()=1
if aus=0
y=y-2
y2=y2-2
endif
endif
rem ------------------------------
rem Die Positionierung der Spieler Box
box x,y,x2,y2
rem und der Gegner Box
a=a-speed
d=d-speed
if a=<20 then gosub box1posi
if d=<20 then gosub box2posi
box a,b,a+50,c
box d,e,d+50,f
rem Die "Kollisions-Abfrage" :)
if x2=>a and y2=>b and y=<c
ende()
gosub anfang
endif
rem -
if x2=>d and y2=>e and y=<f
ende()
gosub anfang
endif
rem -
if y=<30
ende()
gosub anfang
endif
if y2=>439
ende()
gosub anfang
endif
rem Die begrenzungen --
ink rgb(200,0,0),1
box 0,0,639,30
box 0,450,639,479
rem Die Punkte Anzeigen ___
ink rgb(0,200,0),1
line 0,20,639,20
text 0,0,"Punkte: "+str$(p)
text 200,0,"Stufe: "+str$(stufe)
text 300,0,"Rekord: "+str$(score(1))
p=p+1
rem Werbung ______
text 500,460,"Code By Bastian"
rem --Speed erhöhung --
if p=n
speed=speed+1
n=n+100
stufe=stufe+1
endif
rem -------------------
sync
loop
rem -----------------------
function ende()
ink rgb(200,0,0),1
set text size 100
text 70,210,"Game Over !"
wait 2000
endfunction
rem Die Neu-Positionierung
box1posi:
a=640
b=rnd(370)+30
c=b+50
return
rem -
box2posi:
d=640
e=rnd(370)+30
f=e+50
return