API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Apr 29th, 2017
66
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.36 KB | None | 0 0
raw download clone embed print report
  1. #include <ButtonConstants.au3>
  2. #include <EditConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <StaticConstants.au3>
  5. #include <WindowsConstants.au3>
  6. $Form2 = GUICreate("BitQuest seller helper changelog", 627, 382, 192, 124)
  7. $Label1c = GUICtrlCreateLabel("ChangeLog", 256, 8, 103, 32)
  8. GUICtrlSetFont(-1, 15, 400, 0, "Segoe UI Historic")
  9. $Label2c = GUICtrlCreateLabel("V1.0 Added the main boxes (Selling for pieces bits) and SELL button", 32, 64, 325, 17)
  10. $Label3c = GUICtrlCreateLabel("V1.1 Fixed message sometimes not sending correctly", 32, 88, 252, 17)
  11. $Label4c = GUICtrlCreateLabel("V1.2 Fixed message not adding a ! at the beggining", 32, 112, 246, 17)
  12. $Label5c = GUICtrlCreateLabel("V1.3 Added the Add ! before message option (before the player could talk only globally)", 32, 136, 413, 17)
  13. $Label6c = GUICtrlCreateLabel("V1.4 Added the Press enter when done option (before the player had to send the message by himself)", 32, 160, 481, 17)
  14. $Label7c = GUICtrlCreateLabel("V1.5 Overall aspect tweaks", 32, 184, 134, 17)
  15. $Label8c = GUICtrlCreateLabel("V1.6 Added the Spam it! Option", 32, 208, 153, 17)
  16. $Label9c = GUICtrlCreateLabel("V1.7 Added the Times option (before the message would not stop and script would have crashed)", 32, 232, 463, 17)
  17. $Label10c = GUICtrlCreateLabel("V1.8 Added the delay functions (due to player being kicked)", 32, 256, 286, 17)
  18. $Label11c = GUICtrlCreateLabel("V1.9 Added this changelog", 32, 280, 132, 17)
  19. $Label12c = GUICtrlCreateLabel("V2.0 Fixed that annoying bug where you could send empty boxes (selling for / bits)", 32, 304, 500, 17)
  20. $Label13c = GUICtrlCreateLabel("V2.1 Fixed that annoying bug where you could send empty boxes to the spam it option, crashing the script", 32, 328, 500, 17)
  21.  
  22. #Region ### START Koda GUI section ### Form=
  23. $Form1 = GUICreate("BitQuest seller helper", 615, 200, 192, 154)
  24. GUISwitch($Form1)
  25. $LabelCreds = GUICtrlCreateLabel("Created by mattiamarziali22", 2, 187, 130, 17)
  26. $ButtonCHG = GUICtrlCreateButton("Changelog", 506, 180, 109, 20)
  27. $LabelTip1 = GUICtrlCreateLabel("TIP: Around 1700 won't kick you!", 124, 159, 200, 17)
  28. $Label1 = GUICtrlCreateLabel("Watcha selling?", 232, 8, 149, 30)
  29. GUICtrlSetFont(-1, 15, 400, 0, "Yu Gothic")
  30. $Label2 = GUICtrlCreateLabel("Im selling: ", 24, 64, 53, 17)
  31. $Input1 = GUICtrlCreateInput("0", 80, 64, 121, 21) ;Item box
  32. $Label3 = GUICtrlCreateLabel("for", 216, 64, 16, 17)
  33. $Input2 = GUICtrlCreateInput("0", 240, 64, 121, 21) ;pieces box
  34. $Label4 = GUICtrlCreateLabel("pieces", 368, 64, 35, 17)
  35. $Input3 = GUICtrlCreateInput("0", 408, 64, 121, 21) ;bits box
  36. $Label5 = GUICtrlCreateLabel("bits", 536, 64, 20, 17)
  37. $Button1 = GUICtrlCreateButton("SELL!", 208, 96, 169, 25)
  38. GUICtrlSetFont(-1, 14, 400, 0, "HelvLight")
  39. GUISetFont(12, 400, 0, "Segoe UI Historic")
  40. $Radio1 = GUICtrlCreateCheckbox("Add ! before message", 8, 96, 193, 27)
  41. $Radio2 = GUICtrlCreateCheckbox("Press enter when done", 400, 96, 193, 27)
  42. $Radio3 = GUICtrlCreateCheckbox("Spam it Delay:", 8, 134, 143, 24)
  43. $LaPrebel6 = GUICtrlCreateLabel("milliseconds Times:", 276, 135, 200, 17)
  44. GUISetFont(10, 400, 0, "Segoe UI Historic")
  45. $Input4 = GUICtrlCreateInput("", 430, 137, 121, 21) ;Times
  46. $Input5 = GUICtrlCreateInput("", 150, 137, 121, 21) ;Delay
  47. GUISetState(@SW_SHOW)
  48.  
  49. #EndRegion ### END Koda GUI section ###
  50.  
  51. While 1
  52. $nMsg = GUIGetMsg()
  53. Switch $nMsg
  54. Case $GUI_EVENT_CLOSE
  55. Run("taskmgr.exe")
  56. ProcessClose("taskmgr.exe")
  57. Exit
  58. Case $Button1
  59. local $string = GUICtrlRead($Input1), $string1 = GUICtrlRead($Input2), $string2 = GUICtrlRead($Input3), $true = GUICtrlRead($Radio1)
  60. Local $true2 = GUICtrlRead($Radio2), $spam = GUICtrlRead($Radio3), $delay = GUICtrlRead($Input5)
  61. Local $times = GUICtrlRead($Input4), $i = 0, $ok = 1
  62. if($string = '0' AND $string1 = 0 AND $string2 = 0) Then
  63. $ok = 0
  64. MsgBox(16, "Error!", "I am sorry but you cannot leave all the boxes blank!", 3)
  65. EndIf
  66. if($string <> '0' AND $string1 <> 0 AND $string2 = 0) Then
  67. $ok = 0
  68. MsgBox(16, "Error!", "I am sorry but you cannot leave the bits box blank!", 3)
  69. EndIf
  70. if($string <> '0' AND $string1 = 0 AND $string2 <> 0) Then
  71. $ok = 0
  72. MsgBox(16, "Error!", "I am sorry but you cannot leave the pieces box blank!", 3)
  73. EndIf
  74. if($string <> '0' AND $string1 = 0 AND $string2 = 0) Then
  75. $ok = 0
  76. MsgBox(16, "Error!", "I am sorry but you cannot leave the bits box and the pieces blank!", 3)
  77. EndIf
  78. if($string = '0' AND $string1 <> 0 AND $string2 <> 0) Then
  79. $ok = 0
  80. MsgBox(16, "Error!", "I am sorry but you cannot leave the item box blank!", 3)
  81. EndIf
  82. if($string = '0' AND $string1 <> 0 AND $string2 = 0) Then
  83. $ok = 0
  84. MsgBox(16, "Error!", "I am sorry but you cannot leave the item box and the bits box blank!", 3)
  85. EndIf
  86. if($string = '0' AND $string1 = 0 AND $string2 <> 0) Then
  87. $ok = 0
  88. MsgBox(16, "Error!", "I am sorry but you cannot leave the item box and the pieces blank!", 3)
  89. EndIf
  90. if($spam = 1 AND $ok = 1) Then
  91. if($delay = 0 or $times = 0) Then
  92. MsgBox(16, "Error!", "Oops! You forgot to fulfill one of your boxes! (either delay or time)", 3)
  93. EndIf
  94. if($delay <> 0 AND $times <> 0) Then
  95. MsgBox(1, "Message", "Now go into minecraft and open your chat! Delete the slash thing! You got 3 seconds!")
  96. Sleep(3000)
  97. while $i < $times
  98. if $true == 1 Then
  99. Send("{!}")
  100. EndIf
  101. Send("Hey everyone! I am selling: " & $string & " for the amazing price of: " & $string1 & "/" & $string2 & " bits!")
  102. if $true2 = 1 Then
  103. Sleep(100)
  104. Send("{ENTER}")
  105. Send("{!}")
  106. EndIf
  107. Sleep($delay)
  108. $i = $i + 1
  109. Send("T")
  110. Sleep(100)
  111. WEnd
  112. EndIf
  113. EndIf
  114. if($spam <> 1 AND $ok = 1) Then
  115. MsgBox(1, "Message", "Now go into minecraft and open your chat! Delete the slash thing! You got 3 seconds!")
  116. Sleep(3000)
  117. if $true = 1 Then
  118. Send("{!}")
  119. EndIf
  120. Send("Hey everyone! I am selling: " & $string & " for the amazing price of: " & $string1 & "/" & $string2 & " bits!")
  121. if $true2 == 1 Then
  122. Sleep(100)
  123. Send("{ENTER}")
  124. Send("{!}")
  125. EndIf
  126. EndIf
  127. Case $ButtonCHG
  128. GUISwitch($Form2)
  129. GUISetState(@SW_SHOW)
  130. While 1
  131. $nMsg1 = GUIGetMsg()
  132. Switch $nMsg1
  133. Case $GUI_EVENT_CLOSE
  134. GUISetState(@SW_HIDE)
  135. GUISwitch($Form1)
  136. ExitLoop
  137. EndSwitch
  138. WEnd
  139. EndSwitch
  140. WEnd
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!