API tools faq
paste
_MM_IKKE

cookies.ini

_MM_IKKE
Nov 22nd, 2018
156
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 9.08 KB | None | 0 0
raw download clone embed print report
  1. [script]
  2. n0=on *:TEXT:!sellcookie:#[MM]IKKE: {
  3. n1=  if ($me == %bot4) {
  4. n2=    rpglog $nick $1-
  5. n3=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  6. n4=      createaccount $nick
  7. n5=    }
  8. n6=    alive $nick
  9. n7=    checkcookie $nick 1
  10. n8=    getcookie $nick
  11. n9=    increasecash $nick 10000
  12. n10=    msg $chan 4 $+ $nick 2has sold one cookie for7 10,000 2cash!
  13. n11=  }
  14. n12=}
  15. n13=on *:TEXT:!buycookie:#[MM]IKKE: {
  16. n14=  if ($me == %bot4) {
  17. n15=    rpglog $nick $1-
  18. n16=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  19. n17=      createaccount $nick
  20. n18=    }
  21. n19=    alive $nick
  22. n20=    checkmoney $nick 12000
  23. n21=    cookie $nick
  24. n22=    decreasecash $nick 12000
  25. n23=    msg $chan 4 $+ $nick 2has bought one cookie for7 12,000 2cash!
  26. n24=  }
  27. n25=}
  28. n26=on *:TEXT:!givecookie*:#[MM]IKKE: {
  29. n27=  if ($2 != $nick) {
  30. n28=    if ($me == %bot4 && $nick isin $read(Stats\Administrator list.txt, w, $nick) && $1 == !givecookie) {
  31. n29=      rpglog $nick $1-
  32. n30=      if ($2 ison $chan) {
  33. n31=        if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  34. n32=          .notice $nick 4ERROR:2 You cannot give the bot a cookie
  35. n33=        }
  36. n34=        else {
  37. n35=          if (!$exists(Stats\ $+ $2 $+ .txt)) {
  38. n36=            createaccount $2
  39. n37=          }
  40. n38=          cookie $2
  41. n39=          if ($3 == $null) { describe $chan gives4 $2 6a cookie (given by9 $nick $+ 6).4 $2 6has now7 $read(Stats\ $+ $2 $+ .txt, 3) 6cookie(s). }
  42. n40=          else { describe $chan gives4 $2 6a cookie (given by9 $nick $+ 6, Reason:2 $3- $+ 6).4 $2 6has now7 $read(Stats\ $+ $2 $+ .txt, 3) 6cookie(s). }
  43. n41=        }
  44. n42=      }
  45. n43=      elseif ($2 == $null) { .notice $nick 4ERROR:2 Usage: !givecookie <nick> }
  46. n44=      else { .notice $nick 4ERROR: $2 2isn't in the channel }
  47. n45=    }
  48. n46=    elseif ($me == %bot4 && $1 == !givecookie) {
  49. n47=      rpglog $nick $1-
  50. n48=      if ($2 ison $chan) {
  51. n49=        if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  52. n50=          .notice $nick 4ERROR:2 You cannot give the bot a cookie
  53. n51=        }
  54. n52=        else {
  55. n53=          if (!$exists(Stats\ $+ $nick $+ .txt)) {
  56. n54=            createaccount $nick
  57. n55=          }
  58. n56=          alive $nick
  59. n57=          if (!$exists(Stats\ $+ $2 $+ .txt)) {
  60. n58=            createaccount $2
  61. n59=          }
  62. n60=          if ($read(Stats\ $+ $nick $+ .txt, 3) == 0) {
  63. n61=            .notice $nick 4ERROR:2 You do not have enough cookies
  64. n62=          }
  65. n63=          if ($read(Stats\ $+ $nick $+ .txt, 3) >= 0) {
  66. n64=            checkcookie $nick 1
  67. n65=            getcookie $nick
  68. n66=            cookie $2
  69. n67=            msg $chan 9 $+ $nick 2has given4 $2 2a cookie.4 $2 2has now7 $read(Stats\ $+ $2 $+ .txt, 3) 2cookies,9 $nick 2has got7 $read(Stats\ $+ $nick $+ .txt, 3) 2cookies.
  70. n68=          }
  71. n69=        }
  72. n70=      }
  73. n71=      elseif ($2 == $null) { .notice $nick 4ERROR:2 Usage: !givecookie <nick> }
  74. n72=      else { .notice $nick 4ERROR: $2 2isn't in the channel }
  75. n73=    }
  76. n74=  }
  77. n75=  elseif ($nick == $2 && $me == %bot4 && $1 == !givecookie) {
  78. n76=    rpglog $nick $1-
  79. n77=    .notice $nick 4ERROR:2 You can't give yourself a cookie!
  80. n78=  }
  81. n79=}
  82. n80=on *:TEXT:!eatcookie:#[MM]IKKE: {
  83. n81=  if ($me == %bot4) {
  84. n82=    rpglog $nick $1-
  85. n83=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  86. n84=      createaccount $nick
  87. n85=    }
  88. n86=    alive $nick
  89. n87=    if ($read(Stats\ $+ $nick $+ .txt, 3) == 0) {
  90. n88=      .notice $nick 4ERROR:2 You do not have enough cookies
  91. n89=    }
  92. n90=    else {
  93. n91=      getcookie $nick
  94. n92=      if ($read(Stats\ $+ $nick $+ .txt, 7) <= 74) {
  95. n93=        write -l7 Stats\ $+ $nick $+ .txt $calc($read(Stats\ $+ $nick $+ .txt, 7) + 50)
  96. n94=        msg $chan 4 $+ $nick 2ate a cookie and restored his health with 50% (4 $+ $nick 2has got7 $read(Stats\ $+ $nick $+ .txt, 3) 2cookies)
  97. n95=      }
  98. n96=      elseif ($read(Stats\ $+ $nick $+ .txt, 7) == 125) {
  99. n97=        msg $chan 4 $+ $nick 2ate a cookie... (4 $+ $nick 2has got7 $read(Stats\ $+ $nick $+ .txt, 3) 2cookies)
  100. n98=      }
  101. n99=      else {
  102. n100=        write -l7 Stats\ $+ $nick $+ .txt 125
  103. n101=        msg $chan 4 $+ $nick 2ate a cookie and fully restored his health (4 $+ $nick 2has got7 $read(Stats\ $+ $nick $+ .txt, 3) 2cookies)
  104. n102=      }
  105. n103=    }
  106. n104=  }
  107. n105=}
  108. n106=on *:TEXT:!stealcookie:#[MM]IKKE: {
  109. n107=  if ($me == %bot4) {
  110. n108=    rpglog $nick $1-
  111. n109=    msg $chan 2Current options: Stealing all cookies (3%), stealing 1 up to 10 cookies (7%), stealing one cookie (40%), nothing (15%), other user steals cookie (20%), losing a cookie (13%), losing all cookies (2%)
  112. n110=  }
  113. n111=}
  114. n112=on *:TEXT:!stealcookie*:#[MM]IKKE: {
  115. n113=  if ($me == %bot4 && $1 == !stealcookie) {
  116. n114=    rpglog $nick $1-
  117. n115=    if (!$exists(Stats\ $+ $nick $+ .txt)) {
  118. n116=      createaccount $nick
  119. n117=    }
  120. n118=    alive $nick
  121. n119=    checkjob $nick $nick
  122. n120=    if ($2 ison $chan) {
  123. n121=      if ($2 isin $read(bots.txt,w,$2) || $2 isin $read(userbots.txt,w,$2)) {
  124. n122=        .notice $nick 4ERROR:2 Bots don't have any cookies
  125. n123=      }
  126. n124=      else {
  127. n125=        if (!$exists(Stats\ $+ $2 $+ .txt)) {
  128. n126=          createaccount $2
  129. n127=        }
  130. n128=        checkjob $2 $nick
  131. n129=        if ($read(Stats\ $+ $2 $+ .txt, 3) <= 0) {
  132. n130=          .notice $nick 4ERROR: $2 2does not have any cookies,9 $nick $+ 2!
  133. n131=          halt
  134. n132=        }
  135. n133=        if ($read(Stats\ $+ $nick $+ .txt, 3) == 0) {
  136. n134=          .notice $nick 4ERROR:2 You need at least one cookie to steal
  137. n135=          halt
  138. n136=        }
  139. n137=        else {
  140. n138=          var %i = $rand(1,100)
  141. n139=          if (%i <= 3) {
  142. n140=            write -l3 Stats\ $+ $nick $+ .txt $calc($read(Stats\ $+ $nick $+ .txt, 3) + $read(Stats\ $+ $2 $+ .txt, 3))
  143. n141=            write -l3 Stats\ $+ $2 $+ .txt 0
  144. n142=            msg $chan 9 $+ $nick 2is a professional thief! He stole all the cookies of4 $2 $+ 2! He has7 $read(Stats\ $+ $nick $+ .txt, 3) 2cookies now.
  145. n143=          }
  146. n144=          elseif (%i <= 10) {
  147. n145=            if ($read(Stats\ $+ $2 $+ .txt, 3) <= 10) {
  148. n146=              var %j = $rand(2, $read(Stats\ $+ $2 $+ .txt, 3))
  149. n147=              write -l3 Stats\ $+ $2 $+ .txt $calc($read(Stats\ $+ $2 $+ .txt, 3) - %j )
  150. n148=              write -l3 Stats\ $+ $nick $+ .txt $calc($read(Stats\ $+ $nick $+ .txt, 3) + %j )
  151. n149=              msg $chan 9 $+ $nick 2stole7 %j 2cookies :O9 $nick 2now has7 $read(Stats\ $+ $nick $+ .txt, 3) 2cookies,4 $2 2has7 $read(Stats\ $+ $2 $+ .txt, 3) 2cookies.
  152. n150=            }
  153. n151=            else {
  154. n152=              var %j = $rand(2,10)
  155. n153=              write -l3 Stats\ $+ $2 $+ .txt $calc($read(Stats\ $+ $2 $+ .txt, 3) - %j )
  156. n154=              write -l3 Stats\ $+ $nick $+ .txt $calc($read(Stats\ $+ $nick $+ .txt, 3) + %j )
  157. n155=              msg $chan 9 $+ $nick 2stole7 %j 2cookies :O9 $nick 2now has7 $read(Stats\ $+ $nick $+ .txt, 3) 2cookies,4 $2 2has7 $read(Stats\ $+ $2 $+ .txt, 3) 2cookies.
  158. n156=            }
  159. n157=          }
  160. n158=          elseif (%i <= 50) {
  161. n159=            write -l3 Stats\ $+ $2 $+ .txt $calc($read(Stats\ $+ $2 $+ .txt, 3) - 1)
  162. n160=            write -l3 Stats\ $+ $nick $+ .txt $calc($read(Stats\ $+ $nick $+ .txt, 3) + 1)
  163. n161=            msg $chan 9 $+ $nick 2stole4 $2 $+ 2's cookie :O9 $nick 2now has7 $read(Stats\ $+ $nick $+ .txt, 3) 2cookies,4 $2 2has7 $read(Stats\ $+ $2 $+ .txt, 3) 2cookies.
  164. n162=          }
  165. n163=          elseif (%i <= 98) {
  166. n164=            if ($read(Stats\ $+ $nick $+ .txt, 3) >= 0 && %i >= 85) {
  167. n165=              write -l3 Stats\ $+ $nick $+ .txt $calc($read(Stats\ $+ $nick $+ .txt, 3) - 1)
  168. n166=              msg $chan 4 $+ $2 2has dodged the lame attempt of9 $nick 2to steal the cookie.9 $nick 2even lost a cookie! He has now7 $read(Stats\ $+ $nick $+ .txt, 3) 2cookies.
  169. n167=            }
  170. n168=            elseif ($read(Stats\ $+ $nick $+ .txt, 3) >= 0 && %i >= 65) {
  171. n169=              write -l3 Stats\ $+ $2 $+ .txt $calc($read(Stats\ $+ $2 $+ .txt, 3) + 1)
  172. n170=              write -l3 Stats\ $+ $nick $+ .txt $calc($read(Stats\ $+ $nick $+ .txt, 3) - 1)
  173. n171=              msg $chan 4 $+ $2 2has dodged the lame attempt of9 $nick 2to steal the cookie.9 $2 2even stole a cookie back!4 $2 2has now7 $read(Stats\ $+ $2 $+ .txt, 3) 2cookies.9 $nick 2has7 $read(Stats\ $+ $nick $+ .txt, 3) 2cookies.
  174. n172=            }
  175. n173=            else {
  176. n174=              msg $chan 4 $+ $2 2has dodged the lame attempt of9 $nick 2to steal the cookie.
  177. n175=            }
  178. n176=          }
  179. n177=          else {
  180. n178=            write -l3 Stats\ $+ $nick $+ .txt 0
  181. n179=            msg $chan NOES! 2Cops saw9 $nick 2stealing4 $2 $+ 2's cookies! He got caught and lost all his cookies :O
  182. n180=          }
  183. n181=        }
  184. n182=      }
  185. n183=    }
  186. n184=    elseif ($2 == $null) { .notice $nick 4ERROR:2 Usage: !stealcookie <nick> }
  187. n185=    else { .notice $nick 4ERROR: $2 2isn't in the channel }
  188. n186=  }
  189. n187=}
Add Comment
Please, Sign In to add comment
Public Pastes
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!