to black
setpc [000 000 000]
end

to blue
setpc [000 000 255]
end

to box
messagebox [Created by.....] [This window was created by Finnly S.]
messagebox [Have Fun!]       [This window was created so you could make something awesome.]
setpc [000 000 000] 
;awesome flashing colors ht rt 90 pu setxy -200 80 pd repeat 8 [red Thanks wait 5 green Thanks wait 5 blue Thanks wait 5] wait 50 lt 90 st cs ct setpc [000 000 000]
cs ct 
show (list  "The   "L    "and       "R   "buttons "rotate "the    "turtle "90        "degrees "left   "or    "right.)        
show (list  "The   "F    "and       "B   "buttons "move   "the    "turtle "foward.)
show (list  "Click "the  "item      "you "want    "to     "do     "in     "the       "listbox "then   "click     "Execute.)
show (list  "Move  "the  "scrollbar "to  "the     "right  "to     "rotate "the       "turtle  "clockwise.)
show (list  "If    "you  "click     "polygon "in "the "listbox "you "need "to "type "the "number "of "sides "the "polygon "is  "in "blank "box "for "typing "then "click "execute.)
show (list  "If    "you  "click     "arc      "in "the "listbox "you "need "to "type "the "size "of "the "arc "in "the "blank "box "for "typing.)
show (list  "If    "you  "click     "a        "color "radiobutton "it "will "change "your "pen "color "after "something "is "drawn.)
show (list  "Please "scroll "up "in "the "commander "window "to  "see "the "rest "of "the "instructions.)
;put this in the brackets in the line below for a awesome looking turtle ( setfc [255 180 000] bitblock 20 20 bitcopy 20 20 cs bitmapturtle )
windowcreate      "main      "mywindow   "AutoDraw      0   0     100    290  []
buttoncreate      "mywindow  "end        "Close         8   255   40     14   [windowdelete "mywindow cs ct st setpc [000 000 000] setfc [000 000 000] nostatus]
;put this in the brackets in the line below for a awesome looking turtle ( setfc [255 180 000] bitblock 20 20 bitcopy 20 20 cs bitmapturtle )
buttoncreate      "mywindow  "clear      "Clear         48  255   40     14   [cs]     
buttoncreate      "mywindow  "left       "L             10  100   20     20   [checkonthings lt 90 update]
buttoncreate      "mywindow  "right      "R             60  100   20     20   [checkonthings rt 90 update] 
buttoncreate      "mywindow  "for        "F             35  90    20     20   [checkonthings fd 50 ]
buttoncreate      "mywindow  "bac        "B             35  113   20     20   [checkonthings bk 50 ] 
staticcreate      "mywindow  "mystatic     [Heading=]   8   80    100    10 
groupboxcreate    "mywindow  "mygroupbox                8   152   80     101
checkboxcreate    "mywindow  "mygroupbox "myhideturtle [Hide Turtle]  15 237  60  15
scrollbarcreate   "mywindow  "myscroll                  8   70    80     25   [st checkboxset "myhideturtle "false setheading scrollbarget "myscroll update]
scrollbarset      "myscroll                             0   360   0
listboxcreate     "mywindow  "mylist                    8   25    80     50
listboxaddstring  "mylist                                                  [POLYGON]
listboxaddstring  "mylist                                                  [ARC]
listboxaddstring  "mylist                                                  [PENCIL]
listboxaddstring  "mylist                                                  [ERASER]
listboxaddstring  "mylist                                                  [PENUP]
listboxaddstring  "mylist                                                  [PENDOWN]
listboxaddstring  "mylist                                                  [HOME]
buttoncreate      "mywindow  "draw       "Execute       23   4   50     14 [checkonthings dodraw]
checkboxcreate    "mywindow  "mygroupbox "status       [Status]      15  222  40  12
radiobuttoncreate "mywindow  "mygroupbox "red          [Red]         15  162 25  10
radiobuttoncreate "mywindow  "mygroupbox "green        [Green]       15  177 40  10
radiobuttoncreate "mywindow  "mygroupbox "blue         [Blue]        15  192 30  10
radiobuttoncreate "mywindow  "mygroupbox "black        [Black]       15  207 40  10
radiobuttonset    "black     "true
comboboxcreate    "mywindow  "mycombo                                8   138  80  10
end

to checkonthings
ifelse checkboxget    "myhideturtle [ht]     [st]
ifelse checkboxget    "status       [status] [nostatus]
ifelse radiobuttonget "red          [red]    []
ifelse radiobuttonget "green        [green]  []
ifelse radiobuttonget "blue         [blue]   []
ifelse radiobuttonget "black        [black]  []
end

to dodraw

if equalp [PENCIL]   listboxgetselect "mylist [pennormal]
if equalp [ERASER]   listboxgetselect "mylist [penerase]
if equalp [PENUP]    listboxgetselect "mylist [penup]
if equalp [PENDOWN]  listboxgetselect "mylist [pendown]
if equalp [HOME]     listboxgetselect "mylist [pu home pd]
if equalp [ARC]      listboxgetselect "mylist [dodraw3 update]
if equalp [POLYGON]  listboxgetselect "mylist [dodraw2]

end

to dodraw2

make "sides first comboboxgettext "mycombo
repeat :sides [fd 50 rt 360.0/:sides]
end

to dodraw3

make "radius first comboboxgettext "mycombo
arc2 90 :radius
end

to green
setpc [000 255 000]
end

to red 
setpc [255 000 000]
end

to Thanks
label [Thank you for using Auto Draw!]
end

to update
staticupdate  "mystatic se  [Heading=] heading 
end

Make "angle 90
Make "radius 500
Make "sides 8