Final EXE's don't like my paint Program X(

Author

Message

Caleb1994

17

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 7th Jan 2009 07:16

Link

Ok so i have a paint program i'v been working on and it works fine in the editor(and it had worked in the exe) but all the suddun when i compile to final exe and try to save it gives me a error "Runtime error: ERROR 136" and i was just going through all my versions and stuff and all the others had worked but i compiled that one and now none of them will save they all give the same error and they all work in the compiler heres the hole code

sync on
sync rate 0
Disable escapekey
hide mouse

#include "GUI.dba"

load image "Colo.bmp",1
Load image "Save.bmp",2
Load image "Save_Pressed.bmp",3
Load image "Clear.bmp",4
Load image "Clear_Pressed.bmp",5
Load image "Pencil.bmp",6
Load image "Pencil_pressed.bmp",7
Load image "eraser.bmp",8
Load image "Eraser_Pressed.bmp",9
ink rgb(255,255,255),0
box 1,1,18,18
get image 10,0,0,20,20
Load image "Load.bmp",11
Load image "load_Pressed.bmp",12
Load image "WindowNo.png",13
Load image "WindowEnd.png",14
Load image "WindowMin.png",15
Load image "Box.bmp",16
Load image "Box_Pressed.bmp",17
Load image "Circle.bmp",18
Load image "Circle_Clicked.bmp",19

cls

Ink RGB(0,0,128),0
Circle 5,5,5
Ink RGB(215,2,7),0
Circle 5.9,5,3
Ink RGB(40,172,2),0
Dot 5,5
Get image 64000,0,0,15,15

Dim Files$(1000,2): Dim Drv$(26)
Dim Temp$(1000,2): Dim GotDrives(0)
Dim Path$(0): Dim Filename$(0)
Dim SliderHeight(0): Dim FileOffset(0)
Dim Uses$(1)

If file exist("Data/Info.txt")
   Open to read 1,"data/info.txt"
   Read string 1,Uses$(1)
   close file 1
   delete file "Data/info.txt"
   exist=1
else
   open to write 1,"data/info.txt"
   Write string 1,"1"
   Exist=0
endif

If  exist=1
   Uses=Val(uses$(1))
   Uses=Uses+1
   Uses$(1)=Str$(Uses)
   open to write 1,"Data/info.txt"
   Write string 1,Uses$(1)
   close file 1
endif

initguisystem()

draw_box()

Pencil=1

Draw_Color=RGB(255,255,255)

Filled=1
Outline=0
pdone=1

do

Sprite 11,MouseX()-5,MOuseY()-5,64000

draw_box()
   Paste image 1,0,15
   Paste image 13,0,0

Gosub Buttons

if mouseclick() and pickcolor(mouseX(),175,mouseY(),175)=1 and hold=0
      Draw_Color=Point(MouseX(),MouseY() )
   endif

if Eraser=1
      gosub Erase
   else
      if sprite exist(10)
         delete sprite 10
      endif
   endif

If drawbox#=1
      Gosub Drawbox
      If keystate(2) then Filled=1 : Outline=0
      if Keystate(3) then Filled=0 : Outline=1
   endif

If Pencil=1
      Gosub Pencil
   endif

If circle=1
      Gosub Circles
   endif

If spacekey()
      Pencil=0
      circle=0
      erase=0
      box=0
      line=1
   endif

if line=1
      gosub lines
   endif

sync

loop

`---------------------------
`-----Subroutines-----------
`---------------------------

Buttons:

if controlkey() and keystate(31)
      if Pressed=0
         if image exist(40)
            delete image 40
         endif
         get image 40,175,15,screen width()-2,screen height()-5
         check:
         if file exist("saved images/Untitled"+str$(num)+".bmp")
            Num=Num+1
         endif
         If file exist("saved images/Untitled"+str$(num)+".bmp")
            Gosub Check
         endif
         Save image "saved images/Untitled"+str$(num)+".bmp",40
         pressed=1
      endif
   else
      Pressed=0
   endif

if controlkey() and keystate(46)
      show mouse
      if Alertbox("Clear screen","Are you sure you want to clear the screen?",0,1)=1
         Cls
         Paste image 5,0,230
         paste image 2,0,200
         draw_box()
         paste image 1,0,15
         Paste image 13,0,0
         hide mouse
      endif
   endif

if saving=1
      SaveSelect=Fileselect("Saved images","Save Image","BMP",0,1)
      hide mouse
   endif

If saveselect>0
      If File exist(Path$(0)+Filename$(0))
         show mouse
         Alert=AlertBox("Overwrite","File Already Exists! Overwrite?",0,2)
         hide mouse
         If alert=1
            Delete file Path$(0)+FileName$(0)
            Save Image Path$(0)+FileName$(0),40
            Clear=1
         else
            clear=1
         endif
      endif
      if file exist(Path$(0)+FileName$(0))=0
         Save image Path$(0)+FileName$(0),40
      endif
      saving=0
      saveselect=0
   else
      saving=0
      saveselect=0
   endif

if clear=1
      Get image 40,174,15,640,480
      CLS
      Paste image 40,175,15
      clear=0
   endif

if mouseclick()
      if MouseX()>0 and MouseX()<80 and MouseY()>200 and MouseY()<230
         Paste image 3,0,200
         if IMAGE EXIST(40)
            delete image 40
         endif
         get image 40,175,15,screen width()-2,screen height()-5.
         saving=1
      endif
   else
      paste image 2,0,200
   endif

if mouseclick() and mouseX()>0 and MouseX()<80 and MouseY()>230 and mouseY()<260
      show mouse
      if Alertbox("Clear screen","Are you sure you want to clear the screen?",0,1)=1
         Cls
         Paste image 5,0,230
         paste image 2,0,200
         draw_box()
         paste image 1,0,15
         Paste image 13,0,0
         Hide mouse
      endif
   else
      paste image 4,0,230
   endif

If mouseclick() and mouseX()>0 and MouseX()<80 and MouseY()>260 and MouseY()<290
      paste image 7,0,260
      Pencil=1
      Drawbox#=0
      Eraser=0
      Circle=0
   else
      paste image 6,0,260
   endif
   If mouseclick() and mouseX()>0 and MouseX()<80 and MouseY()>290 and MouseY()<320
      paste image 9,0,290
      Eraser=1
      Drawbox#=0
      pencil=0
      Circle=0
      hide mouse
   else
      paste image 8,0,290
   endif

If mouseclick() and MouseX()>0 and MouseX()<80 and MouseY()>320 and Mousey()<350
      Paste image 17,0,320
      Drawbox#=1
      Eraser=0
      Pencil=0
      Circle=0
   else
      Paste image 16,0,320
   endif

If mouseclick() and MouseX()>0 and MOuseX()<80 and MouseY()>350 and MouseY()<380
      Paste image 19,0,350
      Circle=1
      Eraser=0
      Pencil=0
      Drawbox#=0
   else
      paste image 18,0,350
   endif

If mouseclick() and MouseX()>0 and MouseX()<80 and MouseY()>380 and MouseY()<410
      Paste image 12,0,380
      Clicked=1
      show mouse
   else
      Paste image 11,0,380
   endif

if clicked=1
      Load:
      selected=fileselect(Get Dir$(),"Load Image(Image size Less then 465X465) ","BMP",0,1)
      Hide mouse
   endif
   If selected>0
      if file exist(path$(0)+Filename$(0))=0
         MessageBox("No Image","Image Does not exist",1)
         Gosub Load
      endif
      Load image Path$(0)+FileName$(0),1000
      Paste image 1000,175,15
      Clicked=0
      path$(0)=""
      Filename$(0)=""
      selected=0
      Hide mouse
   else
      Clicked=0
      selected=0
   endif

If mouseclick() and MouseX()<Screen width()-5 and MouseX()>Screen Width()-23 and MouseY()>0 and MouseY()<15
      Paste image 14,0,0
      Exit=1
   endif

If exit=1 and Mouseclick()=0
      if sprite exist(10)
         hide sprite 10
      endif
      Show mouse
      Endprogram=Alertbox("End Program?","Are you sure you want to close?",1,1)
      If endprogram=1
         Messagebox("Info!","All Message Boxes were Made by TDKman",1)
         end
      else
      endif
      exit=0
   endif

If Mouseclick() and MouseX()<screen width()-26 and MouseX()>Screen width()-44 and MouseY()>0 and mousey()<15
      Paste image 15,0,0
      Min=1
   endif

If min=1 and mouseclick()=0
      Minimize window
      Min=0
   endif

If mouseclick()=0 and MouseX()>screen width()-5 and MouseX()<Screen Width()-44 and Mousey()>15
      Paste image 13,0,0
   endif

return

Drawbox:

If Filled=1
   If Mouseclick() and Mouseinside(MouseX(),175) and MouseY()>15
      If f=0
         X1=MouseX()
         y1=Mousey()
         Get image 6000,175,15,640,480
      endif
      f=1
      MC=1
      Cls
      paste image 2,0,200
      draw_box()
      paste image 1,0,15
      Paste image 13,0,0
      Paste image 4,0,230
      Paste image 6,0,260
      Paste image 8,0,290
      Paste image 11,0,380
      Paste image 18,0,350
      Paste image 16,0,320
      Paste image 6000,175,15
      INk Draw_Color,0
      If MouseX()>X1
         Box X1,Y1,MouseX(),MouseY()
      else
         Box MouseX(),MouseY(),X1,Y1
      endif
   endif

if mouseclick()=0 and mc=1 then X2=MouseX() : Y2=MouseY() : MC=0 : draw=1

if draw=1
      ink Draw_Color,0
      box X1,y1,X2,y2
      X1=0
      y1=0
      x2=0
      y2=0
      f=0
      draw=0
   endif
endif

If Outline=1
   If Mouseclick() and Mouseinside(MouseX(),175) and MouseY()>15
      If f=0
         X1=MouseX()
         y1=Mousey()
         Get image 6000,175,15,640,480
      endif
      f=1
      MC=1
      Cls
      paste image 2,0,200
      draw_box()
      paste image 1,0,15
      Paste image 13,0,0
      Paste image 4,0,230
      Paste image 6,0,260
      Paste image 8,0,290
      Paste image 11,0,380
      Paste image 18,0,350
      Paste image 16,0,320
      Paste image 6000,175,15
      If MouseX()>X1
         ink Draw_Color,0
         Line X1,Y1,MOuseX(),Y1
         Line X1,Y1,X1,MouseY()
         Line X1,MouseY(),MOuseX(),MouseY()
         Line MouseX(),Y1,MOuseX(),MOuseY()
      else
         ink Draw_Color,0
         Line X1,Y1,MOuseX(),Y1
         Line X1,Y1,X1,MouseY()
         Line X1,MouseY(),MOuseX(),MouseY()
         Line MouseX(),Y1,MOuseX(),MOuseY()
      endif
   endif

if mouseclick()=0 and mc=1 then X2=MouseX() : Y2=MouseY() : MC=0 : draw=1

if draw=1
      ink Draw_Color,0
      Line X1,Y1,X2,Y1
      Line X1,Y1,X1,Y2
      Line X1,Y2,X2,Y2
      Line X2,Y1,X2,Y2
      X1=0
      y1=0
      x2=0
      y2=0
      f=0
      draw=0
   endif
endif

return

erase:

sprite 10,mouseX(),Mousey(),10
   set sprite 10,1,0
   hide sprite 10
   if mouseclick()
      if mouseinside(mouseX(),175)
         show sprite 10
         mx#=mouseX()
         my#=MouseY()
         ink RGB(0,0,0),0
         box mx#,My#,MX#+20,My#+20
      endif
   endif

if mouseinside(mouseX(),175) and MouseY()>15
      show sprite 10
      hide mouse
      hide sprite 11
   else
      hide sprite 10
      show sprite 11
   endif

return

Pencil:

if mouseclick() and Mouseinside(mouseX(),175)>0 and Eraser=0 and drawbox#=0
      if hold=0
      hold=1
      oldmx#=mouseX()
      oldmy#=mouseY()
      endif
   else
      hold=0
   endif

if hold=1
      mx#=mouseX()
      my#=MouseY()
      ink Draw_Color,0
      line oldmx#,oldmy#,mx#,my#
      oldmx#=mx#
      oldmy#=my#
   endif

return

Circles:

If keystate(2) then Filled=1 : outline=0
   If keystate(3) then Outline=1 : filled=0

If filled=1
      If Mouseclick() and Mouseinside(MouseX(),175) and MouseY()>15
         If f=0
            X1=MouseX()
            y1=Mousey()
         endif
         f=1
         MC=1
      endif

if mouseclick()=0 and mc=1
         if MouseX()>175
            X2=MouseX() : Y2=MouseY() : MC=0 : draw=1
         else
            MC=0
         endif
      endif

if draw=1
         Ink Draw_Color,0
         CircleD=(X2-X1)
         For D1=0 to 10
            For D2=0 to CircleD
               Circle X1+(circleD/2),Y1+(circled/2),D2
            next D2
         next d1
         X1=0
         y1=0
         x2=0
         y2=0
         f=0
         draw=0
      endif

endif

If Outline=1

If Mouseclick() and Mouseinside(MouseX(),175) and MouseY()>15
         If f=0
            X1=MouseX()
            y1=Mousey()
         endif
         f=1
         MC=1
      endif

if mouseclick()=0 and mc=1
         if MouseX()>175
            X2=MouseX() : Y2=MouseY() : MC=0 : draw=1
         else
            MC=0
         endif
      endif

if draw=1
         Ink Draw_Color,0
         CircleD=(X2-X1)
         Circle X1+(circleD/2),Y1+(circled/2),Circled
         X1=0
         y1=0
         x2=0
         y2=0
         f=0
         draw=0
      endif

endif

return

Lines:

If mouseclick() and MouseX()>175 and MouseY()>15
      If F=0
         X1=MouseX()
         Y1=MouseY()
         Get image 6000,175,15,640,480
      endif
      F=1
      MC=1
      Cls
      paste image 2,0,200
      draw_box()
      paste image 1,0,15
      Paste image 13,0,0
      Paste image 4,0,230
      Paste image 6,0,260
      Paste image 8,0,290
      Paste image 11,0,380
      Paste image 18,0,350
      Paste image 16,0,320
      Paste image 6000,175,15
      Line X1,Y1,MouseX(),Mousey()
   endif

If mouseclick()=0 and MC=1
      Line X1,Y1,MouseX(),Mousey()
      X1=0
      Y1=0
      X2=0
      Y2=0
      MC=0
      F=0
   endif

return

function mouseinside(mx,num)

if mx>num
      Outside=1
   else
      outside=0
   endif

endfunction outside

function pickcolor(mx,num1,my,num2)
   if mx<num1 and my<num2
      picked=1
   else
      picked=0
   endif

endfunction picked

function draw_box()
   ink rgb(255,255,255),0
   line 175,0,175,900
   line 175,15,900,15
   line screen width()-2,0,screen width()-2,900
   line 175,screen height()-5,900,screen height()-5

endfunction

+ Code Snippet

sync on
sync rate 0
Disable escapekey
hide mouse


#include "GUI.dba"

load image "Colo.bmp",1
Load image "Save.bmp",2
Load image "Save_Pressed.bmp",3
Load image "Clear.bmp",4
Load image "Clear_Pressed.bmp",5
Load image "Pencil.bmp",6
Load image "Pencil_pressed.bmp",7
Load image "eraser.bmp",8
Load image "Eraser_Pressed.bmp",9
ink rgb(255,255,255),0
box 1,1,18,18
get image 10,0,0,20,20
Load image "Load.bmp",11
Load image "load_Pressed.bmp",12
Load image "WindowNo.png",13
Load image "WindowEnd.png",14
Load image "WindowMin.png",15
Load image "Box.bmp",16
Load image "Box_Pressed.bmp",17
Load image "Circle.bmp",18
Load image "Circle_Clicked.bmp",19

cls

Ink RGB(0,0,128),0
Circle 5,5,5
Ink RGB(215,2,7),0
Circle 5.9,5,3
Ink RGB(40,172,2),0
Dot 5,5
Get image 64000,0,0,15,15


Dim Files$(1000,2): Dim Drv$(26)
Dim Temp$(1000,2): Dim GotDrives(0)
Dim Path$(0): Dim Filename$(0)
Dim SliderHeight(0): Dim FileOffset(0)
Dim Uses$(1)

If file exist("Data/Info.txt")
   Open to read 1,"data/info.txt"
   Read string 1,Uses$(1)
   close file 1
   delete file "Data/info.txt"
   exist=1
else
   open to write 1,"data/info.txt"
   Write string 1,"1"
   Exist=0
endif

If  exist=1
   Uses=Val(uses$(1))
   Uses=Uses+1
   Uses$(1)=Str$(Uses)
   open to write 1,"Data/info.txt"
   Write string 1,Uses$(1)
   close file 1
endif

initguisystem()

draw_box()

Pencil=1

Draw_Color=RGB(255,255,255)

Filled=1
Outline=0
pdone=1

do

   Sprite 11,MouseX()-5,MOuseY()-5,64000

   draw_box()
   Paste image 1,0,15
   Paste image 13,0,0

   Gosub Buttons

   if mouseclick() and pickcolor(mouseX(),175,mouseY(),175)=1 and hold=0
      Draw_Color=Point(MouseX(),MouseY() )
   endif

   if Eraser=1
      gosub Erase
   else
      if sprite exist(10)
         delete sprite 10
      endif
   endif

   If drawbox#=1
      Gosub Drawbox
      If keystate(2) then Filled=1 : Outline=0
      if Keystate(3) then Filled=0 : Outline=1
   endif

   If Pencil=1
      Gosub Pencil
   endif

   If circle=1
      Gosub Circles
   endif

   If spacekey()
      Pencil=0
      circle=0
      erase=0
      box=0
      line=1
   endif

   if line=1
      gosub lines
   endif

   sync

loop

`---------------------------
`-----Subroutines-----------
`---------------------------

Buttons:

   if controlkey() and keystate(31)
      if Pressed=0
         if image exist(40)
            delete image 40
         endif
         get image 40,175,15,screen width()-2,screen height()-5
         check:
         if file exist("saved images/Untitled"+str$(num)+".bmp")
            Num=Num+1
         endif
         If file exist("saved images/Untitled"+str$(num)+".bmp")
            Gosub Check
         endif
         Save image "saved images/Untitled"+str$(num)+".bmp",40
         pressed=1
      endif
   else
      Pressed=0
   endif

   if controlkey() and keystate(46)
      show mouse
      if Alertbox("Clear screen","Are you sure you want to clear the screen?",0,1)=1
         Cls
         Paste image 5,0,230
         paste image 2,0,200
         draw_box()
         paste image 1,0,15
         Paste image 13,0,0
         hide mouse
      endif
   endif

   if saving=1
      SaveSelect=Fileselect("Saved images","Save Image","BMP",0,1)
      hide mouse
   endif

   If saveselect>0
      If File exist(Path$(0)+Filename$(0))
         show mouse
         Alert=AlertBox("Overwrite","File Already Exists! Overwrite?",0,2)
         hide mouse
         If alert=1
            Delete file Path$(0)+FileName$(0)
            Save Image Path$(0)+FileName$(0),40
            Clear=1
         else
            clear=1
         endif
      endif
      if file exist(Path$(0)+FileName$(0))=0
         Save image Path$(0)+FileName$(0),40
      endif
      saving=0
      saveselect=0
   else
      saving=0
      saveselect=0
   endif

   if clear=1
      Get image 40,174,15,640,480
      CLS
      Paste image 40,175,15
      clear=0
   endif

   if mouseclick()
      if MouseX()>0 and MouseX()<80 and MouseY()>200 and MouseY()<230
         Paste image 3,0,200
         if IMAGE EXIST(40)
            delete image 40
         endif
         get image 40,175,15,screen width()-2,screen height()-5.
         saving=1
      endif
   else
      paste image 2,0,200
   endif

   if mouseclick() and mouseX()>0 and MouseX()<80 and MouseY()>230 and mouseY()<260
      show mouse
      if Alertbox("Clear screen","Are you sure you want to clear the screen?",0,1)=1
         Cls
         Paste image 5,0,230
         paste image 2,0,200
         draw_box()
         paste image 1,0,15
         Paste image 13,0,0
         Hide mouse
      endif
   else
      paste image 4,0,230
   endif

   If mouseclick() and mouseX()>0 and MouseX()<80 and MouseY()>260 and MouseY()<290
      paste image 7,0,260
      Pencil=1
      Drawbox#=0
      Eraser=0
      Circle=0
   else
      paste image 6,0,260
   endif
   If mouseclick() and mouseX()>0 and MouseX()<80 and MouseY()>290 and MouseY()<320
      paste image 9,0,290
      Eraser=1
      Drawbox#=0
      pencil=0
      Circle=0
      hide mouse
   else
      paste image 8,0,290
   endif

   If mouseclick() and MouseX()>0 and MouseX()<80 and MouseY()>320 and Mousey()<350
      Paste image 17,0,320
      Drawbox#=1
      Eraser=0
      Pencil=0
      Circle=0
   else
      Paste image 16,0,320
   endif

   If mouseclick() and MouseX()>0 and MOuseX()<80 and MouseY()>350 and MouseY()<380
      Paste image 19,0,350
      Circle=1
      Eraser=0
      Pencil=0
      Drawbox#=0
   else
      paste image 18,0,350
   endif

   If mouseclick() and MouseX()>0 and MouseX()<80 and MouseY()>380 and MouseY()<410
      Paste image 12,0,380
      Clicked=1
      show mouse
   else
      Paste image 11,0,380
   endif

   if clicked=1
      Load:
      selected=fileselect(Get Dir$(),"Load Image(Image size Less then 465X465) ","BMP",0,1)
      Hide mouse
   endif
   If selected>0
      if file exist(path$(0)+Filename$(0))=0
         MessageBox("No Image","Image Does not exist",1)
         Gosub Load
      endif
      Load image Path$(0)+FileName$(0),1000
      Paste image 1000,175,15
      Clicked=0
      path$(0)=""
      Filename$(0)=""
      selected=0
      Hide mouse
   else
      Clicked=0
      selected=0
   endif

   If mouseclick() and MouseX()<Screen width()-5 and MouseX()>Screen Width()-23 and MouseY()>0 and MouseY()<15
      Paste image 14,0,0
      Exit=1
   endif

   If exit=1 and Mouseclick()=0
      if sprite exist(10)
         hide sprite 10
      endif
      Show mouse
      Endprogram=Alertbox("End Program?","Are you sure you want to close?",1,1)
      If endprogram=1
         Messagebox("Info!","All Message Boxes were Made by TDKman",1)
         end
      else
      endif
      exit=0
   endif

   If Mouseclick() and MouseX()<screen width()-26 and MouseX()>Screen width()-44 and MouseY()>0 and mousey()<15
      Paste image 15,0,0
      Min=1
   endif

   If min=1 and mouseclick()=0
      Minimize window
      Min=0
   endif

   If mouseclick()=0 and MouseX()>screen width()-5 and MouseX()<Screen Width()-44 and Mousey()>15
      Paste image 13,0,0
   endif


return

Drawbox:

If Filled=1
   If Mouseclick() and Mouseinside(MouseX(),175) and MouseY()>15
      If f=0
         X1=MouseX()
         y1=Mousey()
         Get image 6000,175,15,640,480
      endif
      f=1
      MC=1
      Cls
      paste image 2,0,200
      draw_box()
      paste image 1,0,15
      Paste image 13,0,0
      Paste image 4,0,230
      Paste image 6,0,260
      Paste image 8,0,290
      Paste image 11,0,380
      Paste image 18,0,350
      Paste image 16,0,320
      Paste image 6000,175,15
      INk Draw_Color,0
      If MouseX()>X1
         Box X1,Y1,MouseX(),MouseY()
      else
         Box MouseX(),MouseY(),X1,Y1
      endif
   endif

   if mouseclick()=0 and mc=1 then X2=MouseX() : Y2=MouseY() : MC=0 : draw=1

   if draw=1
      ink Draw_Color,0
      box X1,y1,X2,y2
      X1=0
      y1=0
      x2=0
      y2=0
      f=0
      draw=0
   endif
endif

If Outline=1
   If Mouseclick() and Mouseinside(MouseX(),175) and MouseY()>15
      If f=0
         X1=MouseX()
         y1=Mousey()
         Get image 6000,175,15,640,480
      endif
      f=1
      MC=1
      Cls
      paste image 2,0,200
      draw_box()
      paste image 1,0,15
      Paste image 13,0,0
      Paste image 4,0,230
      Paste image 6,0,260
      Paste image 8,0,290
      Paste image 11,0,380
      Paste image 18,0,350
      Paste image 16,0,320
      Paste image 6000,175,15
      If MouseX()>X1
         ink Draw_Color,0
         Line X1,Y1,MOuseX(),Y1
         Line X1,Y1,X1,MouseY()
         Line X1,MouseY(),MOuseX(),MouseY()
         Line MouseX(),Y1,MOuseX(),MOuseY()
      else
         ink Draw_Color,0
         Line X1,Y1,MOuseX(),Y1
         Line X1,Y1,X1,MouseY()
         Line X1,MouseY(),MOuseX(),MouseY()
         Line MouseX(),Y1,MOuseX(),MOuseY()
      endif
   endif

   if mouseclick()=0 and mc=1 then X2=MouseX() : Y2=MouseY() : MC=0 : draw=1

   if draw=1
      ink Draw_Color,0
      Line X1,Y1,X2,Y1
      Line X1,Y1,X1,Y2
      Line X1,Y2,X2,Y2
      Line X2,Y1,X2,Y2
      X1=0
      y1=0
      x2=0
      y2=0
      f=0
      draw=0
   endif
endif



return

erase:

   sprite 10,mouseX(),Mousey(),10
   set sprite 10,1,0
   hide sprite 10
   if mouseclick()
      if mouseinside(mouseX(),175)
         show sprite 10
         mx#=mouseX()
         my#=MouseY()
         ink RGB(0,0,0),0
         box mx#,My#,MX#+20,My#+20
      endif
   endif

   if mouseinside(mouseX(),175) and MouseY()>15
      show sprite 10
      hide mouse
      hide sprite 11
   else
      hide sprite 10
      show sprite 11
   endif

return

Pencil:

   if mouseclick() and Mouseinside(mouseX(),175)>0 and Eraser=0 and drawbox#=0
      if hold=0
      hold=1
      oldmx#=mouseX()
      oldmy#=mouseY()
      endif
   else
      hold=0
   endif

   if hold=1
      mx#=mouseX()
      my#=MouseY()
      ink Draw_Color,0
      line oldmx#,oldmy#,mx#,my#
      oldmx#=mx#
      oldmy#=my#
   endif

return

Circles:

   If keystate(2) then Filled=1 : outline=0
   If keystate(3) then Outline=1 : filled=0

   If filled=1
      If Mouseclick() and Mouseinside(MouseX(),175) and MouseY()>15
         If f=0
            X1=MouseX()
            y1=Mousey()
         endif
         f=1
         MC=1
      endif

      if mouseclick()=0 and mc=1
         if MouseX()>175
            X2=MouseX() : Y2=MouseY() : MC=0 : draw=1
         else
            MC=0
         endif
      endif


      if draw=1
         Ink Draw_Color,0
         CircleD=(X2-X1)
         For D1=0 to 10
            For D2=0 to CircleD
               Circle X1+(circleD/2),Y1+(circled/2),D2
            next D2
         next d1
         X1=0
         y1=0
         x2=0
         y2=0
         f=0
         draw=0
      endif

   endif

   If Outline=1

      If Mouseclick() and Mouseinside(MouseX(),175) and MouseY()>15
         If f=0
            X1=MouseX()
            y1=Mousey()
         endif
         f=1
         MC=1
      endif

      if mouseclick()=0 and mc=1
         if MouseX()>175
            X2=MouseX() : Y2=MouseY() : MC=0 : draw=1
         else
            MC=0
         endif
      endif


      if draw=1
         Ink Draw_Color,0
         CircleD=(X2-X1)
         Circle X1+(circleD/2),Y1+(circled/2),Circled
         X1=0
         y1=0
         x2=0
         y2=0
         f=0
         draw=0
      endif

   endif

return

Lines:

   If mouseclick() and MouseX()>175 and MouseY()>15
      If F=0
         X1=MouseX()
         Y1=MouseY()
         Get image 6000,175,15,640,480
      endif
      F=1
      MC=1
      Cls
      paste image 2,0,200
      draw_box()
      paste image 1,0,15
      Paste image 13,0,0
      Paste image 4,0,230
      Paste image 6,0,260
      Paste image 8,0,290
      Paste image 11,0,380
      Paste image 18,0,350
      Paste image 16,0,320
      Paste image 6000,175,15
      Line X1,Y1,MouseX(),Mousey()
   endif

   If mouseclick()=0 and MC=1
      Line X1,Y1,MouseX(),Mousey()
      X1=0
      Y1=0
      X2=0
      Y2=0
      MC=0
      F=0
   endif

return

function mouseinside(mx,num)

   if mx>num
      Outside=1
   else
      outside=0
   endif

endfunction outside

function pickcolor(mx,num1,my,num2)
   if mx<num1 and my<num2
      picked=1
   else
      picked=0
   endif

endfunction picked

function draw_box()
   ink rgb(255,255,255),0
   line 175,0,175,900
   line 175,15,900,15
   line screen width()-2,0,screen width()-2,900
   line 175,screen height()-5,900,screen height()-5

endfunction

And heres the specific mouseclick code:

if saving=1
      SaveSelect=Fileselect("Saved images","Save Image","BMP",0,1)
      hide mouse
   endif

If saveselect>0
      If File exist(Path$(0)+Filename$(0))
         show mouse
         Alert=AlertBox("Overwrite","File Already Exists! Overwrite?",0,2)
         hide mouse
         If alert=1
            Delete file Path$(0)+FileName$(0)
            Save Image Path$(0)+FileName$(0),40
            Clear=1
         else
            clear=1
         endif
      endif
      if file exist(Path$(0)+FileName$(0))=0
         Save image Path$(0)+FileName$(0),40
      endif
      saving=0
      saveselect=0
   else
      saving=0
      saveselect=0
   endif

if clear=1
      Get image 40,174,15,640,480
      CLS
      Paste image 40,175,15
      clear=0
   endif

if mouseclick()
      if MouseX()>0 and MouseX()<80 and MouseY()>200 and MouseY()<230
         Paste image 3,0,200
         if IMAGE EXIST(40)
            delete image 40
         endif
         get image 40,175,15,screen width()-2,screen height()-5.
         saving=1
      endif
   else
      paste image 2,0,200
   endif

+ Code Snippet

  if saving=1
      SaveSelect=Fileselect("Saved images","Save Image","BMP",0,1)
      hide mouse
   endif

   If saveselect>0
      If File exist(Path$(0)+Filename$(0))
         show mouse
         Alert=AlertBox("Overwrite","File Already Exists! Overwrite?",0,2)
         hide mouse
         If alert=1
            Delete file Path$(0)+FileName$(0)
            Save Image Path$(0)+FileName$(0),40
            Clear=1
         else
            clear=1
         endif
      endif
      if file exist(Path$(0)+FileName$(0))=0
         Save image Path$(0)+FileName$(0),40
      endif
      saving=0
      saveselect=0
   else
      saving=0
      saveselect=0
   endif

   if clear=1
      Get image 40,174,15,640,480
      CLS
      Paste image 40,175,15
      clear=0
   endif

   if mouseclick()
      if MouseX()>0 and MouseX()<80 and MouseY()>200 and MouseY()<230
         Paste image 3,0,200
         if IMAGE EXIST(40)
            delete image 40
         endif
         get image 40,175,15,screen width()-2,screen height()-5.
         saving=1
      endif
   else
      paste image 2,0,200
   endif

I know for a fact that it's not getting to the function call(if it did then the save box would pop up) so i figure it's in the actual mouseclick() code but i can't find anything that would crash it in the exe but not the editor. btw yes i know a couple of the functions are pretty much duplicated but i havn't taken them out yet (random but ussually people give advice on coding and i already know that there useless haha)

any ideas (i mean any! lol) would be very much appreshiated (wow that was so wrong lol)

Back to top

Profile PM Website

Robert The Robot

19

Years of Service

User Offline

Joined: 8th Jan 2007

Location: Fireball XL5

Posted: 7th Jan 2009 13:19

Link

Interesing problem - I haven't heard of a program that runs in the editor yet crashes as an exe. I'm wondering if you're looking for a file which doesn't exist. Are you quite sure your Info/data.txt file exists in the folder where the exe is? I can't quite follow what goes on with it at startup, it seems to keep being deleted and recreated.

Alternatively, maybe the "#include" command isn't working - try copying the contents over to your code project, so you're only compiling a single .dba file.

Perhaps more useful, try placing the attached setup.ini file with your compiled exe. I've adjusted it so that advanced error reporting is used - when the standalone exe crashes, it will return (amongs other things) the line number of the source code where the error occurred. Bear in mind that the returned line number treats all user defined functions as coming first in the dba file and then moves on to your main code (not sure where functions from include files appear).

If you trace the error to a "Sync" command, then look for an image or sprite that should exist but doesn't - You'll know an image has gone missing. If you trace it to a "Read data from file" type command, you'll know the file is missing.

Good luck!

"I wish I was a spaceman, the fastest guy alive. I'd fly you round the universe, in Fireball XL5..."

Back to top

Profile PM Website

Caleb1994

17

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 7th Jan 2009 18:41

Link

I am the dumbest person i know lol. it was that txt file! I was putting all my Versions in one file and forgot to put the Saved images and Data Files In that folder (saved images is where it saves if you just hit control S). the reason that txt file is getting deleted and remade is because it wouldn't work for some reason with save array so i had to load everything in delete it then change the stuff i needed make it again and save the stuff lol. seriusly i feel extremely stupid! i had looked at the code for like an hour and didn't see it.

thanks for that INI though That sounds usefull

Back to top

Profile PM Website

Ashingda 27

18

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 7th Jan 2009 18:52 Edited at: 7th Jan 2009 18:54

Link

I couldn't find anything in the mouseclick code but seems there might be a problem here:

+ Code Snippet

   if controlkey() and keystate(31)
      if Pressed=0
         if image exist(40)
            delete image 40
         endif
         get image 40,175,15,screen width()-2,screen height()-5
         check:
         if file exist("saved images/Untitled"+str$(num)+".bmp")
            Num=Num+1
         endif
         If file exist("saved images/Untitled"+str$(num)+".bmp")
            Gosub Check
         endif
         Save image "saved images/Untitled"+str$(num)+".bmp",40
         pressed=1
      endif
   else
      Pressed=0
   endif

In that gosub Check, you're going to Check: which is just a bit above right? If so It's better to use a goto than a gosub in this case so you don't run into an error with no return after gosub.

Better yet just run a For... Next or Repeat...Until.

Back to top

Profile PM Email

Caleb1994

17

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 8th Jan 2009 03:24

Link

ya i'll prbly use goto but if you read my last post i already fixed it

Back to top

Profile PM Website

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 8th Jan 2009 03:54

Link

Just an added note: when making a Final exe as opposed to just an exe, everything in the folder and any subfolders where the main program is located gets put into the final... EVERYTHING. So if you have test versions of the code, or extra exes or media you were testing out in the same folder, it will all get put in the exe and besides bloating it to a ridiculous size, it can also cause it not to function.

Enjoy your day.

Back to top

Profile PM

Caleb1994

17

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 9th Jan 2009 02:07

Link

oh I didn't know that thanks latch

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Discussion / Final EXE's don't like my paint Program X(