Sorry your browser is not supported!

sync on : sync rate 60 : cls 0 : sync
set text opaque
hourRadius = 60
minuteRadius = 80
x = 200
y = 200
do
   `Get variables
   time$ = get time$()
   hour$ = left$(time$,2)
   rightStr$ = right$(time$,5)
   minute$ = left$(rightStr$,2)
   second$ = right$(time$,2)
   hour = val(hour$)
   minute = val(minute$)
   second = val(second$)
   text 0,0,get time$()

   `Seconds
   axSecond= sin(second* -6 + 180)*minuteRadius +x
   aySecond= cos(second* -6 + 180)*minuteRadius +y

   `Minutes
   axMinute= sin(minute* -6 + 180)*minuteRadius +x
   ayMinute= cos(minute* -6 + 180)*minuteRadius +y

   `Hours
   axHour= sin((hour* 12)* -6)*hourRadius +x
   ayHour= cos((hour* 12)* -6)*hourRadius +y

   `Display
   `Refresh the screen
   cls 0
   `Draw lines for hours, minutes, and seconds
   line x,y,axSecond,aySecond
   line x,y,axHour,ayHour
   line x,y,axMinute,ayMinute
   `Draw the clock
   circle x,y,100
   sync
loop

sync on

Legendary_Steel_Gloves_Equip=0


playeratt=5
playerdef=4
playerhealth=100
playerstr=6
remstart
creatureXXXX:
creaturename$="creature's name"
 creaturelevel#=rnd(x)+x
 creaturehealth#=creaturelevel#+rnd(xx)+xx
 creatureatt#=creaturelevel#-rnd(x)+x
 creaturedef#=creaturelevel#-rnd(n)+n
 creaturehealthorig#=creaturehealth#
return


remend




print "Go to the (T)own? Or go to the (C)ave?"
do
  if inkey$()="C" then goto cave_entry
  if inkey$()="T" then gosub town_main
  if inkey$()="c" then goto cave_entry
  if inkey$()="t" then gosub town_main
 sync
loop


cave_entry:

`[CREATURE SELECTION]
creature#=rnd(2)
`|[CREATURE SELECTION]|
`[Creature number chain]"
`if creature#=(last creature's number+1) then gosub creature(last creature's number+1)
 if creature#=0 then gosub creature0
 if creature#=1 then gosub creature1
 if creature#=2 then gosub creature2
`|[Creature number chain]| 
gosub Battlecont_1

end
 
 creature0:
  creaturename$="Common Goblin"
  creaturelevel#=rnd(10)+5
  creaturehealth#=creaturelevel#+rnd(15)+10
  creatureatt#=creaturelevel#-rnd(2)+1
  creaturedef#=creaturelevel#-rnd(5)+1
  creaturehealthorig#=creaturehealth#
 return

end
 
creature1:
  creaturename$="Earth Dragon"
  creaturelevel#=rnd(50)+45
  creaturehealth#=creaturelevel#+rnd(10)+1
  creatureatt#=creaturelevel#-20
  creaturedef#=creaturelevel#-30
  creaturehealthorig#=creaturehealth#
 return

end

 creature2:
  creaturename$="Steel Gargoyle"
  creaturelevel#=rnd(20)+19
  creaturehealth#=creaturelevel#+rnd(100)+90
  creatureatt#=creaturelevel#-18
  creaturedef#=creaturelevel#+rnd(100)+70
  creaturehealthorig#=creaturehealth#
 return

end







Battlecont_1:
print "A level ",creaturelevel#," ",creaturename$," appeared!"
print "Select"
print "-(a)ttack"
print "-(d)efend"
print "-(i)tems"
print "-(e)scape"
do
  if inkey$()="a" then gosub battleattack
  if inkey$()="A" then gosub battleattack
  if inkey$()="d" then gosub battledefend
 sync
loop




end


town_main:
print "This is Where The Town Should be?"
suspend for key
end



battleattack:
cls
print "Select"
if playeratt>0 then print "-Stab"
if playeratt>30 and playerstr>40 and Legendary_Steel_Gloves_Equip=1 then print "-Steel Slash"
`Etc.
goto BattleZone
battledefend:



end





BattleZone:


