API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Dec 18th, 2014
150
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.98 KB | None | 0 0
raw download clone embed print report
  1. by amit
  2. !#6*&(!#^&*(!#%^!$!*&$^!&)$*(^!(&)*$!()$&*!$!$
  3. !$(*!)($*!)$*!()$*!()$*!($*!($)*
  4. !$(*!()$*!()$*!()$*!$)(*$!()$*(!$*
  5. access user and games.
  6.  
  7.  
  8. on *:text:*:%Chann:{
  9. if (%GameQS == Off) {
  10. if ($1 == !StopGame) { msg # Still growing live game not working at the moment }
  11. if ($1 == !Status) { msg # Still growing live game not working at the moment }
  12. if ($1 == !StartQS) && ($nick isin %logged) { set %GameListMax 5 | set %GameQS Adding | inc %numberOfTheGame | .timer 1 1 mode %Chann +m | .timer 1 3 msg %Chann 4T1he 3ADMIN1 12 $nick 1 Start The ( %numberOfTheGame ) Game Do !add , !del , !players | .timer 1 5 mode %Chann -m | set %GameAdmin $nick | set %LastGameTime $time }
  13. if ($1 == !Add) { msg # 4T1he 4G1ame 4N1ot 4R1unning 4N1ow }
  14. if ($1 == !Del) { msg # 4T1he 4G1ame 4N1ot 4R1unning 4N1ow }
  15. if ($1 == !Players) { msg # 4T1he 4G1ame 4N1ot 4R1unning 4N1ow }
  16. }
  17.  
  18. on *:text:*:%Chann:{
  19. if (%GameQS == Adding) {
  20. if ($1 == !StopGame) { set %GameQS OFF | msg # The Game Number %numberOfTheGame Stop Now By $Nick | unSet %GameList }
  21. if ($1 == !Change) && ($2 !== $null) && ($nick isop #amit61966) && ($2 !== %GameListMax) { set %GameListMax $2 | msg # The Max Players Changed to $2 }
  22. if ($1 == !Change) && (%GameAdmin isin %logged) && ($2 != $null) && ($nick !isop #QsyXep-) && ($2 !== %GameListMax) { set %GameListMax $2 | msg # The Max Players Changed to $2 }
  23. if ($1 == !del) && ($nick !isin %GameList) { msg # 4 Y1ou 4A1re 4N1ot 4R1egister }
  24. if ($1 == !add) && ($nick isin %GameList) { msg # 4Y1ou 4Are 4I1n 4P1layers! }
  25. if ($1 == !Add) && ($nick !isin %GameList) { set %GameList $addtok(%GameList,$nick,32) | msg # 3P14layers: %GameList $numtok(%GameList,32) $+ 3/14 $+ %GameListMax }
  26. if ($1 == !del) && ($nick isin %GameList) { set %GameList $remove(%GameList,$nick,32) | msg # 3P14layers: %GameList $numtok(%GameList,32) $+ 3/14 $+ %GameListMax }
  27. if ($1 == !Status) { msg # 3P14layers: %GameList $numtok(%GameList,32) $+ 3/14 $+ %GameListMax }
  28. if ($1 == !Players) { msg # 3P14layers: %GameList $numtok(%GameList,32) $+ 3/14 $+ %GameListMax }
  29. if ($1 == !Rstart) && ($nick isop #) && ($numtok(%GameList,32) == %GameListMax) && ($numtok(%GameList,32) == 1) { set %GameQS ON | set %WhenGameStart $time | .timer 1 1 mode # +m | .timer 1 4 /msg # Okay you chose to play live still growing. Experience. | .timer 1 5 /msg # Admin is: %GameAdmin | .timer 1 6 /msg # The 3P14layer practices alone Is: %GameList | .timer 1 8 mode # $str(+v,$modespl) %GameList | .timer 1 3 /FirstQS }
  30. if ($1 == !Rstart) && ($nick isop #) && ($numtok(%GameList,32) == %GameListMax) && ($numtok(%GameList,32) !== 1) { set %GameQS ON | set %WhenGameStart $time | .timer 1 1 mode # +m | .timer 1 4 /msg # Okay you chose to play live still growing. Experience. | .timer 1 5 /msg # Admin is: %GameAdmin | .timer 1 6 /msg # The 3P14layers Are: %GameList $numtok(%GameList,32) $+ 3/14 $+ %GameListMax | .timer 1 8 mode # $str(+v,$modespl) %GameList | .timer 1 3 /FirstQS }
  31. if ($1 == !StartGame) && ($nick isop #amit61966) { msg # 4T1he 4G1ame 4I1s 4R1unning 4N1ow 4B1y 4A1dmin %GameAdmin at %LastGametime }
  32. }
  33.  
  34. on *:text:*:%Chann:{
  35. if (%GameQS == ON) {
  36. if ($1 == !LastAnwser) { msg # %NickGoodAnswer על ידי %WhatSayGood התשובה האחרונה היית }
  37. if ($1 == !lose) && (%AnswerStatus == ON) { /Loser }
  38. if ($1 == What) && ($2 == The) && ($3 == Question) && (%AnswerStatus == ON) { msg # Bring me %WinnerABC Of %Category }
  39. if ($istok($readini(%Category $+ .ini, %Category, %WinnerABC), $1, 44)) && (%AnswerStatus == ON) { set %NickGoodAnswer $Nick | set %WhatSayGood $1 | /GoodAnswer | inc %GoodAnswer. [ $+ [ $nick ] ] | /timerA33 off | timerA63 off | .timerA93 Off | .timerA120 off | .timerA121 off }
  40. if ($1 == Stop) && (%StatusChoseABC == ON) { msg # Done | /TheChoseQS | /timer15 off | /timer30 off | /timer55 Off | /timer59 off | /timer60 off }
  41. if ($1 == !StopGame) && ($nick !isop #amit61966) && ($nick isin %GameList) && ($numtok(%GameList,32) == 1) { set %GameQS OFF | %Set %WhenGameEnd $time | msg # The Game Number %numberOfTheGame Stop Now By $Nick | msg # 3P14layers: %GameList Hope you enjoyed playing | .timer 1 3 mode # $str(-v,$modespl) %GameList | .timer 1 5 mode # -m | unSet %GameList | unset %numberOfQS | /timerA33 off | timerA63 off | .timerA93 Off | .timerA120 off | .timerA121 off | /timer15 off | /timer30 off | /timer55 Off | /timer59 off | /timer60 off }
  42. if ($1 == !StopGame) && ($nick !isop #amit61966) && ($nick isin %GameList) && ($numtok(%GameList,32) == 1) { set %GameQS OFF | %Set %WhenGameEnd $time | msg # The Game Number %numberOfTheGame Stop Now By $Nick | msg # 3P14layers: %GameList Hope you enjoyed playing | .timer 1 3 mode # $str(-v,$modespl) %GameList | .timer 1 5 mode # -m | unSet %GameList | usnet %numberOfQS | /timerA33 off | timerA63 off | .timerA93 Off | .timerA120 off | .timerA121 off | /timer15 off | /timer30 off | /timer55 Off | /timer59 off | /timer60 off }
  43. if ($1 == !StopGame) && ($nick isop #amit61966) { set %GameQS OFF | %Set %WhenGameEnd $time | msg # The Game Number %numberOfTheGame Stop Now By $Nick | msg # 3P14layers: %GameList Hope you enjoyed playing | .timer 1 3 mode # $str(-v,$modespl) %GameList | .timer 1 5 mode # -m | unSet %GameList | unset %numberOfQS | /timerA33 off | timerA63 off | .timerA93 Off | .timerA120 off | .timerA121 off | /timer15 off | /timer30 off | /timer55 Off | /timer59 off | /timer60 off }
  44. if ($1 == !Status) && ($numtok(%GameList,32) == 1) { msg # The Game Is Running Now. %gameList practices alone. }
  45. if ($1 == !Status) && ($numtok(%GameList,32) !== 1) { msg # The Game Is Running Now. %gameList ( $numtok(%GameList,32) ) They play and enjoy }
  46. }
  47. }
  48. }
  49. on *:text:*:%Chann:{
  50. if ($1 == !Stats!!) { /timerA33 off | timerA63 off | .timerA93 Off | .timerA120 off | .timerA121 off | /timer15 off | /timer30 off | /timer55 Off | /timer59 off | /timer60 off }
  51. if ($1 == !Stats) { /Ranked }
  52. if ($1 == !Refresh) && ($nick isop #amit61966) { unset %numberOfQS | .timer 1 6 msg %Chann The Refresh Been Done | unset %GoodAnswer* | /unset %ScorePlayer* | /unset %NamePlayer* | .timer 1 3 /Rankedecho | .timer 1 5 /scores }
  53. if ($1 == !Score) && ($2 != $null) && (%GoodAnswer. [ $+ [ $2 ] ]) { msg # %GoodAnswer. [ $+ [ $2 ] ] : צברת כ $2 }
  54. if ($1 == !Score) && ($2 = $null) && (%GoodAnswer. [ $+ [ $nick ] ]) { msg # %GoodAnswer. [ $+ [ $nick ] ] :את/ה צברת כ $nick }
  55. if ($1 == !Rules) { msg # מתי שאני אומר א אתם צריכים להגיד לי סטופ כאשר אתם אומרים סטופ אני בוחר אות וקטגוריה . תהנו. }
  56. }
  57. }
  58. alias FirstQS {
  59. inc %numberOfQS
  60. .timer 1 14 /msg %Chann Ok now you have chosen to play we'll play until you tire. When you get tired you can will write! StopGame and the game ends.
  61. .timer 1 16 /msg %Chann When I say א you need a stop when I say whatever you want.
  62. .timer 1 18 /msg %chann Success later in the game.
  63. .timer 1 22 /msg %Chann אוקי תיהיו מוכנים מתחילים לשחק בעוד 5 שניות . תהנו.
  64. .timer 1 27 /msg %Chann א
  65. .timer 1 28 set %StatusChoseABC ON
  66. }
  67.  
  68. alias NeWQS {
  69. inc %numberOfQS
  70. .timer 1 5 /msg %Chann אוקי ממשכים לשאלה מספר ( %numberOfQS ) הבאה
  71. .timer 1 9 /msg %Chann א
  72. .timer 1 10 set %StatusChoseABC ON
  73. set %AnswerStatus OFF
  74. .timer15 1 25 /msg %Chann כבר חיכתי 15 שניות שתגידו לי סטופ
  75. .timer30 1 40 /msg %Chann כבר חיכתי 30 שניות שתגידו לי סטופ נשאר לכם עוד חצי דקה להגיד לי סטופ או שאני עוצר לבד .
  76. .timer55 1 55 /msg %Chann !!! נשאר עוד 15 שניות !!!! כבר חיכתי 45 שניות .
  77. .timer59 1 69 /msg %Chann לצערי הזמן עבר!!! אני בוחר לבד
  78. .timer60 1 69 /TheChoseQS
  79. }
  80.  
  81.  
  82. alias UpdateScore {
  83. /Rankedecho
  84. /scores
  85. .timer 1 3 msg %Chann The Update Done
  86. }
  87.  
  88. alias TheChoseQS {
  89. set %StatusChoseABC OFF
  90. set %WinnerABC $gettok(%ABC,$rand(1,$numtok(%ABC,32)),32)
  91. set %Category $gettok(%OptionCategory,$rand(1,$numtok(%OptionCategory,32)),32)
  92. .timer 1 1 /msg %Chann יש לכם 2 דקות לענות על שאלתי. יהיה תשובה בעוד כ 3 שניות. 4 Loading Loading Loading 1
  93. .timer 1 3 /msg %Chann Selected signal is : 4 %WinnerABC 1
  94. .timer 1 3 /msg %chann Selected category is: 3 %Category 1
  95. .timer 1 3 /msg %chann Bring me %WinnerABC Of %Category
  96. .timerA33 1 33 /msg %chann עבר 30 שניות משאלתי . בהצלחה.
  97. .timerA63 1 63 /msg %chann עבד דקה מאז ששאלתי את השאלה . נשאר לכם עוד דקה .
  98. .timerA93 1 90 /msg %chann נשאר עוד חצי דקה .
  99. .timerA120 1 120 /msg %chann הזמן עבר
  100. .timerA121 1 120 /LoserTime
  101.  
  102. set %AnswerStatus ON
  103. }
  104.  
  105. alias GoodAnswer {
  106. set %AnswerStatus OFF
  107. msg # %NickGoodAnswer כל הכבוד ל:
  108. msg # %WhatSayGood היא\וא אמר:
  109. .timer 1 2 /scores
  110. /NewQS
  111. }
  112.  
  113. alias Loser {
  114. /timerA33 off | timerA63 off | .timerA93 Off | .timerA120 off | .timerA121 off
  115. .timerA33 off
  116. .timerA63 off
  117. .timerA93 Off
  118. .timerA120 off
  119. .timerA121 off
  120. set %AnswerStatus OFF
  121. msg # נכנעתם לשאלתי לוזרים !!!!
  122. msg # מקווה שפעם הבאה תצליחו
  123. /NewQS
  124. }
  125.  
  126. alias ClearScoresDialog {
  127. /unset %GoodAnswer.*
  128. /unset %NamePlayer*
  129. /unset %ScorePlayer*
  130. .timer 1 3 /scores
  131. .timer 1 5 /Rankedecho
  132. }
  133.  
  134.  
  135. alias LoserTime {
  136. /timerA33 off | timerA63 off | .timerA93 Off | .timerA120 off | .timerA121 off
  137. .timerA33 off
  138. .timerA63 off
  139. .timerA93 Off
  140. .timerA120 off
  141. .timerA121 off
  142. set %AnswerStatus OFF
  143. msg %chann לא ידעתם לענות על שאלתי לוזרים.
  144. msg %chann מקווה שפעם הבאה תצליחו
  145. .timer 1 3 /NewQS
  146. }
  147.  
  148. alias DialogStartGame {
  149. set %GameListMax 5
  150. set %GameQS Adding
  151. inc %numberOfTheGame
  152. .timer 1 1 mode %chann +m
  153. .timer 1 3 msg %chann 4T1he 3ADMIN1 12 OnOne 1 Start The ( %numberOfTheGame ) Game Do !add , !del , !players
  154. .timer 1 5 mode %chann -m
  155. set %GameAdmin NoOne
  156. set %LastGameTime $time
  157. }
  158.  
  159. alias Ranked {
  160. var %count = $var(%GoodAnswer.*,0)
  161. if ($window(@Sort,state)) { window -c @Sort }
  162. window -h @Sort
  163. while (%count) {
  164. aline @Sort $var(%GoodAnswer.*,%count) $var(%GoodAnswer.*,%count).value
  165. dec %count
  166. }
  167. filter -wwucte 2 32 @Sort @Sort *
  168. var %x = 1
  169. while (%x <= 10) {
  170. msg %Chann Player Name: $right($gettok($line(@Sort,%x),1,32),-5) -- Score: $gettok($line(@Sort,%x),2,32) --
  171. inc %x
  172. }
  173. window -c @Sort
  174. }
  175.  
  176. alias Rankedecho {
  177. var %count = $var(%GoodAnswer.*,0)
  178. if ($window(@Sort,state)) { window -c @Sort }
  179. window -h @Sort
  180. while (%count) {
  181. aline @Sort $var(%GoodAnswer.*,%count) $var(%GoodAnswer.*,%count).value
  182. dec %count
  183. }
  184. filter -wwucte 2 32 @Sort @Sort *
  185. var %x = 1
  186. while (%x <= 10) {
  187. echo -a Player Name: $right($gettok($line(@Sort,%x),1,32),-5) -- Score: $gettok($line(@Sort,%x),2,32) --
  188. inc %x
  189. }
  190. window -c @Sort
  191. }
  192.  
  193.  
  194. alias Scores {
  195. var %x = 1
  196. while (%x <= $var(%GoodAnswer.*,0)) {
  197. set %NamePlayer [ $+ [ %x ] ] $gettok($var(%GoodAnswer.*,%x),2,46)
  198. set %ScorePlayer [ $+ [ %x ] ] $var(%GoodAnswer.*,%x).value
  199. inc %x
  200. }
  201. }
  202.  
  203.  
  204.  
  205. on *:CONNECT:{
  206. set %GameQS OFF
  207. unset %GoodAnswer.*
  208. set %GameListMax 5
  209. unset %numberOfQS
  210. unSet %GameList
  211. set %StatusChose OFF
  212. set %OptionCategory Animals Country City Life growing
  213. %ABC א ב ג ד ה ו ז ח ט י כ ל מ נ ס ע פ צ ק ר ש ת
  214. set %AnswerStatus OFF
  215. set %StatusChoseABC OFF
  216.  
  217. }
  218.  
  219. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  220.  
  221.  
  222. dialog DialogOpenScore {
  223. title "Flora Still Alive"
  224. size -1 -1 253 194
  225. option dbu
  226. button "Start A Game.", 4, 0 -1 43 14
  227. link "http://www.snopi.com/ee/ee_frm.asp", 2, 1 131 94 8
  228. link "The inventor of the game: Amit", 3, 159 0 77 8
  229. text "Status Of The Game:", 6, 0 16 53 8
  230. button "Cancel", 7, 133 181 37 12,ok
  231. box "Score.", 10, 103 16 121 115
  232. text "Name Player:", 9, 105 32 33 8
  233. text %NamePlayer1 , 11, 140 32 42 8
  234. text "Name Player:", 12, 105 41 34 8
  235. text %NamePlayer2 , 13, 140 42 41 8
  236. text %ScorePlayer1 , 14, 188 32 11 8
  237. text %ScorePlayer2 , 15, 188 42 11 8
  238. text "Name Player:", 16, 104 50 33 8
  239. text %NamePlayer3 , 17, 140 51 41 8
  240. text %ScorePlayer3 , 18, 188 51 12 9
  241. text "Name Player:", 19, 105 59 33 8
  242. text %NamePlayer4 , 20, 139 60 40 8
  243. text %ScorePlayer4 , 21, 188 61 12 8
  244. text "Name Player:", 22, 104 69 33 8
  245. text %NamePlayer5 , 23, 140 69 40 8
  246. text %ScorePlayer5 , 24, 187 70 12 8
  247. text "Name Player:", 25, 104 77 33 8
  248. text %NamePlayer6 , 26, 140 78 41 8
  249. text %ScorePlayer6 , 27, 187 79 13 8
  250. text "Name Player:", 28, 104 86 33 8
  251. text %NamePlayer7 , 29, 140 86 39 8
  252. text %ScorePlayer7 , 30, 187 88 13 8
  253. text "Name Player:", 31, 104 93 33 8
  254. text %NamePlayer8 , 32, 140 93 40 8
  255. text %ScorePlayer8 , 33, 187 96 12 8
  256. text "Name Player:", 34, 104 102 34 8
  257. text %NamePlayer9 , 35, 140 101 42 8
  258. text %ScorePlayer9 , 36, 186 102 12 8
  259. icon 8, 2 45 78 56, C:\ScreenShot\download.jpg, 0
  260. text "Refresh:", 37, 1 29 24 8
  261. radio "Not.", 38, 31 28 22 10
  262. radio "Ok.", 39, 54 28 25 10
  263. text "Number", 40, 110 22 21 8
  264. text "Name Player:", 41, 104 109 34 8
  265. text %NamePlayer10 , 42, 140 109 42 8
  266. text %ScorePlayer10 , 43, 187 109 13 8
  267. text "Name Player:", 44, 140 21 41 8
  268. text "Score", 45, 186 21 25 8
  269. button "Update Scores", 46, 169 118 39 12
  270. button "Clear Scores", 47, 116 118 37 12
  271. text %GameQs , 5, 54 16 31 8
  272. text "Admin Bot.", 48, 143 134 42 8
  273. edit "", 49, 147 150 50 10
  274. button "Set Crew Chan", 50, 101 149 44 12
  275. button "Set Master Nick", 51, 100 161 45 12
  276. edit "", 52, 146 161 50 10
  277. menu "Item1", 1
  278. }
  279.  
  280. alias DialogOpenScoreClose { dialog -x DialogOpenScore DialogOpenScore }
  281.  
  282. alias DialogOpenScore { dialog -m DialogOpenScore DialogOpenScore }
  283.  
  284. on *:dialog:DialogOpenScore:*:*:{
  285. if ($devent == sclick) {
  286. if ($did == 4) && (%GameQS !== OFF) { noop $input(The Game Aldeary Run.,o,Error) }
  287. if ($did == 4) && (%GameQS == OFF) { /DialogStartGame }
  288. if ($did == 46) { /UpdateScore | /DialogOpenScore | /DialogOpenScoreClose | /DialogOpenScore }
  289. if ($did == 47) { /ClearScoresDialog | /DialogOpenScoreClose | /DialogOpenScore }
  290. if ($did == 50) { set %CrewChan $did(49) }
  291. if ($did == 51) { set %master $did(52) }
  292. }
  293. while (%numberOfTheGame <0) {
  294. alias admins ,stop !
  295. }
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!