Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Falls Schlange die Begrenzungen des Spielfeldes (Rechteck) überschreitet, erfolgt Lebensabzug und
- 'Neuplatzierung des Schlangenkopfes
- If a<50 or a>1000 or b<80 or b>700 then
- If a<>0 and b<>0 then
- pset (a,b),bckcl
- draw string (340,50),str(pu),bckcl
- pu=pu-10
- draw string (340,50),str(pu),lttcl3
- print "li vor subtraktion:";li
- li=li-1
- print "li nach subtraktion:";li
- Print "nach li=li-1"
- sleep
- 'Völlig abgrdreht: Ich fühle mich vom Compiler veraeppelt.
- 'Lebensabzug li=li-1 ausgeführt, aber keine frontlinenr-Operationen.
- 'wegoptimiert????
- snline(frontlinenr,2)=a
- snline(frontlinenr,3)=b
- 'Der Ort des letzten Punktes wird zum Endpunkt, sonst kommt die Linie durcheinander
- 'Operation muss vor einem Sprung zum Label outofb geschehen, da bei outofb die Variablen
- 'a und b umdefiniert werden
- '
- 'Problem:Frontlinenr wird scheinbar nicht erhöht, wenn Schlange auftrifft
- print "vor if:",li
- If li<=0 then
- print "in if:",li
- draw string (470,150),"THE END 2",lttcl2
- if ch=2 and le=0 then goto tet2
- sleep 2000
- print "vor sprungbefehl goto tet"
- sleep
- goto tet
- print "nach sprungbefehl goto tet"
- sleep
- end if
- 'line (51,81)-(999,699),bckcl,BF
- for i=1 to l
- pset (ca(i),cb(i)),lttcl2
- next
- line (ba,bb)-(ba+big,bb+big),lttcl2,bF
- print "vor sprungbefehl goto outofb"
- sleep
- goto outofb
- print "nach sprungbefehl goto outofb"
- sleep
- end if
- a=500
- b=500
- print "vor if-anweisung"
- 'Das Linienmanagement muss eine neue Linie anlegen
- if frontlinenr<(MAXLINES-MAXLINESSECURITYAMOUNT) then
- print "frontlinenr nach aufprall erhoeht von ";frontlinenr;
- frontlinenr=frontlinenr+1
- print " auf ";frontlinenr;
- sleep 10000,1
- sleep 5000
- snline(frontlinenr,0)=a
- snline(frontlinenr,1)=b
- elseif snline (0,0)=0 then
- print "frontlinenr nach aufprall geaendert von ";frontlinenr;
- frontlinenr=0
- print " auf ";frontlinenr;
- sleep 10000,1
- sleep 5000
- snline(frontlinenr,0)=a
- snline(frontlinenr,1)=b
- else
- Print "Fehler beim Linienmanagement! Zu viele Linien. Taste druecken zum Beenden."
- sleep 10000,1
- sleep 10000
- end
- end if
- snline(frontlinenr,2)=a
- snline(frontlinenr,3)=b
- snline(frontlinenr,4)=c
- end if
- end if
Add Comment
Please, Sign In to add comment