if Legendary_Steel_Gloves_Equip=1 then currentplayerstr=playerstr+20
currentplayerhealth=playerhealth
wait 1000
`Checking to see if player or monster still lives
while kill#=0 and death#=0
cls
Player_maxhit=creaturedef#-rnd(playeratt*currentplayerstr)+0
 hitpercent=rnd(playerstr)
  if playerstr<creaturedef# then hitpercent=rnd(currentplayerstr)

  if Player_maxhit>0 and creaturedef#>playeratt+currentplayerstr/2
   Player_maxhit=creaturedef#-rnd(playeratt*currentplayerstr)+0
  endif

  if Player_maxhit<0
   Player_maxhit=0
  endif

 if Player_maxhit>creaturehealth# then Player_maxhit=creaturehealth#
   print creaturename$
   suspend for key
   print "It's Health is: ",creaturehealth#,"/",creaturehealthorig#
   suspend for key
   print "Your Health is: ",currentplayerhealth,"/",playerhealth
   print "You hit a: ",Player_maxhit
   suspend for key
   if creaturehealth#<=0
     kill#=1 
    else
     Creature_maxhit=creatureatt#+creaturelevel#-playerdef#
     print "The ",creaturename$," hit a ",Creature_maxhit,"!"
     suspend for key
    endif
   currentplayerhealth=currentplayerhealth-Creature_maxhit
   Creature_maxhit=0
   Player_maxhit=0
 endwhile

if lower$(inkey$())="c" then DO STUFF

dim monstername$(3)
dim monsterstats(3,4)
gosub monsterdata


monsternum=rnd(2)+1
creaturename$=monstername$(monsternum)
creaturelevel=monsterstats(monsternum,1)
creaturehealth=monsterstats(monsternum,2)
creaturestr=monsterstats(monsternum,3)
creaturedef=monsterstats(monsternum,4)

print creaturename$
print creaturelevel
print creaturehealth
print creaturestr
print creaturedef
wait key
end

monsterdata:
for i=1 to 3
	read monstername$(i)
	for c=1 to 4
		read monsterstats(i,c)
	next c
next i
data "Common Goblin",10,22,10,8
data "Earth Dragon",70,76,50,40
data "Steel Gargoyle",29,169,11,149

return

remstart
color=point(mousex(),mousey())
r=rgbr(color)
g=rgbg(color)
b=rgbb(color)
remend
boxsize=1
sync on : sync rate 0
print "    Instructions for Version 1.4 Paint Program"
print " "
print " The area to the left of the line will be called the drawing section."
print "The area to the right of the line will be called the editor section."
print " "
print " If your mouse enters the editor section, the line will begin flashing" 
print "and you will be required to press (y)es or (n)o to protect your work."
print " "
print " To increase your Red Value, you would enter [Shift]+(r)"
print "in continuation, you would enter (r) to decrease the value."
print "for red, the key is r, for green, g, and for blue, b."
print " "
print " The value range is 0-255. You can't go lower then 0, and can't go higher then 255."
print " "
print " To clear the screen, right click, then press [SHIFT]+(y) to confirm or (n) to cancel"
print "Then press [Shift]+c to confirm."
print "If you change your mind, press x."
print " "
print " If you want to erase some of your work, Hold (x),"
print "and move your mouse over what it is that you want "
print "to erase. It is recommended that you set r,g, and b to 0, or you"
print "will have problems." 
print " "
print " The Arrow keys are used to set the pensize."
print " "
print " To disable editor mode, press (d). To re-enable, press (e)."
print "Press a key to continue with instructions"
print " "
print "These Instructions will not be repeated."
suspend for key
cls
print " To change between 3D and 2D mode, press 2 for 2D, and likewise 3 for 3D."
print " "
print " To change your color to the color under your mouse, press Control."
print "Press [ENTER] to begin."
print " "
print "These Instructions will not be repeated."

do
  if returnkey()=1 then gosub the_program
 sync
loop




the_program:
cls
programsbegin:
currentx=320
currenty=240


do
    color=point(mousex(),mousey())
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
box 550,200,600,250
   if controlkey()=1
    color=point(mousex(),mousey())
    r=rgbr(color)
    g=rgbg(color)
    b=rgbb(color)
   endif

   if inkey$()="x"
   realr=0 : realg=0 : realb=0
   disable=1
   if mouseclick()=1
   if boxsize=1
    ink rgb(0,0,0),0
    box mousex()-3,mousey()-3,mousex()+3,mousey()+3
   endif
    if boxsize=2
     ink rgb(0,0,0),0
     box mousex()-5,mousey()-5,mousex()+5,mousey()+5
     ink rgb(255,255,255),0
    endif
   endif


  trigger=1
  disable=0
  endif
  ink rgb(r,g,b),0
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

   if mouseclick()=2 then gosub confirm


   ` -LINE 2D-
    if Style=0
     if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
      ink rgb(realr,realg,realb),0
       line currentx,currenty,mousex(),mousey()
      endif
     endif


   ` -|LINE 2D|-


   ` -LINE 3D-
   if Style=1
    if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
     if currentx<mousex()
      ink rgb(realr,realg,realb),0
      line currentx-3,currenty-3,mousex()+3,mousey()+3
     endif
     if currentx>mousex()
      ink rgb(realr,realg,realb),0
        line currentx+3,currenty+3,mousex()-3,mousey()-3
      endif
     endif
    endif
   `-|LINE|-



   if mousex()>=480 then gosub overline
   
  currentx=mousex()
  currenty=mousey()

  ink rgb(255,0,0),0
  line 480,0,480,500
  set text opaque
  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                       "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "

  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80
  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "
   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1
   if inkey$()="x" and trigger=1 and timer>=10 then trigger=0 : timer=0
  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif
  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0


  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()


 trigger=0
 realr=r
 realg=g
 realb=b
 

 sync
loop

confirm:
do
  if inkey$()="Y" then cls : return
  if inkey$()="n" then return
 sync
loop

overline:
do
  ink rgb(rnd(200)+150,0,0),0
  line 480,0,480,500

  if inkey$()="y" then exit
  if inkey$()="n" then return

  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey() : return

 sync
loop


do
set text opaque
  ink rgb(255,255,255),0
  line 480,0,480,500
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                     "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "
  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80

   if mousex()<480 then return
   if mouseclick()=2 then gosub confirm

  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "

   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1

  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif


  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0



  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()

remend
 sync
loop

`-=-=-=-Paint-=-=-=-
`--------V1.4-------
`----Designed By Irojo----
`
`Note: Go ahead and build off this if you want.

