ok i made the code as clear as i can now. It will still not save...or load... uh... i dont know what to doooo.... somone help me..
AppTitle "Most Awsome Paint Program By blitz monkey" Graphics 1280,960 SaveBuffer FrontBuffer(),fn% Global sx=50 Global sy=50 Global r=255 Global g=255 Global b=255 Global width=GraphicsWidth():height=GraphicsHeight() Global image% = CreateImage(width, height) Function size() Locate 0,60 sx=Input("size x ") sy=Input("size y ") End Function Function colorselect() Locate 0,60 r=Input("red " ) g=Input("green " ) b=Input("blue " ) End Function Function Insertword() Color r,b,g Locate MouseX(),MouseY() d1$=Input$("") End Function Function save() Text 0,60,"Saving.." fn% = Input$("save as: ") SaveBuffer(ImageBuffer(image%),""+fn%+"") Delay 100 Text 0,60,"Done" Delay 100 End Function Function load() Cls Text 0,60,"Loading.." imagel% = Input$("Load: ") image% = LoadImage(""+imagel%+"") Delay 100 Text 0,60,"Done" Delay 100 End Function While Not KeyDown(1) If KeyDown(46) Colorselect If KeyDown(56) Then r=0:g=0:b=0 If KeyDown(59) Then Color r,g,b Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) Plot Rnd(width),Rnd(height) EndIf If KeyHit(29) size If KeyHit(62) save If KeyHit(61) load If KeyHit(19)r=255:g=0:b=0 If KeyHit(34)r=0:g=255:b=0 If KeyHit(48)r=0:g=0:b=255 If KeyHit(17)r=255:g=255:b=255 If KeyHit(25)r=111:g=0:b=111 If KeyHit(21)r=255:g=255:b=0 If KeyHit(20)r=0:g=255:b=255 If KeyHit(24)r=249:g=81:b=0 If KeyHit(31)r=98:g=98:b=0 If KeyHit(210) Insertword If MouseDown(1) Color r,g,b Plot MouseX(),MouseY() Plot MouseX()+1,MouseY() Plot MouseX(),MouseY()+1 Plot MouseX()-1,MouseY() Plot MouseX(),MouseY()-1 Plot MouseX(),MouseY() Plot MouseX()+1,MouseY() Plot MouseX(),MouseY()+1 Plot MouseX()-1,MouseY() Plot MouseX(),MouseY()-1 EndIf If MouseDown(2) Color 0,0,0 Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) EndIf If KeyHit(211) Cls EndIf If MouseDown(3) Color r,g,b Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) Plot MouseX()+Rnd(sx),MouseY()+Rnd(sy) EndIf Color 0,0,0 Plot -1+Rnd(100),35+Rnd(100) Plot -1+Rnd(100),35+Rnd(100) Plot -1+Rnd(100),35+Rnd(100) Plot -1+Rnd(100),35+Rnd(100) Plot -1+Rnd(100),35+Rnd(100) Plot -1+Rnd(100),35+Rnd(100) Plot -1+Rnd(100),35+Rnd(100) Plot -1+Rnd(100),35+Rnd(100) Color 255,255,255 Text 0,20,"Keys are S,R,G,B,T,Y,O,P,END,INSERT,F1,F4,F5,DELETE,Left CONTROL,left ALT,C" Wend