Ooops
November 25, 2020, 07:36:04 AM

Author Topic: [bb] User input system by eBusiness [ 1+ years ago ]  (Read 539 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
[bb] User input system by eBusiness [ 1+ years ago ]
« on: June 29, 2017, 12:28:42 AM »
Title : User input system
Author : eBusiness
Posted : 1+ years ago

Description : A dynamic system for getting user input from keyboard, mouse and a simple joystick
Written by Jacob Christian Munch-Andersen

Copy the Initialization to the beginning of your code, then decide how many inputs you want to use,
this can always be changed later. Also copy the six function to anywhere in your code.
In order to configure an input, first run the preidsconfigure function, then run the
idsconfigure function, with the id number of the input that you want to configure as parameter,
in a loop, untill it return 0, this will happen when the user make an input.
The hit and down functions work almost like the Blitz Basic Hit and Down function families,
A difference is that the down function will return values depending on how much the user push the
joystick, or how far the user have moved the mouse since last check. Check the array
keynames$(input id) to get the name of a key/input, this should work almost correctly with any
keyboard, you can alter the keynames if you like. The save and load functions will save/load all
input settings, you can pass a filename/path yourself, or use the default.


Code :
Code: BlitzBasic
  1. Graphics 640,480
  2.  
  3.  
  4.  
  5. ;A dynamic system for getting user input from keyboard, mouse and a simple joystick
  6. ;Written by Jacob Christian Munch-Andersen
  7.  
  8. ;Copy the Initialization to the beginning of your code, then decide how many inputs you want to use,
  9. ;this can always be changed later. Also copy the six function to anywhere in your code.
  10. ;In order to configure an input, first run the preidsconfigure function, then run the
  11. ;idsconfigure function, with the id number of the input that you want to configure as parameter,
  12. ;in a loop, untill it return 0, this will happen when the user make an input.
  13. ;The hit and down functions work almost like the Blitz Basic Hit and Down function families,
  14. ;A difference is that the down function will return values depending on how much the user push the
  15. ;joystick, or how far the user have moved the mouse since last check. Check the array
  16. ;keynames$(input id) to get the name of a key/input, this should work almost correctly with any
  17. ;keyboard, you can alter the keynames if you like. The save and load functions will save/load all
  18. ;input settings, you can pass a filename/path yourself, or use the default.
  19.  
  20. ;This code is public domain, you can use it, alter it and pass it to others, free of charge.
  21.  
  22.  
  23.  
  24. ;Initialization
  25. Global key_num=4 ;How many inputs do you need?
  26. Dim ids(1,key_num)
  27. Dim keynames$(key_num)
  28. Global mx_keys
  29. Global my_keys
  30. Global mz_keys
  31. Global last_mouse_x_pos
  32. Global last_mouse_y_pos
  33. Global last_mouse_z_pos
  34. Global last_mouse_x_neg
  35. Global last_mouse_y_neg
  36. Global last_mouse_z_neg
  37. Global last_mouse_x_hitp
  38. Global last_mouse_y_hitp
  39. Global last_mouse_x_hitn
  40. Global last_mouse_y_hitn
  41. Global mouse_factor_x#=1.0
  42. Global mouse_factor_y#=1.0
  43. Global mouse_factor_z#=1.0
  44. Global joystick_factor_x#=1.0
  45. Global joystick_factor_y#=1.0
  46. Dim joystick_minmax#(7)
  47. joystick_minmax(0)=-.08
  48. joystick_minmax(1)=-.8
  49. joystick_minmax(2)=.08
  50. joystick_minmax(3)=.8
  51. joystick_minmax(4)=-.08
  52. joystick_minmax(5)=-.8
  53. joystick_minmax(6)=.08
  54. joystick_minmax(7)=.8
  55. Dim joy_dir_list(3)
  56. ;End of initialization
  57.  
  58.  
  59.  
  60. ;Demo code
  61. For a=0 To key_num
  62.         Write "Key "+a+" = "
  63.         b=-1
  64.         preidsconfigure()
  65.         While b=-1
  66.                 b=idsconfigure(a)
  67.         Wend
  68.         Print keynames$(a)
  69. Next
  70. While Not KeyDown(1)
  71.         For a=0 To key_num
  72.                 If hit(a) Print a+" "+down#(0)
  73.         Next
  74.         Delay 30
  75. Wend
  76. End
  77.  
  78.  
  79.  
  80. Function save_key_settings(file$="keysettings.dat")
  81.         filehandle=WriteFile(file$)
  82.         If filehandle=0 Then Return 0
  83.         WriteFloat filehandle,mouse_factor_x#
  84.         WriteFloat filehandle,mouse_factor_y#
  85.         WriteFloat filehandle,mouse_factor_z#
  86.         WriteFloat filehandle,joystick_factor_x#
  87.         WriteFloat filehandle,joystick_factor_y#
  88.         For a_keys=0 To 7
  89.                 WriteFloat filehandle,joystick_minmax(a_keys)
  90.         Next
  91.         For a_keys=0 To key_num
  92.                 WriteInt filehandle,ids(0,a_keys)
  93.                 WriteInt filehandle,ids(1,a_keys)
  94.                 WriteString filehandle,keynames(a_keys)
  95.         Next
  96.         CloseFile filehandle
  97.         Return 1
  98. End Function
  99. Function load_key_settings(file$="keysettings.dat")
  100.         filehandle=ReadFile(file$)
  101.         If filehandle=0 Then Return 0
  102.         mouse_factor_x#=ReadFloat(filehandle)
  103.         mouse_factor_y#=ReadFloat(filehandle)
  104.         mouse_factor_z#=ReadFloat(filehandle)
  105.         joystick_factor_x#=ReadFloat(filehandle)
  106.         joystick_factor_y#=ReadFloat(filehandle)
  107.         For a_keys=0 To 7
  108.                 joystick_minmax(a_keys)=ReadFloat(filehandle)
  109.         Next
  110.         For a_keys=0 To key_num
  111.                 ids(0,a_keys)=ReadInt(filehandle)
  112.                 ids(1,a_keys)=ReadInt(filehandle)
  113.                 keynames(a_keys)=ReadString(filehandle)
  114.         Next
  115.         CloseFile filehandle
  116.         Return 1
  117. End Function
  118. Function hit(id)
  119.         If ids(0,id)=0 Then
  120.                 Return KeyHit(ids(1,id))
  121.         Else If ids(0,id)=1 Then
  122.                 Return MouseHit(ids(1,id))
  123.         Else If ids(0,id)=2 Then
  124.                 Return JoyHit(ids(1,id))
  125.         Else If ids(0,id)=3 Then
  126.                 If ids(1,id)=0 Then
  127.                         a_keys=MouseX()-last_mouse_x_hitn
  128.                         If a_keys<-20 Then
  129.                                 last_mouse_x_hitn=MouseX()
  130.                                 Return 1
  131.                         Else If a_keys>20 Then
  132.                                 last_mouse_x_hitn=MouseX()
  133.                                 Return 0
  134.                         Else
  135.                                 Return 0
  136.                         End If
  137.                 Else If ids(1,id)=1 Then
  138.                         a_keys=MouseX()-last_mouse_x_hitp
  139.                         If a_keys>20 Then
  140.                                 last_mouse_x_hitp=MouseX()
  141.                                 Return 1
  142.                         Else If a_keys<-20 Then
  143.                                 last_mouse_x_hitp=MouseX()
  144.                                 Return 0
  145.                         Else
  146.                                 Return 0
  147.                         End If
  148.                 Else If ids(1,id)=2 Then
  149.                         a_keys=MouseY()-last_mouse_y_hitn
  150.                         If a_keys<-20 Then
  151.                                 last_mouse_y_hitn=MouseY()
  152.                                 Return 1
  153.                         Else If a_keys>20 Then
  154.                                 last_mouse_y_hitn=MouseY()
  155.                                 Return 0
  156.                         Else
  157.                                 Return 0
  158.                         End If
  159.                 Else If ids(1,id)=3 Then
  160.                         a_keys=MouseY()-last_mouse_y_hitp
  161.                         If a_keys>20 Then
  162.                                 last_mouse_y_hitp=MouseY()
  163.                                 Return 1
  164.                         Else If a_keys<-20 Then
  165.                                 last_mouse_y_hitp=MouseY()
  166.                                 Return 0
  167.                         Else
  168.                                 Return 0
  169.                         End If
  170.                 Else If ids(1,id)=4 Then
  171.                         a_keys=MouseZ()-last_mouse_z_neg
  172.                         last_mouse_z_neg=MouseZ()
  173.                         If a_keys<0 Then
  174.                                 Return 1
  175.                         Else
  176.                                 Return 0
  177.                         End If
  178.                 Else If ids(1,id)=5 Then
  179.                         a_keys=MouseZ()-last_mouse_z_pos
  180.                         last_mouse_z_pos=MouseZ()
  181.                         If a_keys>0 Then
  182.                                 Return 1
  183.                         Else
  184.                                 Return 0
  185.                         End If
  186.                 Else If ids(1,id)=6
  187.                         If JoyXDir()=-1 Then
  188.                                 If joy_dir_list(0)=1 Then
  189.                                         Return 0
  190.                                 Else
  191.                                         joy_dir_list(0)=1
  192.                                         Return 1
  193.                                 End If
  194.                         Else
  195.                                 joy_dir_list(0)=0
  196.                                 Return 0
  197.                         End If
  198.                 Else If ids(1,id)=7
  199.                         If JoyXDir()=1 Then
  200.                                 If joy_dir_list(1)=1 Then
  201.                                         Return 0
  202.                                 Else
  203.                                         joy_dir_list(1)=1
  204.                                         Return 1
  205.                                 End If
  206.                         Else
  207.                                 joy_dir_list(1)=0
  208.                                 Return 0
  209.                         End If
  210.                 Else If ids(1,id)=8
  211.                         If JoyYDir()=-1 Then
  212.                                 If joy_dir_list(2)=1 Then
  213.                                         Return 0
  214.                                 Else
  215.                                         joy_dir_list(2)=1
  216.                                         Return 1
  217.                                 End If
  218.                         Else
  219.                                 joy_dir_list(2)=0
  220.                                 Return 0
  221.                         End If
  222.                 Else If ids(1,id)=9
  223.                         If JoyYDir()=1 Then
  224.                                 If joy_dir_list(3)=1 Then
  225.                                         Return 0
  226.                                 Else
  227.                                         joy_dir_list(3)=1
  228.                                         Return 1
  229.                                 End If
  230.                         Else
  231.                                 joy_dir_list(3)=0
  232.                                 Return 0
  233.                         End If
  234.                 End If
  235.         End If
  236. End Function
  237. Function down#(id)
  238.         If ids(0,id)=0 Then
  239.                 Return KeyDown(ids(1,id))
  240.         Else If ids(0,id)=1 Then
  241.                 Return MouseDown(ids(1,id))
  242.         Else If ids(0,id)=2 Then
  243.                 Return JoyDown(ids(1,id))
  244.         Else If ids(0,id)=3 Then
  245.                 If ids(1,id)=0 Then
  246.                         a_keys=MouseX()-last_mouse_x_neg
  247.                         last_mouse_x_neg=MouseX()
  248.                         If a_keys<0 Then
  249.                                 Return -a_keys*mouse_factor_x#
  250.                         Else
  251.                                 Return 0
  252.                         End If
  253.                 Else If ids(1,id)=1 Then
  254.                         a_keys=MouseX()-last_mouse_x_pos
  255.                         last_mouse_x_pos=MouseX()
  256.                         If a_keys>0 Then
  257.                                 Return a_keys*mouse_factor_x#
  258.                         Else
  259.                                 Return 0
  260.                         End If
  261.                 Else If ids(1,id)=2 Then
  262.                         a_keys=MouseY()-last_mouse_y_neg
  263.                         last_mouse_y_neg=MouseY()
  264.                         If a_keys<0 Then
  265.                                 Return -a_keys*mouse_factor_y#
  266.                         Else
  267.                                 Return 0
  268.                         End If
  269.                 Else If ids(1,id)=3 Then
  270.                         a_keys=MouseY()-last_mouse_y_pos
  271.                         last_mouse_y_pos=MouseY()
  272.                         If a_keys>0 Then
  273.                                 Return a_keys*mouse_factor_y#
  274.                         Else
  275.                                 Return 0
  276.                         End If
  277.                 Else If ids(1,id)=4 Then
  278.                         a_keys=MouseZ()-last_mouse_z_neg
  279.                         last_mouse_z_neg=MouseZ()
  280.                         If a_keys<0 Then
  281.                                 Return -a_keys*mouse_factor_z#
  282.                         Else
  283.                                 Return 0
  284.                         End If
  285.                 Else If ids(1,id)=5 Then
  286.                         a_keys=MouseZ()-last_mouse_z_pos
  287.                         last_mouse_z_pos=MouseZ()
  288.                         If a_keys>0 Then
  289.                                 Return a_keys*mouse_factor_z#
  290.                         Else
  291.                                 Return 0
  292.                         End If
  293.                 Else If ids(1,id)=6 Then
  294.                         a_keyss#=JoyX()
  295.                         If a_keyss>joystick_minmax(0) Then
  296.                                 Return 0
  297.                         Else If a_keyss>joystick_minmax(1) Then
  298.                                 Return joystick_factor_x*(joystick_minmax(0)-a_keyss)/(joystick_minmax(0)-joystick_minmax(1))
  299.                         Else
  300.                                 Return 1
  301.                         End If
  302.                 Else If ids(1,id)=7 Then
  303.                         a_keyss#=JoyX()
  304.                         If a_keyss<joystick_minmax(2) Then
  305.                                 Return 0
  306.                         Else If a_keyss<joystick_minmax(3) Then
  307.                                 Return joystick_factor_x*(joystick_minmax(2)-a_keyss)/(joystick_minmax(2)-joystick_minmax(3))
  308.                         Else
  309.                                 Return 1
  310.                         End If
  311.                 Else If ids(1,id)=8 Then
  312.                         a_keyss#=JoyY()
  313.                         If a_keyss>joystick_minmax(4) Then
  314.                                 Return 0
  315.                         Else If a_keyss>joystick_minmax(5) Then
  316.                                 Return joystick_factor_y*(joystick_minmax(4)-a_keyss)/(joystick_minmax(4)-joystick_minmax(5))
  317.                         Else
  318.                                 Return 1
  319.                         End If
  320.                 Else If ids(1,id)=9 Then
  321.                         a_keyss#=JoyY()
  322.                         If a_keyss<joystick_minmax(6) Then
  323.                                 Return 0
  324.                         Else If a_keyss<joystick_minmax(7) Then
  325.                                 Return joystick_factor_y*(joystick_minmax(6)-a_keyss)/(joystick_minmax(6)-joystick_minmax(7))
  326.                         Else
  327.                                 Return 1
  328.                         End If
  329.                 End If
  330.         End If
  331. End Function
  332. Function preidsconfigure()
  333.         FlushKeys
  334.         FlushMouse
  335.         MoveMouse(GraphicsWidth()/2,GraphicsHeight()/2) ;Optionanl
  336.         mx_keys=MouseX()
  337.         my_keys=MouseY()
  338.         mz_keys=MouseZ()
  339.         joy_dir_list(0)=(JoyXDir()=-1)
  340.         joy_dir_list(1)=(JoyXDir()=1)
  341.         joy_dir_list(2)=(JoyYDir()=-1)
  342.         joy_dir_list(3)=(JoyYDir()=1)
  343. End Function
  344. Function idsconfigure(id)
  345. ;       Repeat
  346.                 If JoyXDir()<>-1 Then joy_dir_list(0)=0
  347.                 If JoyXDir()<>1 Then joy_dir_list(1)=0
  348.                 If JoyYDir()<>-1 Then joy_dir_list(2)=0
  349.                 If JoyYDir()<>1 Then joy_dir_list(3)=0
  350.                 If MouseX()-mx_keys<-50 Then
  351.                         ids(0,id)=3
  352.                         ids(1,id)=0
  353.                         keynames(id)="Move Mouse Left"
  354.                         Return
  355.                 Else If MouseX()-mx_keys>50 Then
  356.                         ids(0,id)=3
  357.                         ids(1,id)=1
  358.                         keynames(id)="Move Mouse Right"
  359.                         Return
  360.                 Else If MouseY()-my_keys<-50 Then
  361.                         ids(0,id)=3
  362.                         ids(1,id)=2
  363.                         keynames(id)="Move Mouse Up"
  364.                         Return
  365.                 Else If MouseY()-my_keys>50 Then
  366.                         ids(0,id)=3
  367.                         ids(1,id)=3
  368.                         keynames(id)="Move Mouse Down"
  369.                         Return
  370.                 Else If MouseZ()-mz_keys<0 Then
  371.                         ids(0,id)=3
  372.                         ids(1,id)=4
  373.                         keynames(id)="Roll Whell Backward"
  374.                         Return
  375.                 Else If MouseZ()-mz_keys>0 Then
  376.                         ids(0,id)=3
  377.                         ids(1,id)=5
  378.                         keynames(id)="Roll Whell Forward"
  379.                         Return
  380.                 Else If JoyXDir()=-1 And joy_dir_list(0)=0 Then
  381.                         ids(0,id)=3
  382.                         ids(1,id)=6
  383.                         keynames(id)="Joystick Left"
  384.                         Return
  385.                 Else If JoyXDir()=1 And joy_dir_list(1)=0 Then
  386.                         ids(0,id)=3
  387.                         ids(1,id)=7
  388.                         keynames(id)="Joystick Right"
  389.                         Return
  390.                 Else If JoyYDir()=-1 And joy_dir_list(2)=0 Then
  391.                         ids(0,id)=3
  392.                         ids(1,id)=8
  393.                         keynames(id)="Joystick Up"
  394.                         Return
  395.                 Else If JoyYDir()=1 And joy_dir_list(3)=0 Then
  396.                         ids(0,id)=3
  397.                         ids(1,id)=9
  398.                         keynames(id)="Joystick Down"
  399.                         Return
  400.                 End If
  401.                 For a=0 To 255
  402.                         If KeyHit(a) Then
  403.                                 ids(0,id)=0
  404.                                 ids(1,id)=a
  405.                                 keys_midvar=GetKey()
  406. ;                               If keys_midvar=0 Or a=57 Or a>70 And a<84 Or a=55 Or a=181 Or 1=1 Then
  407.                                         If a=1 Then
  408.                                                 keynames(id)="Escape"
  409.                                         Else If a=15 Then
  410.                                                 keynames(id)="Tab"
  411.                                         Else If a=58 Then
  412.                                                 keynames(id)="Caps Lock"
  413.                                         Else If a=42 Then
  414.                                                 keynames(id)="Left Shift"
  415.                                         Else If a=29 Then
  416.                                                 keynames(id)="Left Control"
  417.                                         Else If a=219 Then
  418.                                                 keynames(id)="Left Start"
  419.                                         Else If a=56 Then
  420.                                                 keynames(id)="Left Alt"
  421.                                         Else If a=57 Then
  422.                                                 keynames(id)="Space"
  423.                                         Else If a=184 Then
  424.                                                 keynames(id)="Right Alt Gr"
  425.                                         Else If a=220 Then
  426.                                                 keynames(id)="Right Start"
  427.                                         Else If a=221 Then
  428.                                                 keynames(id)="Menu Button"
  429.                                         Else If a=157 Then
  430.                                                 keynames(id)="Right Control"
  431.                                         Else If a=54 Then
  432.                                                 keynames(id)="Right Shift"
  433.                                         Else If a=28 Then
  434.                                                 keynames(id)="Enter"
  435.                                         Else If a=14 Then
  436.                                                 keynames(id)="Backspace"
  437.                                         Else If a=59 Then
  438.                                                 keynames(id)="F1"
  439.                                         Else If a=60 Then
  440.                                                 keynames(id)="F2"
  441.                                         Else If a=61 Then
  442.                                                 keynames(id)="F3"
  443.                                         Else If a=62 Then
  444.                                                 keynames(id)="F4"
  445.                                         Else If a=63 Then
  446.                                                 keynames(id)="F5"
  447.                                         Else If a=64 Then
  448.                                                 keynames(id)="F6"
  449.                                         Else If a=65 Then
  450.                                                 keynames(id)="F7"
  451.                                         Else If a=66 Then
  452.                                                 keynames(id)="F8"
  453.                                         Else If a=67 Then
  454.                                                 keynames(id)="F9"
  455.                                         Else If a=68 Then
  456.                                                 keynames(id)="F10"
  457.                                         Else If a=87 Then
  458.                                                 keynames(id)="F11"
  459.                                         Else If a=88 Then
  460.                                                 keynames(id)="F12"
  461.                                         Else If a=183 Then
  462.                                                 keynames(id)="Print Screen"
  463.                                         Else If a=70 Then
  464.                                                 keynames(id)="Pause"
  465.                                         Else If a=197 Then
  466.                                                 keynames(id)="Num Lock"
  467.                                         Else If a=210 Then
  468.                                                 keynames(id)="Insert"
  469.                                         Else If a=199 Then
  470.                                                 keynames(id)="Home"
  471.                                         Else If a=201 Then
  472.                                                 keynames(id)="Page Up"
  473.                                         Else If a=211 Then
  474.                                                 keynames(id)="Delete"
  475.                                         Else If a=207 Then
  476.                                                 keynames(id)="End"
  477.                                         Else If a=209 Then
  478.                                                 keynames(id)="Page Down"
  479.                                         Else If a=200 Then
  480.                                                 keynames(id)="Arrow Up"
  481.                                         Else If a=203 Then
  482.                                                 keynames(id)="Arrow Left"
  483.                                         Else If a=208 Then
  484.                                                 keynames(id)="Arrow Down"
  485.                                         Else If a=205 Then
  486.                                                 keynames(id)="Arrow Right"
  487.                                         Else If a=69 Then
  488.                                                 keynames(id)="Num Lock"
  489.                                         Else If a=181 Then
  490.                                                 keynames(id)="Numpad /"
  491.                                         Else If a=55 Then
  492.                                                 keynames(id)="Numpad *"
  493.                                         Else If a=71 Then
  494.                                                 keynames(id)="Numpad 7"
  495.                                         Else If a=72 Then
  496.                                                 keynames(id)="Numpad 8"
  497.                                         Else If a=73 Then
  498.                                                 keynames(id)="Numpad 9"
  499.                                         Else If a=74 Then
  500.                                                 keynames(id)="Numpad -"
  501.                                         Else If a=75 Then
  502.                                                 keynames(id)="Numpad 4"
  503.                                         Else If a=76 Then
  504.                                                 keynames(id)="Numpad 5"
  505.                                         Else If a=77 Then
  506.                                                 keynames(id)="Numpad 6"
  507.                                         Else If a=78 Then
  508.                                                 keynames(id)="Munpad +"
  509.                                         Else If a=79 Then
  510.                                                 keynames(id)="Numpad 1"
  511.                                         Else If a=80 Then
  512.                                                 keynames(id)="Numpad 2"
  513.                                         Else If a=81 Then
  514.                                                 keynames(id)="Numpad 3"
  515.                                         Else If a=82 Then
  516.                                                 keynames(id)="Numpad 0"
  517.                                         Else If a=83 Then
  518.                                                 If keys_midvar=0 Then
  519.                                                         keynames(id)="Numpad ."
  520.                                                 Else
  521.                                                         keynames(id)="Numpad "+Chr(keys_midvar)
  522.                                                 End If
  523.                                         Else If a=156 Then
  524.                                                 keynames(id)="Numpad Enter"
  525.                                         Else
  526. ;                                               keynames(id)="Unknown key "+a
  527.                                                 If keys_midvar>223 Then keys_midvar=keys_midvar-32
  528.                                                 If keys_midvar=0 Then
  529.                                                         keynames(id)="Unknown Key"
  530.                                                 Else
  531.                                                         keynames(id)=Upper(Chr(keys_midvar));+" Key"
  532.                                                 End If
  533.                                         End If
  534. ;                               Else
  535. ;                                       If keys_midvar>223 Then keys_midvar=keys_midvar-32
  536. ;                                       keynames(id)=Upper(Chr(keys_midvar));+" Key"
  537. ;                               End If
  538.                                 Return
  539.                         End If
  540.                 Next
  541.                 For a=0 To 15
  542.                         If JoyHit(a) Then
  543.                                 ids(0,id)=2
  544.                                 ids(1,id)=a
  545.                                 keynames(id)="Joystick Button "+a
  546.                                 Return
  547.                         End If
  548.                 Next
  549.                 For a=1 To 3
  550.                         If MouseHit(a) Then
  551.                                 ids(0,id)=1
  552.                                 ids(1,id)=a
  553.                                 If a=1 Then
  554.                                         keynames(id)="Left Mouse Key"
  555.                                 Else If a=2 Then
  556.                                         keynames(id)="Right Mouse Key"
  557.                                 Else
  558.                                         keynames(id)="Middle Mouse Key"
  559.                                 End If
  560.                                 Return
  561.                         End If
  562.                 Next
  563. ;               Delay 5
  564. ;       Forever
  565.         Return -1
  566. End Function


Comments : none...

 

SimplePortal 2.3.6 © 2008-2014, SimplePortal