boxsize=1
sync on : sync rate 0
print "    Instructions for Version 1.4 Paint Program"
print " "
print " The area to the left of the line will be called the drawing section."
print "The area to the right of the line will be called the editor section."
print " "
print " If your mouse enters the editor section, the line will begin flashing" 
print "and you will be required to press (y)es or (n)o to continue, in order to protect your work."
print " "
print " To increase your Red Value, you would enter [Shift]+(r)"
print "in continuation, you would enter (r) to decrease the value."
print "for red, the key is r, for green, g, and for blue, b."
print " "
print " The value range is 0-255. You can't go lower then 0, and can't go higher then 255."
print " "
print " To clear the screen, right click, then press [SHIFT]+(y) to confirm or (n) to cancel"
print "Then press [Shift]+c to confirm."
print "If you change your mind, press x."
print " "
print " If you want to erase some of your work, Hold (x),"
print "and move your mouse over what it is that you want "
print "to erase. It is recommended that you set r,g, and b to 0, or you"
print "will have problems." 
print " "
print " The Arrow keys are used to set the pensize."
print " "
print " To disable editor mode, press (d). To re-enable, press (e)."
print "Press a key to continue with instructions"
print " "
print "These Instructions will not be repeated."
suspend for key
cls
print " To change between 3D and 2D mode, press 2 for 2D, and likewise 3 for 3D."
print " "
print " To change your color to the color under your mouse, press Control."
print " "
print " To Make a Random Splatter art effect, Hold [SHIFT]+" f " and left click."
print "Press [ENTER] to begin."
print " "
print "These Instructions will not be repeated."

do
  if returnkey()=1 then gosub the_program
 sync
loop




the_program:
cls
programsbegin:
currentx=320
currenty=240


do
    color=point(mousex(),mousey())
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
box 550,200,600,250
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
   if controlkey()=1
    color=point(mousex(),mousey())
    r=rgbr(color)
    g=rgbg(color)
    b=rgbb(color)
   endif

   if inkey$()="x"
   realr=0 : realg=0 : realb=0
   disable=1
   if mouseclick()=1
   if boxsize=1
    ink rgb(0,0,0),0
    box mousex()-3,mousey()-3,mousex()+3,mousey()+3
   endif
    if boxsize=2
     ink rgb(0,0,0),0
     box mousex()-5,mousey()-5,mousex()+5,mousey()+5
     ink rgb(255,255,255),0
    endif
   endif


  trigger=1
  disable=0
  endif
  ink rgb(r,g,b),0
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

   if mouseclick()=2 then gosub confirm


   ` -LINE 2D-
    if Style=0
     if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
      ink rgb(realr,realg,realb),0
       line currentx,currenty,mousex(),mousey()
      endif
     endif


   ` -|LINE 2D|-


   ` -LINE 3D-
   if Style=1
    if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
     if currentx<mousex()
      ink rgb(realr,realg,realb),0
      line currentx-3,currenty-3,mousex()+3,mousey()+3
     endif
     if currentx>mousex()
      ink rgb(realr,realg,realb),0
        line currentx+3,currenty+3,mousex()-3,mousey()-3
      endif
     endif
    endif
   `-|LINE|-



   if mousex()>=480 then gosub overline
   
  currentx=mousex()
  currenty=mousey()

  ink rgb(255,0,0),0
  line 480,0,480,500
  set text opaque
  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                       "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "

  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80
  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "
   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1
   if inkey$()="x" and trigger=1 and timer>=10 then trigger=0 : timer=0
  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif

  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0


  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()


 trigger=0
 realr=r
 realg=g
 realb=b
   if inkey$()="F" then position mouse rnd(478),rnd(500)

 sync
loop

confirm:
do
  if inkey$()="Y" then cls : return
  if inkey$()="n" then return
 sync
loop

overline:
do
  ink rgb(rnd(200)+150,0,0),0
  line 480,0,480,500

  if inkey$()="y" then exit
  if inkey$()="n" then position mouse 479,mousey() : return
  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey() : return

 sync
loop


do
set text opaque
  ink rgb(255,255,255),0
  line 480,0,480,500
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                     "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "
  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80

   if mousex()<480 then return
   if mouseclick()=2 then gosub confirm

  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "

   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1

  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif


  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0



  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()

remend
 sync
loop

`RPG Battle
randomize timer()
`Load Music "ctbattle.mid",1
`load music "ctlucca.mid",2
`load sound "karate.wav",1
restart:
dim memberhp(1)
memberhp(1)=45
dim memberstats(2)
memberstats(1)=50
memberstats(2)=25

