Zoom:
if mouseclick()=2
while mouseclick()=1 or mouseclick()=2 or mouseclick()=3
rem Zoom
if mouseclick()=2 then maxzoom#=-63
if mouseclick()=0 then maxzoom#=0 : zoom#=0
if mouseclick()=3 then :` Fire here
zoom#=curvevalue(maxzoom#,zoom#,20)
set camera fov zoom#+70
percent# = (abs(zoom#)/maxzoom#)*100
text 20,440,"ZOOM FACTOR: "+str$(int(percent#)+1)+"%"
sync
endwhile
rem Reset zoom factor
zoom# = 0
set camera fov zoom#+70
endif
return
That should help.
You are the
th person to view this signature.
Programmers don't die, they just
Gosub without
return....
