Everytime I save my image guess what it saves as blackness?
Why is it doing this?
No media needed code included below:
I know you need to save it has a .bmp I haven't changed the input string cause I got bigger fish to fry.
`Dark Icon - Icon Maker Program
`By Jonathan Skinner
Remstart
#######################################
#Begin Source Code #
#######################################
Remend
Remstart
#####################################
#Installer Code #
#####################################
Remend
`Has the user already created the Dark Icon directories?
if file exist("C:\Dark Icon\Install.dat") = 1 then open = 1
`Check to see
if open = 1
open to read 1,"C:\Dark Icon\Install.dat"
read string 1,valu$
close file 1
if valu$ = "1" then gosub darkicon
if valu$ = "0" then open = 0:write = 1
endif
`If you need to write the values
if write = 1
open to write 1,"C:\Dark Icon\Install.dat"
existance = 1
write string 1,str$(existance)
close file 1
gosub darkicon
write = 0
endif
darkicon:
Remstart
###################################
#Dark Icon's Source Code #
###################################
Remend
Remstart
###################################
#Inatlize Program #
###################################
Remend
Print "Dark Icon is Loaded - Press Any Key"
wait key
cls
Remstart
######################################
#Loading Bitmaps for Icons #
######################################
Remend
`*Need to go back and change this for "people" that are to "busy" to type it in.
`For have a file loading dir thingy if possible only get it
`simple now
`Allow the user to give the name of their file
set cursor 1,10
Print "You do need to include extension(.bmp), files must be bitmaps(.bmp)"
input "My File: ";bmp$
openbmp = 1
`If the file exists, then load the file!
`Added later
Remstart
##################################
#Open a bitmap file #
##################################
Remend
if openbmp = 1
cls
set cursor 1,300
ink rgb(255,255,0),1
Print "Bitmap Preview - Press Any Key To Begin Editing"
load bitmap bmp$
wait key
cls
openbmp = 0
startedit = 1
endif
Remstart
###################################
#The Editing of the Icon #
###################################
Remend
`This will be really fixed later, reeeeeeeeallllllllly
`Just let 'em automatically save it right now
bmpid = 100
load image bmp$,101
sprite bmpid,1,32,101
size sprite bmpid,32,32
set cursor 1,300
Input "Rename your icon file(Include .ico extension): ";icon$
get image 200,1,1,32,32
save image icon$,200
Print "All Done, thank you for using Dark Icon!!"
Print "Press Any Key to End"
wait key
end
Programming is fun with DarkBASIC!