dim monsterhp(1)
monsterhp(1)=100
dim monsterstats(2)
monsterstats(1)=35
monsterstats(2)=25


dim choice$(3)
choice$(1)="-Attack"
choice$(2)="-Attack"
choice$(3)="-Attack"

center text screen width()/2,0,"You encounter a monster!"
`------------------------------------------------------------Play music 1

`Label areas
center text 40,50,"Party"
center text 580,50,"Enemy"

`create menu area
center text 320,350,"-----------------------------------------------------------------------------------------------------------------------------------------------------------"
center text 320,355,"|                                                                                                                                                           |"
center text 320,368,"|                                                                                                                                                           |"
center text 320,381,"|                                                                                                                                                           |"
center text 320,394,"|                                                                                                                                                           |"
center text 320,407,"|                                                                                                                                                           |"
center text 320,420,"|                                                                                                                                                           |"
center text 320,433,"|                                                                                                                                                           |"
center text 320,446,"|                                                                                                                                                           |"
center text 320,453,"-----------------------------------------------------------------------------------------------------------------------------------------------------------"


`Lists Party Members
center text 40,75,"Member 1"
for i=1 to memberhp(1)
	center text 15+i,88,"|"
next i

`Lists Monsters
center text 580,75,"Monster 1"
for i=1 to monsterhp(1)
	center text 530+i,88,"|"
next i

do
	
	wait 1000
	gosub erasetext
	if defendflag=1
		memberstats(2)=memberstats(2)-20
		defendflag=0
	endif
	position=0
	gosub playerturn
	if monsterhp(1)<=0 then gosub monsterdead
	gosub monsterturn
	if memberhp(1)<=0 then gosub memberdead
loop
wait key

playerturn:
	center text 320,355,"------------------------------------------------"
	center text 320,360,"|                                              |"
	center text 320,373,"|                                              |"
	center text 320,386,"|                                              |"
	center text 320,399,"|                                              |"
	center text 320,412,"|                                              |"
	center text 320,425,"|                                              |"
	center text 320,438,"|                                              |"
	center text 320,445,"------------------------------------------------"

	center text 320,373,"-Attack"
	center text 320,399,"-Defend"
	center text 320,425,"-Skill"
	position=0
	ink rgb(255,255,255),0
	text 275,373+25*position,"->"

repeat
	if upkey()=1
		ink 0,0
		text 275,373+25*position,"->"
		position=position-1
		if position<0 then position=2
		ink rgb(255,255,255),0
		text 275,373+25*position,"->"
		repeat
		until upkey()=0
	endif

	if downkey()=1
		ink 0,0
		text 275,373+25*position,"->"
		position=position+1
		if position>2 then position=0
		ink rgb(255,255,255),0
		text 275,373+25*position,"->"
		repeat
		until downkey()=0
	endif
choice=position+1

until returnkey()<>0
gosub erasebox
`choice=position+1
`print position
ink 0,0
text 275,373+25*choice-1,"->"
ink rgb(255,255,255),0
`print choice
select choice
	case 1 : gosub playerattack : endcase
	case 2 : gosub playerdefend : endcase
	case 3 : gosub playerskill : endcase
	case default : gosub playerdefend : endcase
endselect
return

