sure ill still help but not make my game -nt-

Subject:

Comments:
: : : cls : : : Input Cow$ : : : Let Cow1$ = "a" : : : If Cow$ = Cow1$ then : : : cls : : : For q = 1 To 25 : : : For dot = 1 to 1000 : : : x = Random(0,320) : : : y = Random(0,240) : : : c = Random(0,236) : : : Color c : : : PSet x,y : : : Next dot : : : Next Q : : : Endif : : : cls : : : Gosub Linecolor : : : Let Circl = 0 : : : let super = 1 : : : Let Q = 2 : : : Let RectYN = 1 : : : Let m = 0 : : : Let Rect$ = "N/A" : : : Let C = 1 : : : Let Circlesize = 1 : : : Let Rectsize = 1 : : : cish: : : : line 275,0 To 275,250 : : : rect 276,30 To 290,40 : : : rect 290,30 To 304,40 : : : Gosub ColorBox : : : rect 276,40 To 290,50 : : : rect 290,40 To 304,50 : : : rect 304,40 To 318,50 : : : rect 276,50 To 290,60 : : : rect 290,50 To 304,60 : : : rect 304,50 To 318,60 : : : While super : : : SetTextLayer(TEXT) : : : TextColor 21 'Black Is Black : : : Position 34,4 : : : print "R Size" : : : Position 35,5 : : : Print Rectsize : : : Position 35,6 : : : Print "Rect" : : : Position 34,7 : : : Print Rect$ : : : Color C : : : If ClickRect (276,50 To 290,60) Then : : : If m = 0 Then : : : Let Circl = 1 : : : Let m = 1 : : : Let RectYN = 1 : : : Goto Done3 : : : endif : : : If m = 1 Then : : : Let Circl = 2 : : : Let m = 2 : : : Let RectYN = 1 : : : Goto Done3 : : : endif : : : If m = 2 Then : : : Let Circl = 0 : : : Let m = 0 : : : Let RectYN = 1 : : : Goto Done3 : : : endif : : : endif : : : If ClickRect (290,50 To 304,60) Then : : : Circlesize = Circlesize + 1 : : : endif : : : If ClickRect (304,50 To 318,60) Then : : : Circlesize = Circlesize - 1 : : : endif : : : If ClickRect (276,40 To 290,50) Then : : : If Q = 2 Then : : : Let RectYN = 0 : : : Let Rect$ = "Outline" : : : Let Q = 0 : : : Let Circl = 0 : : : Goto Done3 : : : endif : : : If Q = 0 Then : : : Let Q =1 : : : Let Rect$ = "Fill" : : : Let RectYN = 1 : : : Let Circl = 0 : : : goto Done3 : : : endif : : : If Q = 1 Then : : : Let Q =2 : : : Let Rect$ = "N/A" : : : Let RectYN = 2 : : : Let Circl = 0 : : : Done3: : : : endif : : : Endif : : : If Clickrect (290,40 To 304,50) Then : : : Let Rectsize = Rectsize + 1 : : : endif : : : If Clickrect (304,40 To 318,50) Then : : : If Rectsize = 0 Then : : : Goto Don6 : : : Endif : : : RectSize = Rectsize - 1 : : : Don6: : : : endif : : : If ClickRect (276,30 To 290,40) Then : : : If C = 235 Then : : : banner"No Can do" : : : Goto Nope1 : : : endif : : : C = C + 1 : : : Gosub ColorBox : : : endif : : : If ClickRect (290,30 To 304,40) Then : : : If C = 0 Then : : : banner"No Can do" : : : Goto Nope2 : : : endif : : : C = C - 1 : : : Gosub ColorBox : : : Nope2: : : : endif : : : : : : If Button Then : : : If MouseX > 275 Then : : : Goto Nodraw : : : endif : : : If Circl = 1 Then : : : If Mousex + Circlesize > 275 Then : : : Goto Nodraw : : : Endif : : : Circle MouseX,MouseY,Circlesize : : : Goto nodraw : : : endif : : : If Circl = 2 Then : : : If Mousex + Circlesize > 275 Then : : : Goto Nodraw : : : endif : : : FillCircle MouseX,MouseY,Circlesize : : : Goto nodraw : : : endif : : : If RectYN = 0 Then : : : If Mousex + Rectsize > 275 Then : : : Goto Nodraw : : : Endif : : : RectCord1X = MouseX - Rectsize : : : RectCord1Y = MouseY - Rectsize : : : RectCord2X = MouseX + Rectsize : : : RectCord2Y = MouseY + Rectsize : : : Rect RectCord1x,RectCord1Y To RectCord2X,RectCord2y : : : Goto Nodraw : : : endif : : : If RectYN = 2 Then : : : If Mousex + Rectsize > 275 Then : : : Goto Nodraw : : : Endif : : : RectCord1X = MouseX - Rectsize : : : RectCord1Y = MouseY - Rectsize : : : RectCord2X = MouseX + Rectsize : : : RectCord2Y = MouseY + Rectsize : : : fillRect RectCord1x,RectCord1Y To RectCord2X,RectCord2y : : : Goto Nodraw : : : endif : : : Pset Mousex,MouseY : : : Nodraw: : : : endif : : : If KeyDown ("q") or KeyDown ("Q") Then : : : Goto Done : : : endif : : : If KeyDown ("c") or KeyDown ("C") Then : : : Banner "Clearing........." : : : Cls : : : Goto Cish : : : endif : : : Wend : : : Done: : : : ColorBox: : : : Fillrect 304,30 To 318,40 : : : Return : : : LineColor: : : : C = 6 : : : Return : : : ---------------------------- : : : Welcome Jennifer. To all - As if you care but i will be stopping my rpg toolkit work for a while. : : : :=3( : : : (the three and equals are a nose)

Optional Link URL:
Link Title:
Optional Image URL: