I finally did one a 20 liner! Scale down full sized bmps to icon files. This is only v0.1 which is basically pre-alpha.
`Dark Icon - Icon Maker Program
`By Jonathan Skinner
set window on:set window layout 1,1,1:set window size 640,480:set window position 100,200:set window title "Dark Icon - Programmed By: Jonathan Skinner":if file exist("C:\Dark Icon\Install.dat") = 1 then open = 1
set cursor 1,10:Print "Dark Icon is Loaded - Press Any Key":wait key:cls:set cursor 1,10
Print "You do need to include extension(.bmp), files must be bitmaps(.bmp)":input "My File: ";bmp$:openbmp = 1
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
set cursor 1,10:Print "Loading & Scaling Bitmap":Print "Loaded - Press Any Key":wait key:cls:bmp2$ = bmp$:load image bmp2$,10:sprite 1, 0, 0,10:size sprite 1,32,32:paste sprite 1, 0, 0:set cursor 1,300:ink rgb(255,255,0),1:Input "Name your file: ";img$:Print "Saving File":get image 11,0,0,32,32, 1
delete sprite 1:save image img$,11:Print "Image Saved":Print "Press Any Key":wait key:end
`This is for the 20 lined challenge
`I made it!
Thanks!
Jon
Programming is fun with DarkBASIC!