playerattack:
hit=rnd(256)
if hit<=200
`------------------------------------------------------	play sound 1
	attackstr=memberstats(1)-monsterstats(2)+(rnd(10)-5)
	if attackstr<0 then attackstr=0
	for i=1 to attackstr
		ink 0,0
		center text monsterhp(1)+531-i,88,"|"
		ink rgb(255,255,255),0
	next i
	monsterhp(1)=monsterhp(1)-attackstr
	string$="You hit the monster for " + str$(attackstr) + " damage!"
else
	string$="You miss the monster!"	
endif
center text 320,230,string$
return

playerdefend:
	string$="You defend!"
	memberstats(2)=memberstats(2)+20
	defendflag=1
return

playerskill:
	center text 320,355,"------------------------------------------------"
	center text 320,360,"|                                              |"
	center text 320,373,"|                                              |"
	center text 320,386,"|                                              |"
	center text 320,399,"|                                              |"
	center text 320,412,"|                                              |"
	center text 320,425,"|                                              |"
	center text 320,438,"|                                              |"
	center text 320,445,"------------------------------------------------"

	center text 320,373,"-Skill 1"
	center text 320,399,"-Skill 2"
	center text 320,425,"-Skill 3"
	position=0
	ink rgb(255,255,255),0
	text 275,373+25*position,"->"

repeat
	if upkey()=1
		ink 0,0
		text 275,373+25*position,"->"
		position=position-1
		if position<0 then position=2
		ink rgb(255,255,255),0
		text 275,373+25*position,"->"
		repeat
		until upkey()=0
	endif

	if downkey()=1
		ink 0,0
		text 275,373+25*position,"->"
		position=position+1
		if position>2 then position=0
		ink rgb(255,255,255),0
		text 275,373+25*position,"->"
		repeat
		until downkey()=0
	endif
	choice=position+1
until returnkey()<>0
select choice
	case 1
		attackstr=30
		for i=1 to attackstr
			ink 0,0
			center text monsterhp(1)+531-i,88,"|"
			ink rgb(255,255,255),0
		next i
		monsterhp(1)=monsterhp(1)-attackstr
		string$="You cast skill " + str$(choice) + " for " + str$(attackstr) + " damage!"
	endcase
	case 2
		attackstr=30
		for i=1 to attackstr
			ink 0,0
			center text monsterhp(1)+531-i,88,"|"
			ink rgb(255,255,255),0
		next i
		monsterhp(1)=monsterhp(1)-attackstr
		string$="You cast skill " + str$(choice) + " for " + str$(attackstr) + " damage!"
	endcase
	case 3
		attackstr=30
		for i=1 to attackstr
			ink 0,0
			center text monsterhp(1)+531-i,88,"|"
			ink rgb(255,255,255),0
		next i
		monsterhp(1)=monsterhp(1)-attackstr
		string$="You cast skill " + str$(choice) + " for " + str$(attackstr) + " damage!"
	endcase
endselect
ink 0,0
	center text 320,373,"-Skill 1"
	center text 320,399,"-Skill 2"
	center text 320,425,"-Skill 3"
gosub erasebox
center text 320,230,string$

return

monsterdead:
`-------------------------------------------------------	stop music 1
`----------------------------------------------------------	play music 2
	gosub erasetext
	set text size 24
	set text to bold
	center text 320,240,"YOU WIN!!!"
	wait key
	end
return

monsterturn:
hit=rnd(256)
if hit<=200
`---------------------------------------------------------	play sound 1
	attackstr=monsterstats(1)-memberstats(2)+(rnd(10)-5)
	if attackstr<0 then attackstr=0
	for i=1 to attackstr
		ink 0,0
		center text memberhp(1)+15-i,88,"|"
		ink rgb(255,255,255),0
	next i
	memberhp(1)=memberhp(1)-attackstr
	string2$="The monster hits you for " + str$(attackstr) + " damage!"
else
	string2$="The monster totally misses you!"
endif
center text 320,250,string2$
return

memberdead:
	gosub erasetext
	set text size 24
	set text to bold
	center text 320,240,"YOU LOSE!!!"
	wait key
	end
return

erasebox:
	ink 0,0
	center text 320,355,"------------------------------------------------"
	center text 320,360,"|                                              |"
	center text 320,373,"|                                              |"
	center text 320,386,"|                                              |"
	center text 320,399,"|                                              |"
	center text 320,412,"|                                              |"
	center text 320,425,"|                                              |"
	center text 320,438,"|                                              |"
	center text 320,445,"------------------------------------------------"

	center text 320,373,"-Attack"
	center text 320,399,"-Defend"
	center text 320,425,"-Skill"
	position=0

	text 275,373+25*position,"->"
	ink rgb(255,255,255),0
return

erasetext:
	ink 0,0
	center text 320,230,string$
	center text 320,250,string2$
	ink rgb(255,255,255),0
return

If atkstr>10 then slashavailable=1
print "select choice"

if inkey()$="1" and slashavailable=1 then DO STUFF

dim playerskills(5)

if atkstr>=2 then playerskills(1)=1
if atkstr>=4 then playerskills(2)=2
etc etc

print "select choice"
if inkey$()="1" and playerskills(1)=1 then DO STUFF

dim playerskills(5)

for i=1 to 5
   if atkstr>=2*i then playerskills(i)=1
next i

print "select"

if inkey$()="1" and playerskills(3)=1 then DO STUFF

DIM playerskills(5)

playerskilltmp=2

FOR i=1 TO 5
IF atkstr>=playerskilltmp THEN playerskills(i)=1
playerskilltmp=playerskilltmp*2
NEXT i

