Post by bluatigro on Feb 2, 2020 9:58:18 GMT
i m trying to build a elevator control
i started whit the graphics
error :
sprite dll in use
where do those ghost buttons come from ?
i started whit the graphics
error :
sprite dll in use
where do those ghost buttons come from ?
'' bluatigro 2 feb 2020
'' elevator example try
global false : false = 0
global true : true = not( false )
global floor , updown$ , state$
updown$ = "wait"
dim up( 4 ) , down( 4 ) , e( 4 )
WindowWidth = 800
WindowHeight = 600
nomainwin
button #m.down4 , "v" , [down4] , UL , 50 , 50 , 50 , 50
button #m.up3 , "^" , [up3] , UL , 50 , 100 , 50 , 50
button #m.down3 , "v" , [down3] , UL , 50 , 150 , 50 , 50
button #m.up2 , "^" , [up2] , UL , 50 , 200 , 50 , 50
button #m.down2 , "v" , [down2] , UL , 50 , 250 , 50 , 50
button #m.up1 , "^" , [up1] , UL , 50 , 300 , 50 , 50
button #m.e4 , "4" , [e4] , UL , 500 , 100 , 50 , 50
button #m.e3 , "3" , [e3] , UL , 500 , 200 , 50 , 50
button #m.e2 , "2" , [e2] , UL , 500 , 300 , 50 , 50
button #m.e1 , "1" , [e1] , UL , 500 , 400 , 50 , 50
open "elevator 0.1" for graphics as #m
#m "trapclose [quit]"
#m "goto 20 80"
#m "size 7"
#m "down"
#m "box 80 180"
#m "up"
#m "getbmp square 0 0 100 200"
#m "addsprite elevator square"
#m "spritexy elevator 110 500"
for i = 1 to 4
#m "addsprite door" ; i ; " square"
#m "spritexy door" ; i ; " 110 " ; 500 - i * 100
next i
#m "drawsprites"
wait
[quit]
close #m
end
[down4]
down( 4 ) = true
wait
[up3]
up( 3 ) = true
wait
[down3]
down( 3 ) = true
wait
[up2]
up( 2 ) = true
wait
[down2]
down( 2 ) = true
wait
[up1]
up( 1 ) = true
wait
[e4]
if floor <> 4 then
e( 4 ) = true
end if
wait
[e3]
if floor <> 3 then
e( 3 ) = true
end if
wait
[e2]
if floor <> 2 then
e( 2 ) = true
end if
wait
[e1]
if floor <> 1 then
e( 1 ) = true
end if
wait