Here is some commands for ya, and there code, you may have to edit it to work but I think BPL and FB has similar variables!
gosub command:
LB Code:
Code:case "gosub"
#main.t "!lines numlines"
For w = 1 to numlines
#main.t "!line ";w;" ed1$"
if wd = 1 then ed1$ = hand$
ed$ = word$(ed1$, 1)
if ed$ = word$(s$, 2) then i=w
next
Code to use in FB:
Code:
The variable names are totally random so change them to what you want!
For..Next Loop
LB Code
Code:
case "for"
loopnum$ = word$(s$, 2)
loopnum = val(loopnum$)
loopto = i
case "next"
f=f+1
if f = loopnum then
goto [for]
else
i=loopto
end if
[for]
FB code:
Code:
for 10
....commands here....
next
In this case it would loop 10 times
!When command
LB Code:
Code:case "!when"
when$=word$(s$, 2)
sub$=word$(s$, 3)
select case when$
case "left_button_down"' - the left mouse button has been pressed
print #win, "when leftButtonDown [click]"
case "left_button_up" ' - the left mouse button has been released
print #win, "when leftButtonUp [click]"
case "left_button_move"
print #win, "when leftButtonMove [click]"
case "left_button_double" ' - the left mouse button has been double-clicked
print #win, "when leftButtonDouble [click]"
case "right_button_down" ' - the right mouse button has been pressed
print #win, "when rightButtonDown [click]"
case "right_button_up" '- the right mouse button has been released
print #win, "when rightButtonUp [click]"
case "right_button_move" ' - the mouse moved while the right button was down
print #win, "when rightButtonMove [click]"
case "right_button_double" ' - the right mouse button has been double-clicked
print #win, "when rightButtonDouble [click]"
case "middle_button_down" '- the middle mouse button has been pressed
print #win, "when middleButtonDown [click]"
case "middle_button_up" '- the middle mouse button has been released
print #win, "when middleButtonUp [click]"
case "middle_button_move" ' - the mouse moved while the middle button was down
print #win, "when middleButtonDown [click]"
case "middle_button_double" ' - the middle mouse button has been double-clicked
print #win, "when middleButtonDouble [click]"
case "mouse_move"
print #win, "when moveMouse [click]"
case "character_input"
print #win, "when characterInput [click]"
case else
notice "Error 0908: Invalid !when instruction."
end select
FB Code:
Code:
!when middle_button_double {sub}
Hope this helps!
Author
Logged