`-=-=-=-Paint-=-=-=-
`--------V1.5-------
`----Designed By Irojo----
`
`Note: Go ahead and build off this if you want.

boxsize=1
i=1
x11#=600
y11#=400
x12#=700
y12#=400

x21#=600
y21#=400
x22#=600
y22#=600
sync on : sync rate 0
print "    Instructions for Version 1.5 Paint Program"
print " "
print " The area to the left of the line will be called the drawing section."
print "The area to the right of the line will be called the editor section."
print " "
print " If your mouse enters the editor section, the line will begin flashing" 
print "and you will be required to press (y)es or (n)o to continue, in order to protect your work."
print " "
print " To increase your Red Value, you would enter [Shift]+(r)"
print "in continuation, you would enter (r) to decrease the value."
print "for red, the key is r, for green, g, and for blue, b."
print " "
print " The value range is 0-255. You can't go lower then 0, and can't go higher then 255."
print " "
print " To clear the screen, right click, then press [SHIFT]+(y) to confirm or (n) to cancel"
print "Then press [Shift]+c to confirm."
print "If you change your mind, press x."
print " "
print " If you want to erase some of your work, Hold (x),"
print "and move your mouse over what it is that you want "
print "to erase. It is recommended that you set r,g, and b to 0, or you"
print "will have problems." 
print " "
print " The Arrow keys are used to set the pensize."
print " "
print " To disable editor mode, press (d). To re-enable, press (e)."
print "Press a key to continue with instructions"
print " "
print "These Instructions will not be repeated."
suspend for key
cls
print " To change between 3D and 2D mode, press 2 for 2D, and likewise 3 for 3D."
print " "
print " To change your color to the color under your mouse, press Control."
print " "
print " To Make a Random Splatter art effect, Hold [SHIFT]+" f " and left click."
print " There is a box in the bottom right-hand corner of editor mode,"
print "with a "C" On the middle of it. If you click on this box, the screen will"
print "be cleared."
print "Press [ENTER] to begin."
print " "
print "These Instructions will not be repeated."

do
  if returnkey()=1 then gosub the_program
 sync
loop




the_program:
cls
programsbegin:
currentx=320
currenty=240


do




line 600,400,700,400
line 600,400,600,600



    color=point(mousex(),mousey())
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
box 550,200,600,250
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
   if controlkey()=1
    color=point(mousex(),mousey())
    r=rgbr(color)
    g=rgbg(color)
    b=rgbb(color)
   endif

   if inkey$()="x"
   realr=0 : realg=0 : realb=0
   disable=1
   if mouseclick()=1
   if boxsize=1
    ink rgb(0,0,0),0
    box mousex()-3,mousey()-3,mousex()+3,mousey()+3
   endif
    if boxsize=2
     ink rgb(0,0,0),0
     box mousex()-5,mousey()-5,mousex()+5,mousey()+5
     ink rgb(255,255,255),0
    endif
   endif


  trigger=1
  disable=0
  endif
  ink rgb(r,g,b),0
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

   if mouseclick()=2 then gosub confirm


   ` -LINE 2D-
    if Style=0
     if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
      ink rgb(realr,realg,realb),0
       line currentx,currenty,mousex(),mousey()
      endif
     endif


   ` -|LINE 2D|-


   ` -LINE 3D-
   if Style=1
    if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
     if currentx<mousex()
      ink rgb(realr,realg,realb),0
      line currentx-3,currenty-3,mousex()+3,mousey()+3
     endif
     if currentx>mousex()
      ink rgb(realr,realg,realb),0
        line currentx+3,currenty+3,mousex()-3,mousey()-3
      endif
     endif
    endif
   `-|LINE|-



   if mousex()>=480 then gosub overline
   
  currentx=mousex()
  currenty=mousey()

  ink rgb(255,0,0),0
  line 480,0,480,500
  set text opaque
  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                       "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "

  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80
  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "
   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1
   if inkey$()="x" and trigger=1 and timer>=10 then trigger=0 : timer=0
  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif

  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0


  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()


 trigger=0
 realr=r
 realg=g
 realb=b
   if inkey$()="F" then position mouse rnd(478),rnd(500)
ink rgb(255,255,255),0
center text 620,425,"C"
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#


 sync
loop

confirm:
do
  if inkey$()="Y" then cls : return
  if inkey$()="n" then return
 sync
loop

overline:
do
  ink rgb(rnd(200)+150,0,0),0
  line 480,0,480,500

  if inkey$()="y" then exit
  if inkey$()="n" then position mouse 479,mousey() : return
  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey() : return

 sync
loop





do
if mousex()>600 and mousey()>400 and mouseclick()=1
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#

ink rgb(255,255,255),0
center text 620,425,"C"

ink rgb(255,255,255),0
show mouse


`*-------------------------------------------------------*
`Change this value to 40, or 90 for a different effect.
inricatevalue#=4
`*-------------------------------------------------------*
while thingy<600
    ink rgb(255,255,255),0
    
     if itrigger<>1 then x=x+inricatevalue#
    
     if x>=658 and itrigger2=0 then y=y+inricatevalue#
    
     if x>=658 then itrigger=1
    
     if y>=500 then itrigger2=1
    line 320,240,x,y
     if itrigger2=1 then x=x-inricatevalue#
    
     if x=0 and y>=500 and itrigger2=1 then itrigger3=1
    
     if itrigger3=1 then y=y-inricatevalue#
    
     if itrigger3=1 then itrigger2=0
wait 2
position mouse x,y
     if y=0 and x=0
      itrigger=0
      itrigger2=0
      itrigger3=0
     endif
thingy=thingy+1
  sync
endwhile
thingy=0
      itrigger=0
      itrigger2=0
      itrigger3=0
cls
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
ink rgb(255,255,255),0
center text 620,425,"C"
else
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#
endif



set text opaque
  ink rgb(255,255,255),0
  line 480,0,480,500
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                     "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "
  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80

   if mousex()<480 then return
   if mouseclick()=2 then gosub confirm

  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "

   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1

  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif


  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0



  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()

remend
 sync
loop

`-----Sync-----
sync on
sync rate 0
`-----|Sync|-----



ink rgb(255,255,255),0

hide mouse



