0 Members and 1 Guest are viewing this topic.
ClrDraw.Text(1,0,"SCORE:").Text(32,0,D►Dec)Pt-On(X,Y,Pic1)Pt-On(A,B,Pic2)DispGraph
.DODGEB2 Dodge Da Blocks![3C42A5A581BD423C]→Pic1[FF81A5A581BD81FF]→Pic2DiagnosticOffClrHome48→X52→Y0→Brand/745→A1→C0→DFix 0Fix 5Repeat getKey(15)Pause 5If getKey(2) and (X≠0X-1→XEndIf getKey(3) and (X≠88X+1→XEnd!If B≥64B+C→BElseD+1→D0→Brand/745→AEndClrDrawText(1,0,"DODGED:")Text(32,0,DDec)Pt-On(X,Y,Pic1)Pt-On(A,B,Pic2)DispGraphLbl BFix 4End
.DODGEB2 Dodge Da Blocks![3C42A5A581BD423C]→Pic1[FF81A5A581BD81FF]→Pic2DiagnosticOffClrHome48→X52→Y0→Brand/745→A1→C0→DFix 0Fix 5Repeat getKey(15)Pause 5If getKey(2) and (X≠0X-1→XEndIf getKey(3) and (X≠88X+1→XEnd!If B≥64B+C→BElseD+1→D0→Brand/745→AEndClrDrawText(1,0,"DODGED:")Text(32,0,DDec)Pt-On(X,Y,Pic1)Pt-On(A,B,Pic2)DispGraphLbl BEnd
.DODGEB2 Dodge Da Blocks![3C42A5A581BD423C]→Pic1[FF81A5A581BD81FF]→Pic2DiagnosticOffClrHome48→X52→Y0→Brand/745→A1→C0→DFix 0Fix 5Repeat getKey(15)Pause 5If getKey(2) and (X≠0X-1→XEndIf getKey(3) and (X≠88X+1→XEnd!If B≥64B+C→BElseD+1→D0→Brand/745→AEndClrDrawText(1,0,"DODGED:")Text(32,0,DDec)Pt-On(X,Y,Pic1)Pt-On(A,B,Pic2)DispGraphLbl BEndFix 4
If B>44If A>(X-8) and A<(X+8)Pt-Off(X,Y,Pic3)Goto DEndEnd
If (A>(X-8)) and (A<(X+8))
If (A-X>-8) and (A-X<8)
If A-X+7 < 15