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