`*-------------------------------------------------------*
`Change this value to 40, or 90 for a different effect.
inricatevalue#=4
`*-------------------------------------------------------*
while scancode()=0 and mouseclick()=0
   cls
    ink rgb(255,255,255),0
    green=rnd(20)
     if green=1 then ink rgb(0,rnd(255),0),0
     if mouseclick()=2 then position mouse 320,240
    circle mousex(),mousey(),rnd(500)+1
     if trigger<>1 then x=x+inricatevalue#
     if x>=658 and trigger2=0 then y=y+inricatevalue#
     if x>=658 then trigger=1
    line mousex(),mousey(),x,y
     if y>=500 then trigger2=1
     if trigger2=1 then x=x-inricatevalue#
     if x=0 and y>=500 and trigger2=1 then trigger3=1
     if trigger3=1 then y=y-inricatevalue#
     if trigger3=1 then trigger2=0
     if y=0 and x=0
      trigger=0
      trigger2=0
      trigger3=0
     endif
  sync
endwhile

end

sync on:sync rate 0
input "Please Enter Your Dot Amount: ",amount
errorreading:
cls
if errorreading=1 then print "INVALID ENTRY"
input "Please Enter Dot Colour. "red" "blue" or "green" : ",dcolour$
if dcolour$="red"
set_color_red:h=1
endif
if dcolour$="blue"
set_color_blueh=1:h=1
endif
if dcolour$="green"
set_color_green:h=1
endif
if h=0 then errorreading=1:gosub errorreading
cls
create_dots(amount)



center text 320,240,"Dots Created."
suspend for key
end
function create_dots(amount)
z=amount
for z=1 to amount
dot rnd(700),rnd(700)
sync
next amount
endfunction



function set_color_red
ink rgb(255,0,0),0
endfunction



function set_color_blue
ink rgb(0,0,255),0
endfunction



function set_color_green
ink rgb(0,255,0),0
endfunction

`-=-=-=-Paint-=-=-=-
`--------V1.6-------
`----Designed By Irojo----
`
`Note: Go ahead and build off this if you want.

boxsize=1
i=1
x11#=600
y11#=400
x12#=700
y12#=400

x21#=600
y21#=400
x22#=600
y22#=600
sync on : sync rate 0
print "    Instructions for Version 1.6 Paint Program"
print " "
print " The area to the left of the line will be called the drawing section."
print "The area to the right of the line will be called the editor section."
print " "
print " If your mouse enters the editor section, the line will begin flashing" 
print "and you will be required to press (y)es or (n)o to continue, in order to protect your work."
print " "
print " To increase your Red Value, you would enter [Shift]+(r)"
print "in continuation, you would enter (r) to decrease the value."
print "for red, the key is r, for green, g, and for blue, b."
print " "
print " The value range is 0-255. You can't go lower then 0, and can't go higher then 255."
print " "
print " To clear the screen, right click, then press [SHIFT]+(y) to confirm or (n) to cancel"
print "Then press [Shift]+c to confirm."
print "If you change your mind, press x."
print " "
print " If you want to erase some of your work, Hold (x),"
print "and move your mouse over what it is that you want "
print "to erase. It is recommended that you set r,g, and b to 0, or you"
print "will have problems." 
print " "
print " The Arrow keys are used to set the pensize."
print " "
print " To disable editor mode, press (d). To re-enable, press (e)."
print "Press a key to continue with instructions"
print " "
print "These Instructions will not be repeated."
suspend for key
cls
print " To change between 3D and 2D mode, press 2 for 2D, and likewise 3 for 3D."
print " "
print " To change your color to the color under your mouse, press Control."
print " "
print " To Make a Random Splatter art effect, Hold [SHIFT]+" f " and left click."
print " There is a box in the bottom right-hand corner of editor mode,"
print "with a "C" On the middle of it. If you click on this box, the screen will"
print "be cleared."
print " To change all colors at once, press 'A' to raise them, and 'a' to lower."
print "Press [ENTER] to begin."
print " "
print "These Instructions will not be repeated."

do
  if returnkey()=1 then gosub the_program
 sync
loop




the_program:
cls
programsbegin:
currentx=320
currenty=240


do

if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1


