I'm still working on my icon maker & unfornately I have a problem with selecting an item off the list can anyone tell me how I can fix this problem/doing wrong?
`Dark Icon - Icon Making App
`By Jonathan Skinner
`Setup the framerate
sync on
sync rate 0
`Set the window on
set window on
set window size 640,480
set window position 100,200
set window title "Dark Icon - By Jonathan Skinner"
set window layout 1,1,1
`Select a image and edit it
text 100,10,"Please Select An Image To Make An Icon"
`Need to make a file selector
`Setup an interface basically
ink rgb(192,192,192),0
dir$ = "C:/"
ink rgb(255,0,0),0
line 90,40,400,40
ink rgb(192,192,192),0
set text font "Tahoma"
set text size 15
text 100,50,"Directory: "+dir$
ink rgb(255,0,0),0
line 350,40,350,350
line 90,40,90,350
line 90,350,350,350
line 400,40,400,350
line 350,350,400,350
line 330,40,330,350
ink rgb(0,255,0),0
load image "up.bmp",1
paste image 1,335,50
load image "down.bmp",2
paste image 2,335,330
sprite 1,335,50,1
sprite 2,335,330,2
hide sprite 1
hide sprite 2
load image "mouse_image.bmp",3
text 100,60,"-------------------------"
ink rgb(255,0,255),0
text 100,80,"<Parent>"
`Actual file browsing!!
y = 80
if y = 80
parent = 1
endif
`Get files in dir
set dir dir$
find first
`Variables
dim item$(20)
item = 0
selectitem = -1
y = 80
`Get all the files in the directory(c:)\
`File
red = 0
green = 255
blue = 255
ink rgb(red,green,blue),0
do
sprite 3,mousex(),mousey(),3
hide mouse
perform checklist for files
item$(0) = checklist string$(1)
text 100,90,item$(0)
item$(1) = checklist string$(2)
ink rgb(0,255,255),0
text 100,100,item$(1)
item$(2) = checklist string$(3)
text 100,110,item$(2)
item$(3) = checklist string$(4)
text 100,120,item$(3)
item$(4) = checklist string$(5)
text 100,130,item$(4)
item$(5) = checklist string$(6)
text 100,140,item$(5)
item$(6) = checklist string$(7)
text 100,150,item$(6)
item$(7) = checklist string$(8)
text 100,160,item$(7)
item$(8) = checklist string$(9)
text 100,170,item$(8)
item$(9) = checklist string$(10)
text 100,180,item$(9)
item$(10) = checklist string$(11)
text 100,190,item$(10)
item$(11) = checklist string$(12)
text 100,200,item$(11)
item$(12) = checklist string$(13)
text 100,210,item$(12)
item$(13) = checklist string$(14)
text 100,220,item$(13)
item$(14) = checklist string$(15)
text 100,230,item$(14)
item$(15) = checklist string$(16)
text 100,240,item$(15)
item$(16) = checklist string$(17)
text 100,250,item$(16)
item$(17) = checklist string$(18)
text 100,260,item$(17)
item$(18) = checklist string$(19)
text 100,270,item$(18)
item$(19) = checklist string$(20)
text 100,280,item$(19)
item$(20) = checklist string$(21)
text 100,290,item$(20)
`If Pressed
`Mouse lock
if sprite collision(1,3) = 1 and mouseclick() = 1
y = y+10
dim newitem$(item)
item = item+1
ink rgb(255,255,255),255
text 100,y,newitem$(item)
endif
if downkey() = 1 then y = y-10:item = item+1:ink rgb(255,255,255),255:text 100,y,item$(item)
sync
loop
I'm a extreme newbie and need help fast!
Current Project - Dark Icon: Icon Making App
Progress - 45%
