API tools faq
paste
Advertisement
Guest User

312312

a guest
Apr 11th, 2018
74
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 14.04 KB | None | 0 0
raw download clone embed print report
  1. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  2. #AutoIt3Wrapper_Version=Beta
  3. #AutoIt3Wrapper_Compression=0
  4. #AutoIt3Wrapper_UseUpx=y
  5. #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
  6. #AutoIt3Wrapper_Res_Language=1031
  7. #AutoIt3Wrapper_Res_requestedExecutionLevel=None
  8. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  9. #cs ----------------------------------------------------------------------------
  10.  
  11.  AutoIt Version: 3.3.12.0
  12.  Author:         myName
  13.  
  14.  Script Function:
  15.     Template AutoIt script.
  16.  
  17. Mauszeiger:
  18.     Zahlen aus den Slots dafür bilder von Steinen
  19.     die anzahl der Steine Unter dem Mauszeiger als Zahl
  20. #ce ----------------------------------------------------------------------------
  21.  
  22. #cs --------------------------
  23.     Online Status
  24.  
  25.     SQL Player online
  26.     wenn spieler sich anmeldet dann wird eintrag in ODB gemacht
  27.     jeder ander spielr chk in timing ob alle in der liste online sind wenn nein wird eintrag in der liste gelöscht
  28.         (sicherstellen fals das programmm oder netzt bei anderen spielern zusammenbrach)
  29.     Login oder registration
  30.         Registration nach ihr wird code an mail gesandt dieser code wird eingeben und dadurch registration aktiviert
  31.  
  32.     Game starten oder auf einladung warten
  33.         oder anfrage an online spieler
  34.  
  35.     speichern jedes spiels 7 tage wenn am 7 tag keine züge mehr stattfinden wird spiel gelöscht aus der ODB
  36.  
  37. #ce --------------------------
  38. ; Script Start - Add your code below here
  39.  
  40. #include <Includes\includes.au3>
  41.  
  42.  
  43. #Region ### START Koda GUI section ### Form=
  44. $GUI_Main = GUICreate($ToolNAME, 600, 438, -1, -1)
  45. $W_pos = WinGetPos ($GUI_Main)
  46. $GRP_Player_01 = GUICtrlCreateGroup ("", 10, 10, $BTN_size[0] *8 +(20), $BTN_size[1] *2 +(20))
  47. $pos = ControlGetPos ($GUI_Main, "", $GRP_Player_01)
  48. Opt ('GUICoordMode', 0)
  49. ### Player 01 ###
  50. $Player = 1
  51. $BTN_Player_1[0] = GUICtrlCreateButton( "", $pos[2]/2 -($BTN_size[0]), ($pos[3]/2) +5, $BTN_size[0], $BTN_size[1], $BS_BITMAP)
  52. _ArrayAdd ($AR_Player_State_01, $BTN_Player_1[0])
  53. Opt ('GUICoordMode', 1)
  54. GUISetState(@SW_SHOW)
  55.  
  56. $pos = ControlGetPos ($GUI_Main, "", $BTN_Player_1[0])
  57. For $1 = 1 To 15
  58.     Sleep ($BTNSpeed)
  59.     If $1 = 4 Then
  60.         $BTN_Player_1[$1] = GUICtrlCreateButton( "", $pos[0], $pos[1] -$BTN_size[1], $BTN_size[0], $BTN_size[1], $BS_BITMAP)
  61.     ElseIf $1 = 12 Then
  62.         $BTN_Player_1[$1] = GUICtrlCreateButton( "", $pos[0], $pos[1] +$BTN_size[1], $BTN_size[0], $BTN_size[1], $BS_BITMAP)
  63.     ElseIf $1 > 12 Then
  64.         $BTN_Player_1[$1] = GUICtrlCreateButton( "", $pos[0] -$BTN_size[0], $pos[1], $BTN_size[0], $BTN_size[1], $BS_BITMAP)
  65.     ElseIf $1 > 4 Then
  66.         $BTN_Player_1[$1] = GUICtrlCreateButton( "", $pos[0] +$BTN_size[0], $pos[1], $BTN_size[0], $BTN_size[1], $BS_BITMAP)
  67.     Else
  68.         $BTN_Player_1[$1] = GUICtrlCreateButton( "", $pos[0] -$BTN_size[0], $pos[1], $BTN_size[0], $BTN_size[1], $BS_BITMAP)
  69.     EndIf
  70.     _ArrayAdd ($AR_Player_State_01, $BTN_Player_1[$1])
  71.     $pos = ControlGetPos ($GUI_Main, "", $BTN_Player_1[$1])
  72. Next
  73.  
  74. ### Player 02 ###
  75. $pos = ControlGetPos ($GUI_Main, "", $GRP_Player_01)
  76. $GRP_Player_02 = GUICtrlCreateGroup ("", $pos[0], $pos[1]  +$pos[3] +$FeldAbst, $BTN_size[0] *8 +(20), $BTN_size[1] *2 +(20))
  77. $pos = ControlGetPos ($GUI_Main, "", $GRP_Player_02)
  78.  
  79. $Player = 2
  80. $BTN_Player_2[0] = GUICtrlCreateButton( "", $pos[0] +($pos[2] /2), $pos[1] +10, $BTN_size[0], $BTN_size[1], $BS_BITMAP)
  81. _ArrayAdd ($AR_Player_State_02, $BTN_Player_2[0])
  82. $pos = ControlGetPos ($GUI_Main, "", $BTN_Player_2[0])
  83. Opt ('GUICoordMode', 1)
  84. For $1 = 1 To 15
  85.     Sleep ($BTNSpeed)
  86.     If $1 = 4 Then
  87.         $BTN_Player_2[$1] = GUICtrlCreateButton( "", $pos[0], $pos[1] +$BTN_size[1], $BTN_size[0], $BTN_size[1], $BS_BITMAP)
  88.  
  89.     ElseIf $1 = 12 Then
  90.         $BTN_Player_2[$1] = GUICtrlCreateButton( "", $pos[0], $pos[1] -$BTN_size[1], $BTN_size[0], $BTN_size[1], $BS_BITMAP)
  91.     ElseIf $1 > 12 Then
  92.         $BTN_Player_2[$1] = GUICtrlCreateButton( "", $pos[0] +$BTN_size[0], $pos[1], $BTN_size[0], $BTN_size[1], $BS_BITMAP)
  93.     ElseIf $1 > 4 Then
  94.         $BTN_Player_2[$1] = GUICtrlCreateButton( "", $pos[0] -$BTN_size[0], $pos[1], $BTN_size[0], $BTN_size[1], $BS_BITMAP)
  95.     Else
  96.         $BTN_Player_2[$1] = GUICtrlCreateButton( "", $pos[0] +$BTN_size[0], $pos[1], $BTN_size[0], $BTN_size[1], $BS_BITMAP)
  97.  
  98.     EndIf
  99.     _ArrayAdd ($AR_Player_State_02, $BTN_Player_2[$1])
  100.  
  101.     $pos = ControlGetPos ($GUI_Main, "", $BTN_Player_2[$1])
  102. Next
  103. $BTN_START = GUICtrlCreateButton( "Start", $W_pos[2] /2 -75, $W_pos[3] -100, 140, 40)
  104.  
  105.  
  106. $SatusBar = _GUICtrlStatusBar_Create($GUI_Main)
  107. Dim $SatusBar_PartsWidth[4] = [100, 200, 300, 400]
  108. _GUICtrlStatusBar_SetParts($SatusBar, $SatusBar_PartsWidth)
  109. _GUICtrlStatusBar_SetMinHeight($SatusBar, 25)
  110.  
  111. _GUICtrlStatusBar_SetText($SatusBar, "", 0)
  112. _GUICtrlStatusBar_SetText($SatusBar, "", 1)
  113. _GUICtrlStatusBar_SetText($SatusBar, "", 2)
  114. _GUICtrlStatusBar_SetText($SatusBar, "", 3)
  115.  
  116.  
  117. GUISetState(@SW_SHOW)
  118. #EndRegion ### END Koda GUI section ###
  119.  
  120. #Region ### START Koda GUI section ### Form=
  121. ;~ $GUI_Mouse = GUICreate("BAO - Maus", 100, 100, 0, 0, $WS_POPUP)
  122. ;~ $LAB_Points = GUICtrlCreateLabel("Label1", 8, 16, 110, 43)
  123. ;~ GUICtrlSetFont($LAB_Points, 24, 800, 0, "Tahoma")
  124. ;~ GUICtrlSetColor($LAB_Points, 0x800000)
  125. ;~ GUISetState(@SW_SHOW)
  126. #EndRegion ### END Koda GUI section ###
  127.  
  128. ;~ _ArrayDisplay ($AR_Player_State_01)
  129. ;~ _ArrayDisplay ($AR_Player_State_02)
  130. AdlibRegister ("_GUI_Mouse_Move", 100)
  131. ;~ _AR_BTN_Sate ()
  132.  
  133. Func _Start_Conf ()
  134.     For $1 = 0 To 15
  135.         If $1 < 12 Then
  136.             GUICtrlSetData ($BTN_Player_1[$1], 2)
  137. ;~          _SetImageToCtrl("02.png", $BTN_Player_1[$1])
  138.             GUICtrlSetData ($BTN_Player_2[$1], 2)
  139. ;~          _SetImageToCtrl("02.png", $BTN_Player_2[$1])
  140.         Else
  141.             GUICtrlSetData ($BTN_Player_1[$1], "")
  142.             GUICtrlSetData ($BTN_Player_2[$1], "")
  143. ;~          _SetImageToCtrl("00.png", $BTN_Player_1[$1])
  144. ;~          _SetImageToCtrl("00.png", $BTN_Player_2[$1])
  145.  
  146.         EndIf
  147.         GUICtrlSetState ($BTN_Player_1[$1], $GUI_ENABLE )
  148.         GUICtrlSetState ($BTN_Player_2[$1], $GUI_ENABLE )
  149.         GUICtrlSetFont ($BTN_Player_1[$1], 14, 800, "Tahoma")
  150.         GUICtrlSetFont ($BTN_Player_2[$1], 14, 800, "Tahoma")
  151.     Next
  152. EndFunc
  153.  
  154.  
  155. ;~ Func _AR_BTN_Sate ()
  156. ;~  Local $1, $Player, $AR_BTN_ID
  157. ;~  Global $AR_Player_State_01[1][5] ;Player BTN_ID BTN_Handle Mouseover1 Mouseover2
  158. ;~  Global $AR_Player_State_02[1][5] ;Player BTN_ID BTN_Handle Mouseover1 Mouseover2
  159. ;~  For $Player = 1 To 2
  160. ;~      For $1 = 0 To 15
  161. ;~          If $Player = 1 Then
  162. ;~              $AR_BTN_ID = $BTN_Player_1
  163. ;~          Else
  164. ;~              $AR_BTN_ID = $BTN_Player_2
  165. ;~          EndIf
  166.  
  167. ;~          _ArrayAdd ($AR_Player_State_, $Player & $TR & $1 & $TR & $AR_BTN_ID[$1])
  168. ;~      Next
  169. ;~  Next
  170.  
  171. ;~  _ArrayDisplay ($AR_Player_State)
  172. ;~ EndFunc
  173.  
  174. While 1
  175.     $nMsg = GUIGetMsg()
  176.     Switch $nMsg
  177.         Case $GUI_EVENT_CLOSE
  178.             Exit
  179.         Case $BTN_START
  180.             _Start_Conf ()
  181.             AdlibRegister ("_MouseOver", 100)
  182.  
  183.  
  184.  
  185.  
  186.     EndSwitch
  187.  
  188.     for $1 = 0 To 15
  189.         If $nMsg = $BTN_Player_1[$1] Then
  190.             _Sound_Play ("Click")
  191.             _CTRL_Player_Contra (2)
  192.             $Player_AKTUELL = 2
  193.             _Player ($1, 1)
  194. ;~          MsgBox (0,"", $1, 2)
  195.         EndIf
  196.         If $nMsg = $BTN_Player_2[$1] Then
  197.             _Sound_Play ("Click")
  198. ;~          MsgBox (0,"", $1, 2)
  199.             _CTRL_Player_Contra (1)
  200.             $Player_AKTUELL = 1
  201.             _Player ($1, 2)
  202.         EndIf
  203.     Next
  204. WEnd
  205.  
  206.  
  207. #cs --------------------------------
  208.     Gibt die ID zurück von dem BTN über dem die Mouse gerade ist
  209. #ce --------------------------------
  210. Func _MouseOver ()
  211.     Local $mpos, $1, $Found, $BTN_Player, $Points
  212. ;~  ToolTip ($Player_AKTUELL)
  213. ;~  If $Player_AKTUELL = 1 Then
  214. ;~      $BTN_Player = $BTN_Player_1
  215. ;~  Else
  216. ;~      $BTN_Player = $BTN_Player_2
  217. ;~  EndIf
  218. $mpos = GUIGetCursorInfo()
  219.     If (IsArray($mpos)) Then
  220.         For $1 = 0  To 15
  221.             If ($mpos[4] = $BTN_Player_2[$1]) Or ($mpos[4] = $BTN_Player_1[$1]) Then
  222.                 $BTN_ID_AKT = $mpos[4]
  223.                 If $BTN_Aktive = $mpos[4] Then
  224.  
  225.                 Else
  226.                     _BTN_setColor ($mpos[4], $1)
  227.                 EndIf
  228.  
  229.             Else
  230. ;~              _GUICtrlButton_SetStyle($BTN_Player_2[$1], $GUI_SS_DEFAULT_GUI)
  231. ;~              _GUICtrlButton_SetStyle($BTN_Player_1[$1], $GUI_SS_DEFAULT_GUI)
  232. ;~              GUICtrlSetFont ($BTN_Player_1[$1], 14, 800)
  233.             EndIf
  234.         Next
  235.     EndIf
  236.  
  237. EndFunc
  238.  
  239. #cs --------------------------------
  240.     Lässt die Aktivierten BTNs in gewünschter farbe Leuchten
  241. #ce --------------------------------
  242. Func _BTN_setColor ($BTN_HDL, $BTN_ID)
  243.     Local $Found, $1, $Points = GUICtrlRead ($BTN_HDL, 1), $AR_Item
  244.     Local $Level = "+"
  245.  
  246.     If $AR_Player_State_01[$BTN_ID][0] = $BTN_HDL Then
  247.         $AR_BTN = $AR_Player_State_01
  248.         $AR_BTN_C = $AR_Player_State_02
  249.     Else
  250.         $AR_BTN = $AR_Player_State_02
  251.         $AR_BTN_C = $AR_Player_State_01
  252.     EndIf
  253. ;~  _ArrayDisplay ($AR_BTN_C)
  254. ;~  GUICtrlSetBkColor($BTN_HDL, $BTN_Aktive_Color)
  255.     If $Points < 2 Then
  256.         $AR_Item = $BTN_ID
  257.         $AR_BTN[$AR_Item][1] = "Fail"
  258.     Else
  259.         $AR_Item = $BTN_ID + $Points
  260.     EndIf
  261.  
  262.     If $AR_Item > 15 Then
  263.         $AR_Item = $AR_Item -16
  264.         $Level = "-"
  265.     EndIf
  266. ;~  ToolTip ($AR_BTN[$AR_Item][0] & $Level)
  267. _GUICtrlStatusBar_SetText($SatusBar, "BTN_HDL:" & $AR_BTN[$AR_Item][0], 0)
  268. _GUICtrlStatusBar_SetText($SatusBar, "BTN_ID:" & $BTN_ID, 1)
  269. _GUICtrlStatusBar_SetText($SatusBar, "Lev:" & $Level, 2)
  270. _GUICtrlStatusBar_SetText($SatusBar, "Punkte:" & $Points, 3)
  271. ;~ _GUICtrlStatusBar_SetText($SatusBar, "", 3)
  272.     For $1 = 0 To 15
  273.         If $AR_BTN[$1][1] = "Fail" Then
  274.             _GUICtrlButton_SetStyle($AR_BTN[$1][0], $GUI_SS_DEFAULT_GUI)
  275.             GUICtrlSetBkColor($AR_BTN[$1][0], $COLOR_RED)
  276.         ElseIf $1 = $AR_Item Then
  277.             $AR_BTN[$1][1] = 1
  278. ;~          GUICtrlSetBkColor($AR_BTN[$AR_Item][0], $BTN_Aktive_Color)
  279.             GUICtrlSetBkColor($AR_BTN[$AR_Item][0], $COLOR_GRAY)
  280.         Else
  281.             _GUICtrlButton_SetStyle($AR_BTN[$1][0], $GUI_SS_DEFAULT_GUI)
  282.         EndIf
  283.         _GUICtrlButton_SetStyle($AR_BTN_C[$1][0], $GUI_SS_DEFAULT_GUI)
  284.     Next
  285.     $BTN_Aktive = $BTN_HDL
  286.  
  287. EndFunc
  288.  
  289. Func _Sound_Play ($SoundName)
  290.     If $SoundName = "Click" Then
  291.         SoundPlay ("BTN_Sound_Click.mp3")
  292.     EndIf
  293.  
  294. EndFunc
  295.  
  296.  
  297. #cs --------------------------------
  298.     Lässt Infos Des CTRL in der Gui anzeigen,
  299.     die sich mit der Maus versetzt
  300. #ce --------------------------------
  301. Func _GUI_Mouse_Move ()
  302. ;~  If Not $BTN_ID_AKT = @error Then
  303. ;~      Local $Points = GUICtrlRead ($BTN_ID_AKT, 1)
  304. ;~      GUICtrlSetData ($LAB_Points, $Points)
  305. ;~  Else
  306. ;~      GUICtrlSetData ($LAB_Points, "")
  307. ;~  EndIf
  308.  
  309. ;~  Local $M_Pos = MouseGetPos ()
  310. ;~  WinSetOnTop ($GUI_Mouse, "", 1)
  311. ;~  WinMove ($GUI_Mouse, "", $M_Pos[0] +5, $M_Pos[1] +5)
  312. EndFunc
  313.  
  314.  
  315. #cs --------------------------------
  316.     CTRLs des Gegeners werden Deaktive
  317. #ce --------------------------------
  318. Func _CTRL_Player_Contra ($PlayerContra_ID)
  319.     Local $1, $BTN_PlayerContra, $BTN_Player
  320.     If $PlayerContra_ID = 1 Then
  321.         $BTN_PlayerContra = $BTN_Player_1
  322.         $BTN_Player = $BTN_Player_2
  323.     Else
  324.         $BTN_PlayerContra = $BTN_Player_2
  325.         $BTN_Player = $BTN_Player_1
  326.     EndIf
  327.     For $1 = 0 To 15
  328.         GUICtrlSetState ($BTN_PlayerContra[$1], $GUI_DISABLE )
  329.         GUICtrlSetState ($BTN_Player[$1], $GUI_ENABLE )
  330.     Next
  331. EndFunc
  332.  
  333.  
  334. Func _Player ($BTN_NR, $Player)
  335.     Local $Do = 0, $PlayerContra_ID
  336.     If $Player = 1 Then
  337.         $BTN_Player = $BTN_Player_1
  338.         $PlayerContra_ID = 2
  339.     Else
  340.         $BTN_Player = $BTN_Player_2
  341.         $PlayerContra_ID = 1
  342.     EndIf
  343.  
  344.     Local $BTN_Points = GUICtrlRead ($BTN_Player[$BTN_NR], 1), $CTRL_BTN = $BTN_Player[$BTN_NR]
  345.         If $BTN_Points < 2 Then
  346.             MsgBox (0, "Fehler", "In dem Feld müssen mindestens 2 punkte enthalten sein.")
  347.         Else
  348.             GUICtrlSetData ($CTRL_BTN, "")
  349.             _Set_Points ($BTN_Points, $BTN_NR, $Player)
  350. ;~              $BTN_Points = GUICtrlRead ($BTN_Player[$BTN_NR], 1)
  351.     ;~          GUICtrlSetColor ($CTRL_BTN, $COLOR_RED)
  352.                 _Lose_CHECK ()
  353.                 _CTRL_Player_Contra ($Player)
  354.         EndIf
  355. ;~      _BU_Points ()
  356. EndFunc
  357.  
  358. #cs --------------------------------
  359.     Nach jedem Zug wird einBackup der Punkte gemacht zum zurückführen
  360. #ce --------------------------------
  361. Func _BU_Points ()
  362.     Local $AR_PlayState = IniReadSection ($INI, $Player_01 & $TR & $Player_02)
  363.     Local $Points_01, $Points_02
  364.     If IsArray ($AR_PlayState) Then
  365.         $Round = $AR_PlayState[0][0]
  366. ;~      _ArrayDisplay ($AR_PlayState)
  367.     Else
  368.         Local $Round = 0
  369.     EndIf
  370.  
  371.     MsgBox (0, 'PlayState', $AR_PlayState)
  372.     Local $1
  373.     For $1 = 0 To 15
  374.         If $1 = 0 Then
  375.             $Points_01 = GUICtrlRead ($BTN_Player_1[$1], 1)
  376.             $Points_02 = GUICtrlRead ($BTN_Player_2[$1], 1)
  377.         Else
  378.             $Points_01 = $Points_01 & $TR & GUICtrlRead ($BTN_Player_1[$1], 1)
  379.             $Points_02 = $Points_02 & $TR & GUICtrlRead ($BTN_Player_2[$1], 1)
  380.         EndIf
  381.  
  382.     Next
  383.         IniWrite ($INI, $Player_01 & $TR & $Player_02, $Round, $Points_01 & "><" & $Points_02)
  384.  
  385. EndFunc
  386.  
  387.  
  388. #cs --------------------------------
  389.     Prüft ob noch Züge möglich sind
  390. #ce --------------------------------
  391. Func _Lose_CHECK ()
  392.     Local $Var_01 = 0 ,$Var_02 = 0 ,$Points_01 = 0 ,$Points_02 = 0 , $1, $Points_Read_01, $Points_Read_02
  393.  
  394.     For $1 = 0 To 15
  395.         $Points_Read_01 = GUICtrlRead ($BTN_Player_1[$1], 1)
  396.         $Points_Read_02 = GUICtrlRead ($BTN_Player_2[$1], 1)
  397.         If Not $Points_Read_01 = "" Then
  398.             $Points_01 = $Points_01 +$Points_Read_01
  399.             $Var_01 = $Var_01 +1
  400.         Else
  401.  
  402.         EndIf
  403.         If Not $Points_Read_02 = "" Then
  404.             $Points_02 = $Points_02 +$Points_Read_02
  405.             $Var_02 = $Var_02 +1
  406.         Else
  407.  
  408.         EndIf
  409.     Next
  410.     If $Points_02 = $Var_02 Then
  411.         _Player_Lose (2)
  412.     ElseIf $Points_01 = $Var_01 Then
  413.         _Player_Lose (1)
  414.     EndIf
  415.  
  416. EndFunc
  417.  
  418. Func _AR_CTRL_Player ($ID)
  419.     If $ID = 1 Then
  420.         Return $BTN_Player_1
  421.     ElseIf $ID = 2 Then
  422.         Return $BTN_Player_2
  423.     EndIf
  424.  
  425. EndFunc
  426.  
  427. Func _PlayerContra_ID ()
  428.     If $Player_AKTUELL = 2 Then
  429.         Return 2
  430.     Else
  431.         Return 1
  432.     EndIf
  433.  
  434. EndFunc
  435.  
  436.  
  437. Func _Player_Lose ($Player_Lose)
  438.     MsgBox (0, $Player_Lose, "Spieler " & $Player_Lose & " kann keine Züge mehr machen, Er Verliert")
  439.     _CTRL_Player_Contra (1)
  440.     _CTRL_Player_Contra (2)
  441. EndFunc
  442.  
  443. Func _Set_Points ($BTN_Points, $BTN_NR, $Player)
  444.     Local $1, $Points
  445.     If $Player = 1 Then
  446.         $BTN_Player = $BTN_Player_1
  447.     Else
  448.         $BTN_Player = $BTN_Player_2
  449.     EndIf
  450.  
  451.     For $1 = 1 To $BTN_Points
  452.         Sleep ($StepSpeed)
  453.         $BTN_NR = $BTN_NR +1
  454.         If $BTN_NR = 16 Then $BTN_NR = 0
  455.         $BTN_ID = $BTN_Player[$BTN_NR]
  456.         GUICtrlSetData ($BTN_ID, GUICtrlRead ($BTN_ID, 1) +1)
  457.         If $1 = $BTN_Points Then
  458.             $BTN_Points = GUICtrlRead ($BTN_ID, 1)
  459.             If $BTN_Points > 1 Then
  460.                 GUICtrlSetData ($BTN_ID, "")
  461.                 $Points = _Grap_Points ($BTN_NR, $Player)
  462.                 _Set_Points ($BTN_Points +$Points, $BTN_NR, $Player)
  463.             EndIf
  464.  
  465.         Else
  466.  
  467.         EndIf
  468.  
  469.     Next
  470. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!