line 600,400,700,400
line 600,400,600,600



    color=point(mousex(),mousey())
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0
ink rgb(rgbr(color),rgbg(color),rgbb(color)),0
box 550,200,600,250
if rgbr(color)+rgbg(color)+rgbb(color)>0 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
   if controlkey()=1
    color=point(mousex(),mousey())
    r=rgbr(color)
    g=rgbg(color)
    b=rgbb(color)
   endif

   if inkey$()="x"
   realr=0 : realg=0 : realb=0
   disable=1
   if mouseclick()=1
   if boxsize=1
    ink rgb(0,0,0),0
    box mousex()-3,mousey()-3,mousex()+3,mousey()+3
   endif
    if boxsize=2
     ink rgb(0,0,0),0
     box mousex()-5,mousey()-5,mousex()+5,mousey()+5
     ink rgb(255,255,255),0
    endif
   endif


  trigger=1
  disable=0
  endif
  ink rgb(r,g,b),0
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

   if mouseclick()=2 then gosub confirm


   ` -LINE 2D-
    if Style=0
     if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
      ink rgb(realr,realg,realb),0
       line currentx,currenty,mousex(),mousey()
      endif
     endif


   ` -|LINE 2D|-


   ` -LINE 3D-
   if Style=1
    if trigger=0 and disable=0 and mouseclick()=1 or trigger=0 and spacekey()=1 and disable=0
     if currentx<mousex()
      ink rgb(realr,realg,realb),0
      line currentx-3,currenty-3,mousex()+3,mousey()+3
     endif
     if currentx>mousex()
      ink rgb(realr,realg,realb),0
        line currentx+3,currenty+3,mousex()-3,mousey()-3
      endif
     endif
    endif
   `-|LINE|-



   if mousex()>=480 then gosub overline
   
  currentx=mousex()
  currenty=mousey()

  ink rgb(255,0,0),0
  line 480,0,480,500
  set text opaque
  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                       "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "

  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80
  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "
   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1
   if inkey$()="x" and trigger=1 and timer>=10 then trigger=0 : timer=0
  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif

  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0


  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()


 trigger=0
 realr=r
 realg=g
 realb=b
   if inkey$()="F" then position mouse rnd(478),rnd(500)
ink rgb(255,255,255),0
center text 620,425,"C"
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#


 sync
loop

confirm:
do
  if inkey$()="Y" then cls : return
  if inkey$()="n" then return
 sync
loop

overline:
do
  ink rgb(rnd(200)+150,0,0),0
  line 480,0,480,500

  if inkey$()="y" then exit
  if inkey$()="n" then position mouse 479,mousey() : return
  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey() : return

 sync
loop





do
if mousex()>600 and mousey()>400 and mouseclick()=1
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#

ink rgb(255,255,255),0
center text 620,425,"C"

ink rgb(255,255,255),0
show mouse

if inkey$()="A" and r<255 and g<255 and b<255 then r=r+1:g=g+1:b=b+1
if inkey$()="a" and r>0 and g>0 and b>0 then r=r-1:g=g-1:b=b-1

`*-------------------------------------------------------*
`Change this value to 40, or 90 for a different effect.
inricatevalue#=4
`*-------------------------------------------------------*
while thingy<600
    ink rgb(255,255,255),0
    
     if itrigger<>1 then x=x+inricatevalue#
    
     if x>=658 and itrigger2=0 then y=y+inricatevalue#
    
     if x>=658 then itrigger=1
    
     if y>=500 then itrigger2=1
    line 320,240,x,y
     if itrigger2=1 then x=x-inricatevalue#
    
     if x=0 and y>=500 and itrigger2=1 then itrigger3=1
    
     if itrigger3=1 then y=y-inricatevalue#
    
     if itrigger3=1 then itrigger2=0
wait 2
     if y=0 and x=0
      itrigger=0
      itrigger2=0
      itrigger3=0
     endif
thingy=thingy+1
  sync
endwhile
thingy=0
      itrigger=0
      itrigger2=0
      itrigger3=0
cls
line 550,200,600,200
line 550,200,550,250
line 600,200,600,250
line 600,250,550,250
ink rgb(255,255,255),0
center text 620,425,"C"
else
line x11#,y11#,x12#,y12#
line x21#,y21#,x22#,y22#
endif



set text opaque
  ink rgb(255,255,255),0
  line 480,0,480,500
   if inkey$()="R" and r<255 then r=r+1
   if inkey$()="G" and g<255 then g=g+1
   if inkey$()="B" and b<255 then b=b+1
   
   if inkey$()="r" and r>0 then r=r-1
   if inkey$()="g" and g>0 then g=g-1
   if inkey$()="b" and b>0 then b=b-1

  ink rgb(255,0,0),0
  text 485,20,"                     "
  text 485,20,"Red:   "+STR$(r)+"  "

  ink rgb(0,255,0),0
  text 485,40,"                     "
  text 485,40,"Green:   "+STR$(g)+"  "

  ink rgb(0,0,255),0
  text 485,60,"                      "
  text 485,60,"Blue:   "+STR$(b)+"  "
  ink rgb(r,g,b),0
  box 595,20,620,80
  ink rgb(55,55,55),0
  line 595,20,595,80

  line 595,20,620,20

  line 620,20,620,80

  line 595,80,620,80

   if mousex()<480 then return
   if mouseclick()=2 then gosub confirm

  ink rgb(255,255,255),0
  text 485,100,"Eraser Size= "+str$(boxsize)+"  "

   if inkey$()="+" and boxsize<2 then boxsize=2
   if inkey$()="-" and boxsize>0 then boxsize=1

  ink rgb(255,255,255),0
  if Style=0
   text 485,120,"Pen Style: 2D"
  endif
  if Style=1
   text 485,120,"Pen Style: 3D"
  endif


  if inkey$()="3" then Style=1
  if inkey$()="2" and Style=1 then Style=0



  if inkey$()="d" then disablemove=1
  if inkey$()="e" then disablemove=0
  if disablemove=1 and mousex()>=480 then position mouse 479,mousey()

remend
 sync
loop