You are still a member of Mystic Software...correct? *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: