API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 11th, 2013
174
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.87 KB | None | 0 0
raw download clone embed print report
  1. on *:TEXT:!ban *:%gchan: {
  2. if ( $nick isop $chan ) {
  3. mode %gchan kick $2
  4. mode %gchan +b $2
  5. }
  6. }
  7. on *:TEXT:!needsub:%gchan: {
  8. if ( $nick isop $chan ) {
  9. set %needsub 1
  10. msg %gchan 120,5 7::0 Admin: %admin  Has Requested a sub. Use !sub to join the game 7::
  11. }
  12. }
  13. on *:TEXT:!sub:%gchan: {
  14. if ( %needsub = 1 ) {
  15. if ( $read(dataa.txt,w,$nick) = $null ) { notice $nick 120,5 7::0 You Must be Authed to Sub. 7:: }
  16. else { set %needsub 0 | msg $nick 120,5 7::0 Please Join  %servip  with password  %servpass  7:: }
  17. }
  18. else notice $nick 120,5 7::0 Sorry No Sub needed at the moment  7::
  19. }
  20. on *:TEXT:!cancelsub:%gchan: {
  21. if ( $nick isop $chan ) {
  22. if ( %needsub = 1 ) { unset %needsub | notice $nick 120,5 7::0 Sub Canceled  7:: }
  23. else notice $nick 120,5 7::0 No Sub Requested. So it cant be canceled!  7::
  24. }
  25. }
  26. on *:TEXT:!teams:%gchan: {
  27. if ( %on = 1 ) {
  28. msgchan
  29. }
  30. else msg $chan 120,5 7::0 No Gather at the moment  7::
  31. }
  32. on *:TEXT:!on:#:{
  33. if ( %on = 1 ) { msg $chan 120,5 7::0 A Gather is in process ! 7:: }
  34. else {
  35. set %gchan $chan
  36. set %admin $nick
  37. set %on 1
  38. set %user1 ?
  39. set %user2 ?
  40. set %user3 ?
  41. set %user4 ?
  42. set %user5 ?
  43. set %user6 ?
  44. set %user7 ?
  45. set %user8 ?
  46. set %user9 ?
  47. set %user10 ?
  48. /msg $chan 120,5 7::0 Gather Starting! 7::
  49. }
  50. }
  51. alias msgchan {
  52. /msg $chan 120,57::0 15Team A 0: %user1 - %user2 - %user3 - %user4 - %user5 - 15Team B 0: %user6 - %user7 - %user8 - %user9 - %user10 Map: %servmap  7::
  53. }
  54. alias msgnick {
  55. /msg %user1 120,5 7::0 The Gather is Full Connect to: %servip  Password: %servpass  You are on team A Your Admin is  %admin  7::
  56. /msg %user2 120,5 7::0 The Gather is Full Connect to: %servip  Password: %servpass  You are on team A Your Admin is  %admin  7::
  57. /msg %user3 120,5 7::0 The Gather is Full Connect to: %servip  Password: %servpass  You are on team A Your Admin is  %admin  7::
  58. /msg %user4 120,5 7::0 The Gather is Full Connect to: %servip  Password: %servpass  You are on team A Your Admin is  %admin  7::
  59. /msg %user5 120,5 7::0 The Gather is Full Connect to: %servip  Password: %servpass  You are on team A Your Admin is  %admin  7::
  60. /msg %user6 120,5 7::0 The Gather is Full Connect to: %servip  Password: %servpass  You are on team B Your Admin is  %admin  7::
  61. /msg %user7 120,5 7::0 The Gather is Full Connect to: %servip  Password: %servpass  You are on team B Your Admin is  %admin  7::
  62. /msg %user8 120,5 7::0 The Gather is Full Connect to: %servip  Password: %servpass  You are on team B Your Admin is  %admin  7::
  63. /msg %user9 120,5 7::0 The Gather is Full Connect to: %servip  Password: %servpass  You are on team B Your Admin is  %admin  7::
  64. /msg %user10 120,5 7::0 The Gather is Full Connect to: %servip  Password: %servpass  You are on team B Your Admin is  %admin  7::
  65. }
  66. on *:TEXT:!add:%gchan: {
  67. if ( %on = 1 ) {
  68. if ( $read(dataa.txt,w,$nick) = $null ) { notice $nick 120,5 7::0 You're not Authed. Msg HoBbo User Pass 7:: }
  69. else {
  70. if ( $nick = %user1 || $nick = %user3 || $nick = %user4 || $nick = %user5 || $nick = %user6 || $nick = %user7 || $nick = %user8 || $nick = %user9 || $nick = %user10 ) {
  71. notice $nick 120,5 7::0 You're Already Added, use !remove to remove yourself from gather 7:: }
  72. else {
  73. if ( %user1 = ? ) { set %user1 $nick | msgchan }
  74. elseif ( %user2 = ? ) { set %user2 $nick | msgchan }
  75. elseif ( %user3 = ? ) { set %user3 $nick | msgchan }
  76. elseif ( %user4 = ? ) { set %user4 $nick | msgchan }
  77. elseif ( %user5 = ? ) { set %user5 $nick | msgchan }
  78. elseif ( %user6 = ? ) { set %user6 $nick | msgchan }
  79. elseif ( %user7 = ? ) { set %user7 $nick | msgchan }
  80. elseif ( %user8 = ? ) { set %user8 $nick | msgchan }
  81. elseif ( %user9 = ? ) { set %user9 $nick | msgchan }
  82. elseif ( %user10 = ? ) { set %user10 $nick | msgchan | msgnick }
  83. else notice chan 120,5 7::0 Gather is Full 7::
  84. }
  85. }
  86. }
  87. else notice $nick 120,5 7::0 No Gather at the moment 7::
  88. }
  89.  
  90. on *:TEXT:!add b:%gchan: {
  91. if ( %on = 1 ) {
  92. if ( $read(dataa.txt,w,$nick) = $null ) { notice $nick 120,5 7::0 You're not Authed. Msg HoBbo !auth User Pass 7:: }
  93. else {
  94. if ( $nick = %user1 || $nick = %user3 || $nick = %user4 || $nick = %user5 || $nick = %user6 || $nick = %user7 || $nick = %user8 || $nick = %user9 || $nick = %user10 ) {
  95. notice $nick 120,5 7::0 You're Already Added, use !remove to remove yourself from gather 7:: }
  96. else {
  97. if ( %user6 = ? ) { set %user6 $nick | msgchan }
  98. elseif ( %user7 = ? ) { set %user7 $nick | msgchan }
  99. elseif ( %user8 = ? ) { set %user8 $nick | msgchan }
  100. elseif ( %user9 = ? ) { set %user9 $nick | msgchan }
  101. elseif ( %user10 = ? ) { set %user10 $nick | msgchan | msgnick }
  102. else notice chan 120,5 7::0 Gather is Full 7::
  103. }
  104. }
  105. }
  106. else notice $nick 120,5 7::0 No Gather at the moment 7::
  107. }
  108. on *:TEXT:!remove:%gchan: {
  109. if ( %on = 1 ) {
  110. if ( $nick = %user1 ) { set %user1 ? | set %out 1 }
  111. elseif ( $nick = %user2 ) { set %user2 ? | set %out 2 }
  112. elseif ( $nick = %user3 ) { set %user3 ? | set %out 3 }
  113. elseif ( $nick = %user4 ) { set %user4 ? | set %out 4 }
  114. elseif ( $nick = %user5 ) { set %user5 ? | set %out 5 }
  115. elseif ( $nick = %user6 ) { set %user6 ? | set %out 6 }
  116. elseif ( $nick = %user7 ) { set %user7 ? | set %out 7 }
  117. elseif ( $nick = %user8 ) { set %user8 ? | set %out 8 }
  118. elseif ( $nick = %user9 ) { set %user9 ? | set %out 9 }
  119. elseif ( $nick = %user10 ) { set %user10 ? | set %out 10 }
  120. else notice $nick 120,5 7::0 You cant remove from the Gather Because your not in it! 7::
  121. if ( %out = 1 ) { set %user1 %user2 | set %user2 %user3 | set %user3 %user4 | set %user4 %user5 | set %user5 ? }
  122. if ( %out = 2 ) { set %user2 %user3 | set %user3 %user4 | set %user4 %user5 | set %user5 ? }
  123. if ( %out = 3 ) { set %user3 %user4 | set %user4 %user5 | set %user5 ? }
  124. if ( %out = 4 ) { set %user4 %user5 | set %user5 ? }
  125. if ( %out = 6 ) { set %user6 %user7 | set %user7 %user8 | set %user8 %user9 | set %user9 %user10 | set %user10 ? }
  126. if ( %out = 7 ) { set %user7 %user8 | set %user8 %user9 | set %user9 %user10 | set %user10 ? }
  127. if ( %out = 8 ) { set %user8 %user9 | set %user9 %user10 | set %user10 ? }
  128. if ( %out = 9 ) { set %user9 %user10 | set %user10 ? }
  129. if ( %out = 10 ) { set %user10 ? }
  130. msgchan
  131. }
  132. else notice $nick 120,5 7::0 No Gather at the moment! 7::
  133. }
  134. on *:text:!server *:?: {
  135. if ($nick isop %gchan) {
  136. set %servip $2
  137. }
  138. else {
  139. halt
  140. }
  141. }
  142. on *:text:!pass *:?: {
  143. if ($nick isop %gchan) {
  144. set %servpass $2
  145. }
  146. else {
  147. halt
  148. }
  149. }
  150. on *:TEXT:!off:%gchan: {
  151. unset %on
  152. unset %admin
  153. unset %user1
  154. unset %user2
  155. unset %user3
  156. unset %user4
  157. unset %user5
  158. unset %user6
  159. unset %user7
  160. unset %user8
  161. unset %user9
  162. unset %user10
  163. msg $chan 120,5 7::0 Gather is 4OFF 7::
  164. }
  165. on *:TEXT:!newdb:%gchan:{
  166. if ( $nick isop $chan ) {
  167. /write -c datab.txt
  168. /write -c datal.txt
  169. /write -c dataa.txt
  170. notice $nick 120,5 7::0 New Database Created 7::
  171. }
  172. }
  173. on *:TEXT:!register **:?:{
  174. set %user $2
  175. set %pass $3
  176. if ( $read(datal.txt,w,%user) = $null ) { notice $nick 120,5 Successfully Registered! 7:: | /write datab.txt %user %pass $nick | /write datal.txt %user }
  177. else { notice $nick 120,5 7::0 Sorry Username Taken 7:: }
  178. }
  179. on *:TEXT:!auth **:?: {
  180. if ( $nick ison %gchan ) {
  181. set %use $2
  182. set %pas $3
  183. if ( $read(datab.txt,w,%use %pas *) = $null ) { notice $nick 120,5 7::0 Sorry, Invalid username or password 7:: }
  184. else { notice $nick 120,5 7::0 Successfully Authed 7:: | /write dataa.txt $nick }
  185. }
  186. else msg $nick 120,5 7::0 You must be in %gchan  to auth! 7::
  187. }
  188. on *:NICK: {
  189. if ( $newnick ison %gchan ) {
  190. if ( $nick = %user1 ) { set %user1 $newnick | msgchan }
  191. elseif ( $nick = %user2 ) { set %user2 $newnick | msgchan }
  192. elseif ( $nick = %user3 ) { set %user3 $newnick | msgchan }
  193. elseif ( $nick = %user4 ) { set %user4 $newnick | msgchan }
  194. elseif ( $nick = %user5 ) { set %user5 $newnick | msgchan }
  195. elseif ( $nick = %user6 ) { set %user6 $newnick | msgchan }
  196. elseif ( $nick = %user7 ) { set %user7 $newnick | msgchan }
  197. elseif ( $nick = %user8 ) { set %user8 $newnick | msgchan }
  198. elseif ( $nick = %user9 ) { set %user9 $newnick | msgchan }
  199. elseif ( $nick = %user10 ) { set %user10 $newnick | msgchan }
  200. //write -ds $+ $nick dataa.txt
  201. //write dataa.txt $newnick
  202. if ( $nick = %admin ) { set %admin $newnick }
  203. }
  204. }
  205. on *:PART:%gchan: {
  206. if ( $read(dataa.txt,w,$nick) = $null ) { }
  207. else { //write -ds $+ $nick dataa.txt | msg $nick 120,5 7::0 Auto De-authentication after channel part 7::
  208. }
  209. }
  210. on *:TEXT:!map *:%gchan: {
  211. if ( $nick isop %gchan ) && ( %on = 1 ) {
  212. set %servmap $2
  213. msgchan
  214. }
  215. }
  216. on *:TEXT:!mixteams:%gchan: {
  217. if ( $nick isop %gchan ) && ( %on = 1 ) {
  218. set %temp1 %user3
  219. set %temp2 %user7
  220. set %temp3 %user1
  221. set %temp4 %user4
  222. set %temp5 %user6
  223. set %temp6 %user8
  224. set %temp7 %user5
  225. set %temp8 %user9
  226. set %temp9 %user10
  227. set %temp10 %user2
  228. set %user1 %temp7
  229. set %user2 %temp3
  230. set %user3 %temp6
  231. set %user4 %temp1
  232. set %user5 %temp9
  233. set %user6 %temp5
  234. set %user7 %temp4
  235. set %user8 %temp10
  236. set %user9 %temp8
  237. set %user10 %temp2
  238. msgchan
  239. }
  240. }
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!