API tools faq
paste
LoveAbleElf

luv/hate

LoveAbleElf
Jul 12th, 2020
66
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 19.34 KB | None | 0 0
raw download clone embed print report
  1. ;reputation (love/hate) script by mruno
  2. ;!luv !hate !rep !mosthated !mostloved
  3.  
  4. ;save to a file and /load -rs rep.mrc
  5. ;edit the lines below
  6.  
  7. ;---------------------------------------------------
  8. ;channel to run the sciprt in
  9. alias -l rep.chan return #CHANNEL
  10.  
  11. ;number of times a nick and !love/!hate per day
  12. alias -l max.rep.today return 4
  13.  
  14. ;nicks banned from using !love/!hate
  15. alias rep.banned.nicks return
  16.  
  17. ;captcha nicks when using !love/!hate. REQUIRES CAPTCHA.MRC
  18. alias -l rep.captcha.check.times return 0
  19. ;---------------------------------------------------
  20.  
  21. ;#########################################################################
  22. ;do not edit below this line unless you know what you are doing!
  23. ;#########################################################################
  24. alias -l iseven return $iif(2 // $1,$true,$false)
  25. alias -l isodd return $iif(!$iseven($1),$true,$false)
  26. alias import.rep {
  27. var %file " $+ $mircdirsave\rep. $+ $network $+ .ini"
  28. var %loop 0
  29. var %total 0
  30. while ($ini(%file,rep,0) > %loop) {
  31. inc %loop
  32. var %nick $ini(%file,rep,%loop)
  33. var %rep $readini(%file,rep,%nick)
  34. if (!%rep) set %rep 0
  35. if (%nick) {
  36. hadd REPUTATION %nick %rep
  37. inc %total
  38. }
  39. else iecho %nick - %rep not imported
  40. }
  41. iecho %total out o' $ini(%file,rep,0) reps imported
  42. }
  43. alias rep.captcha.check {
  44. ;/rep.captcha.check <nick> - counts times nick has loved or hated today. if XX times perform captcha check.
  45. ; iecho rep.captcha.check $1-
  46. if (!$1) return
  47. var %table REPUTATION.TODAY
  48. hinc %table $1
  49. var %times $hget(%table,$1)
  50. if ($rep.captcha.check.times // %times) && (%times > 1) rep.perform.captcha $1
  51. }
  52. alias rep.perform.captcha {
  53. ;/rep.perform.captcha <nick> - asks player a captcha question
  54. ;iecho rep.perform.captcha $1-
  55. ;set -e %rep.captcha.check. $+ $1 $Captcha.question
  56. }
  57. alias Rep.Top {
  58. ;/Rep.Top CHANNEL <#>
  59. if (!$1) return
  60. REP.Sort.TOP
  61. var %table REPUTATION
  62. var %file rep.tmp
  63. var %loop 0
  64. var %top
  65. var %rep
  66. while ($2 > %loop) {
  67. var %nick
  68. inc %loop
  69. if (%loop == 1) msg $1  Most LoVeD 4♥13♥4♥ users:
  70. set %nick $hget(%table,$gettok($read(%file,%loop),1,32)).item
  71. if ($iseven(%loop)) msg $1  %rep $str(.,$calc(50 - $len(%rep))) %loop $+ . %nick 12 $gettok($read(%file,%loop),2,32)
  72. else {
  73. if (%nick) set %rep %loop $+ . %nick 12 $gettok($read(%file,%loop),2,32) 
  74. else set %rep %loop $+ . None
  75. }
  76. }
  77. if (%top) && (%total) msg $EPirate.chan %top
  78. }
  79. alias REP.Sort.TOP {
  80. var %file rep.tmp
  81. var %table REPUTATION
  82. hsave -n %table %file
  83. filter -ffcuten 2 32 %file %file
  84. }
  85. alias Rep.Down {
  86. ;/Rep.Top CHANNEL <#>
  87. if (!$1) return
  88. REP.Sort.Down
  89. var %table REPUTATION
  90. var %file rep.tmp
  91. var %loop 0
  92. var %top
  93. var %rep
  94. while ($2 > %loop) {
  95. var %nick
  96.  
  97. inc %loop
  98. if (%loop == 1) msg $1     Most HaTeD 4┌∩┐(◣_◢)┌∩┐ users:
  99. set %nick $hget(%table,$gettok($read(%file,%loop),1,32)).item
  100.  
  101. if ($iseven(%loop)) msg $1  %rep $str(.,$calc(50 - $len(%rep))) %loop $+ . %nick 12 $gettok($read(%file,%loop),2,32)
  102. else {
  103. if (%nick) set %rep %loop $+ . %nick 12 $gettok($read(%file,%loop),2,32) 
  104. else set %rep %loop $+ . None
  105. }
  106.  
  107.  
  108. }
  109. if (%top) && (%total) msg $EPirate.chan %top
  110. }
  111. alias REP.Sort.DOWN {
  112. var %file rep.tmp
  113. var %table REPUTATION
  114. hsave -n %table %file
  115. filter -ffcutn 2 32 %file %file
  116. }
  117. alias timer.ignore {
  118. var %a
  119. if ($1 isin %a) {
  120. .timerlove.spam 1 5 msg $rep.CHAN   $1 has been ignored due to suspected timer abuse.
  121. return 1
  122. }
  123. }
  124. on 1:CONNECT:/unset.vars
  125. on 1:NOTICE:*status *:?:{
  126. if ($nick == nickserv) && (%rep.regcheck == $2) {
  127. if ($3 == 3) {
  128. hadd REGISTERED.NICKS $2 $ctime
  129. if (!luv isin %rep.cmd) || (!love isin %rep.cmd) .timeraddlove 1 3 addlove %rep.cmd
  130. elseif (!hate isin %rep.cmd) .timeraddhate 1 3 addhate %rep.cmd
  131. }
  132. }
  133. elseif (%rep.regcheck) && (%rep.regcheck ison $rep.CHAN) .timerregister. $+ $2 1 5 .notice %rep.regcheck You must be registered to use this trigger. To register type: /ns HELP REGISTER
  134. }
  135. alias registeredcheck if ($hget(registered.nicks,$1)) return 1
  136. on 1:EXIT:{
  137. reputation.save
  138. }
  139. alias reputation.save {
  140. hsave Registered.Nicks " $+ $mircdirsave\registered.nicks.dat $+ "
  141. hsave REPUTATION " $+ $mircdirsave\REPUTATION.dat $+ "
  142. hsave REPUTATION.TODAY " $+ $mircdirsave\REPUTATION.TODAY.dat $+ "
  143. }
  144. on 1:START:{
  145. var %table registered.nicks
  146. hmake %table
  147. var %file " $+ $mircdirsave\registered.nicks.dat"
  148. if ($exists(%file)) hload %table %file
  149. else echo -st ERROR %file does not exist
  150. set %table REPUTATION
  151. hmake %table 10000
  152. set %file " $+ $mircdirsave\REPUTATION.dat"
  153. if ($exists(%file)) hload %table %file
  154. else echo -st ERROR %file does not exist
  155. .timerREp.SAVE -o 0 7200 reputation.save
  156. set %table REPUTATION.TODAY
  157. hmake %table 250
  158. set %file " $+ $mircdirsave\REPUTATION.TODAY.dat"
  159. if ($exists(%file)) hload %table %file
  160. else echo -st ERROR %file does not exist
  161. unset %rep.*
  162. .timerRep.New.Day.Check -o 0 300 Rep.New.Day.Check
  163. }
  164. alias Rep.New.Day.Check {
  165. var %table reputation.today
  166. if ($hget(%table,date) != $date) {
  167. hdel -w %table *
  168. hadd %table date $date
  169. }
  170. }
  171. alias r.luv {
  172. var %i = 1
  173. while (%i <= $ini(save\rep. $+ $network $+ .ini,rep,0)) {
  174. if ($readini(save\rep. $+ $network $+ .ini,rep,$ini(save\rep. $+ $network $+ .ini,rep,%i)) == $1) var %rep = %rep $readini(save\rep. $+ $network $+ .ini,propernick,$ini(save\rep. $+ $network $+ .ini,rep,%i))
  175. inc %i
  176. }
  177. if (!%rep) return 0
  178. else return %rep
  179. }
  180. on *:TEXT:*:#elite-chat:{
  181. if ($chr(37) isin $1-) || ($chr(36) isin $2-) || ([EWG]* iswm $nick) return
  182. if ([ewg] isin $nick) return
  183. if ($1 == !topluv) || ($1 == !toplove) || ($1 == !mostlove) || ($1 == !mostloved) Rep.Top $chan 10
  184. elseif ($1 == !mosthate) || ($1 == !mosthated) || ($1 == !tophate) Rep.Down $chan 10
  185. elseif ($1 == !rep) || ($1 == !pop) {
  186. var %rep $hget(REPUTATION,$iif($2,$2,$nick))
  187. if (!$2) {
  188. if ($nick isin $rep.banned.nicks) return
  189. msg $chan $nick $+ $chr(44) Your reputation is12 $iif(%rep,%rep,0)
  190. }
  191. if ($2) {
  192. if ($2 isin $rep.banned.nicks) return
  193. if (!%rep) msg $chan $2 has no reputation ...
  194. else msg $chan   $2 $+ 's reputation is12 %rep
  195. }
  196. }
  197. elseif ($1 == !luv) || ($1 == !love) {
  198. set %rep.nick $nick
  199. if ($timer.ignore($nick)) || ($2 isin $rep.banned.nicks) || ([ [ $+(%,rep.ignore.,$nick) ] ]) return
  200. if (!$registeredcheck($nick)) { set %rep.regcheck $nick | set %rep.cmd $1- | ns status $nick | halt }
  201. if ($timer(rep.love. $+ $2)) && (%rep.nick ison $rep.CHAN) .notice %rep.nick Sorry $nick $+ , your !love has been buffered. Try again in one minute.
  202. else {
  203. ;if ($($+(%,EPirate.Join.Spam.Skip.,$1),2)) return
  204. ;if ($nick == mruno) && ([ [ $+(%,rep.captcha.check.,$nick) ] ]) .notice $nick Just making sure you are human, please answer the following with !captcha <answer>:  [ [ $ifmatch ] ]
  205. ;else .timeraddlove 1 3 addlove $1-
  206. var %today 0
  207. if ($hget(REPUTATION.TODAY,$+($nick,$chr(187),$2))) set %today $ifmatch
  208. if (%today >= $max.rep.today) .notice $nick Ye repped 'em too much today!
  209. else .timeraddlove 1 1 addlove $1-
  210. }
  211. }
  212. elseif ($1 == !hate) {
  213. set %rep.nick $nick
  214. if ($timer.ignore($nick)) || ($2 isin $rep.banned.nicks) || ([ [ $+(%,rep.ignore.,$nick) ] ]) return
  215. ; || ($+(%,rep.ignore.,$nick))
  216. if (!$registeredcheck($nick)) { set %rep.regcheck $nick | set %rep.cmd $1- | ns status $nick | halt }
  217. if ($timer(rep.hate. $+ $2)) && ($nick ison $rep.CHAN) .notice %rep.nick Sorry $nick $+ , your !hate has been buffered. Try again in one minute.
  218. else {
  219. ;if ($nick == mruno) && ([ [ $+(%,rep.captcha.check.,$nick) ] ]) .notice $nick Just making sure you are human, please answer the following with !captcha <answer>:  [ [ $ifmatch ] ]
  220. ;else .timeraddhate 1 3 addhate $1-
  221. var %today 0
  222. if ($hget(REPUTATION.TODAY,$+($nick,$chr(187),$2))) set %today $ifmatch
  223. if (%today >= $max.rep.today) .notice $nick Ye repped 'em too much today!
  224. else .timeraddhate 1 3 addhate $1-
  225.  
  226. }
  227. }
  228. elseif ($1 == !captcha) {
  229. if ($+(%,rep.captcha.check.,$nick)) {
  230. var %question [ [ $ifmatch ] ]
  231. if ($2) {
  232. var %response $lower($remove($2-,<,>,$chr(44)))
  233. if ($Captcha.answer($replace(%question,$chr(32),$chr(187)),%response)) {
  234. .notice $nick Correct! You can now !luv or !hate
  235. iecho before: $+(%,rep.captcha.check.,$nick)
  236. unset $+(%,rep.captcha.check.,$nick)
  237. iecho after: $+(%,rep.captcha.check.,$nick) : [ [ $+(%,rep.captcha.check.,$nick) ] ]
  238. }
  239. else {
  240. .notice $nick Wrong answer. You will be ignored from !luv and !hate for 15mins.
  241. set -eu900 %rep.ignore. $+ $nick 1
  242. .timer 1 900 set -e %rep.captcha.check. $+ $nick $Captcha.question
  243. }
  244. }
  245. else .notice $nick Please answer the following with !Captcha <answer>: %question
  246. }
  247. else .notice No need to answer this or captcha already answered
  248. }
  249. }
  250. alias make.love {
  251. if (!$2) return
  252. var %r $rand(1,21), %m
  253. if (%r == 1) set %m sees $1 and $2 knockin' boots...
  254. elseif (%r == 2) set %m smells $1 and $2 making bacon...
  255. elseif (%r == 3) set %m turns away from $1 and $2 $+ 's bed wrestling...
  256. elseif (%r == 4) set %m sees $1 and $2 making babies...
  257. elseif (%r == 5) set %m hears $1 and $2 moaning together...
  258. elseif (%r == 6) set %m sees $1 boinking $2 $+ ...
  259. elseif (%r == 7) set %m sees $1 and $2 doing the boom-boom...
  260. elseif (%r == 8) set %m sees $1 burying the bone into $2 $+ ...
  261. elseif (%r == 9) set %m notices $1 checking $2 $+ 's oil...
  262. elseif (%r == 10) set %m sees $1 and $2 exchanging bodily fluids...
  263. elseif (%r == 11) set %m sees $1 and $2 doing the four legged frolic...
  264. elseif (%r == 12) set %m sees $1 and $2 fucking...
  265. elseif (%r == 13) set %m sees $1 and $2 doing the horizontal hustle...
  266. elseif (%r == 14) set %m hears $1 and $2 making love...
  267. elseif (%r == 15) set %m hears $1 and $2 doing the mommy-daddy dance...
  268. elseif (%r == 16) set %m sees $1 nailing $2 $+ ...
  269. elseif (%r == 17) set %m videos $1 and $2 playing doctor...
  270. elseif (%r == 18) set %m videos $1 ramming $2 $+ ...
  271. elseif (%r == 19) set %m watches $1 and $2 slap bellies...
  272. elseif (%r == 20) set %m watches $1 and $2 doing two person pushups...
  273. elseif (%r == 21) set %m watches $1 and $2 shagging...
  274. elseif (%r == 21) set %m joins $1 and $2 in a three some...
  275. return %m
  276. }
  277. alias addlove {
  278. ; %rep.nick : $2
  279. if (%rep.nick == $2) {
  280. rep.captcha.check %rep.nick
  281. var %time $rand(25,65)
  282. var %sec $calc(60 * %time)
  283. set -u [ $+ [ %sec ] ] %rep. [ $+ [ $me ] ] 1
  284. hinc REPUTATION $me
  285. msg $rep.chan $+($me,`s) reputation is now12 $hget(REPUTATION,$me)
  286.  
  287. ;writeini save\rep. $+ $network $+ .ini rep $me $iif($readini(save\rep. $+ $network $+ .ini,rep,$me) == $NULL,1,$calc($readini(save\rep. $+ $network $+ .ini,rep,$me) + 1 ))
  288. ;writeini save\rep. $+ $network $+ .ini rep2nick $readini(save\rep. $+ $network $+ .ini,rep,$me) $me
  289. ;if ($readini(save\rep. $+ $network $+ .ini,settings,max) < $readini(save\rep. $+ $network $+ .ini,rep,$me)) writeini save\rep. $+ $network $+ .ini settings max $readini(save\rep. $+ $network $+ .ini,rep,$me)
  290. ;writeini save\rep. $+ $network $+ .ini propernick $me $me
  291. ;msg $rep.chan $+($me,`s) reputation is now12 $readini(save\rep. $+ $network $+ .ini,rep,$me)
  292. set %time $calc(%time - 2)
  293.  
  294. var %random1 $rand(0,3)
  295. var %random2 $rand(0,3)
  296. var %fake
  297. if (%random1 == 0) set %fake %time
  298. elseif (%random1 == 1) set %fake 00,00 $rand(15,45) 12 %time $+ 
  299. elseif (%random1 == 2) set %fake 00,00 $rand(15,45) $rand(15,45) 12 %time $+ 
  300. elseif (%random1 == 3) set %fake 00,00 $rand(15,45) $rand(15,45) $rand(15,45) 12 %time $+ 
  301. if (%random2 == 1) set %fake %fake 00,00 $+ $rand(15,45) $+ 
  302. elseif (%random2 == 2) set %fake %fake 00,00 $+ $rand(15,45) $rand(15,45) $+ 
  303. elseif (%random2 == 3) set %fake %fake 00,00 $+ $rand(15,45) $rand(15,45) $rand(15,45) $+ 
  304.  
  305. if (!%rep.regcheck) && (%rep.nick) && (%rep.nick ison $rep.chan) .notice %rep.nick You are not allowed to use this trigger for the next12 %fake minutes...
  306. halt
  307. }
  308. if ($2 !ison $rep.chan) {
  309. if ($2) describe $rep.chan doesn't see $2
  310. else .notice %rep.nick try $1 <nick>
  311. return
  312. }
  313. if (%rep. [ $+ [ %rep.nick ] ] != 1 ) {
  314. .timerrep.love. $+ $2 1 30 noop
  315. rep.captcha.check %rep.nick
  316. var %time $rand(25,65)
  317. var %sec $calc(60 * %time)
  318. set -u [ $+ [ %sec ] ] %rep. [ $+ [ %rep.nick ] ] 1
  319. if (%rep.make.love. [ $+ [ $2 ] ] == %rep.nick) {
  320. if (%rep.nick) {
  321. var %tmp $make.love(%rep.nick,$2)
  322. .timermake.love 1 5 if (%tmp) describe $rep.chan %tmp
  323. }
  324. }
  325. set -u300 %rep.make.love. [ $+ [ %rep.nick ] ] $2
  326. hinc REPUTATION $2
  327. hinc REPUTATION.TODAY $+(%rep.nick,$chr(187),$2)
  328. msg $rep.chan %rep.nick has increased $2 $+ 's popularity rating to12 $hget(REPUTATION,$2) 13♥ 
  329.  
  330. ;writeini save\rep. $+ $network $+ .ini rep $2 $iif($readini(save\rep. $+ $network $+ .ini,rep,$2) == $NULL,1,$calc($readini(save\rep. $+ $network $+ .ini,rep,$2) + 1 ))
  331. ;writeini save\rep. $+ $network $+ .ini rep2nick $readini(save\rep. $+ $network $+ .ini,rep,$2) $2
  332. ;if ($readini(save\rep. $+ $network $+ .ini,settings,max) < $readini(save\rep. $+ $network $+ .ini,rep,$2)) writeini save\rep. $+ $network $+ .ini settings max $readini(save\rep. $+ $network $+ .ini,rep,$2)
  333. ;writeini save\rep. $+ $network $+ .ini propernick $2 $2
  334. ;msg $rep.chan %rep.nick has increased $2 $+ 's popularity rating to12 $readini(save\rep. $+ $network $+ .ini,rep,$2) 13♥ 
  335. set %time $calc(%time - 2)
  336.  
  337. var %random1 $rand(0,3)
  338. var %random2 $rand(0,3)
  339. var %fake
  340. if (%random1 == 0) set %fake %time
  341. elseif (%random1 == 1) set %fake 00,00 $rand(15,45) 12 %time $+ 
  342. elseif (%random1 == 2) set %fake 00,00 $rand(15,45) $rand(15,45) 12 %time $+ 
  343. elseif (%random1 == 3) set %fake 00,00 $rand(15,45) $rand(15,45) $rand(15,45) 12 %time $+ 
  344. if (%random2 == 1) set %fake %fake 00,00 $+ $rand(15,45) $+ 
  345. elseif (%random2 == 2) set %fake %fake 00,00 $+ $rand(15,45) $rand(15,45) $+ 
  346. elseif (%random2 == 3) set %fake %fake 00,00 $+ $rand(15,45) $rand(15,45) $rand(15,45) $+ 
  347.  
  348. if (!%rep.regcheck) && (%rep.nick) && (%rep.nick ison $rep.chan) .notice %rep.nick You are not allowed to use this trigger for the next12 %fake minutes...
  349. }
  350. .timerunset.vars 1 10 unset.vars
  351. }
  352. alias addhate {
  353. ;%rep.nick : $2
  354. if ($2 !ison $rep.chan) {
  355. if ($2) describe $rep.chan doesn't see $2
  356. else .notice %rep.nick try $1 <nick>
  357. halt
  358. }
  359. if ($2 == $me) {
  360. var %time $rand(25,65)
  361. var %sec $calc(60 * %time)
  362. set -u [ $+ [ %sec ] ] %rep. [ $+ [ $nick ] ] 1
  363. if (%rep.make.love. [ $+ [ %rep.nick ] ] ) {
  364. var %tmp $make.love(%rep.nick,$2)
  365. if (%tmp) .timermake.love 1 5 describe $rep.chan %tmp
  366. }
  367. if (!%rep.nick) return
  368. rep.captcha.check $2
  369. set -u300 %rep.make.love. [ $+ [ %rep.nick ] ] $2
  370. hdec REPUTATION %rep.nick
  371. msg $rep.chan %rep.nick $+ 's reputation is now12 $hget(REPUTATION,%rep.nick)
  372.  
  373. ;iecho writeini save\rep. $+ $network $+ .ini rep $nick $iif($readini(save\rep. $+ $network $+ .ini,rep,%rep.nick) == $NULL,-1,$calc($readini(save\rep. $+ $network $+ .ini,rep,$nick) - 1))
  374. ;writeini save\rep. $+ $network $+ .ini rep $nick $iif($readini(save\rep. $+ $network $+ .ini,rep,%rep.nick) == $NULL,-1,$calc($readini(save\rep. $+ $network $+ .ini,rep,$nick) - 1))
  375. ;writeini save\rep. $+ $network $+ .ini rep2nick $readini(save\rep. $+ $network $+ .ini,rep,%rep.nick) %rep.nick
  376. ;if ($readini(save\rep. $+ $network $+ .ini,settings,min) > $readini(save\rep. $+ $network $+ .ini,rep,%rep.nick)) writeini save\rep. $+ $network $+ .ini settings min $readini(save\rep. $+ $network $+ .ini,rep,%rep.nick)
  377. ;msg $rep.chan %rep.nick $+ 's reputation is now12 $readini(save\rep. $+ $network $+ .ini,rep,%rep.nick)
  378. set %time $calc(%time - 2)
  379.  
  380. var %random1 $rand(0,3)
  381. var %random2 $rand(0,3)
  382. var %fake
  383. if (%random1 == 0) set %fake %time
  384. elseif (%random1 == 1) set %fake 00,00 $rand(15,45) 12 %time $+ 
  385. elseif (%random1 == 2) set %fake 00,00 $rand(15,45) $rand(15,45) 12 %time $+ 
  386. elseif (%random1 == 3) set %fake 00,00 $rand(15,45) $rand(15,45) $rand(15,45) 12 %time $+ 
  387. if (%random2 == 1) set %fake %fake 00,00 $+ $rand(15,45) $+ 
  388. elseif (%random2 == 2) set %fake %fake 00,00 $+ $rand(15,45) $rand(15,45) $+ 
  389. elseif (%random2 == 3) set %fake %fake 00,00 $+ $rand(15,45) $rand(15,45) $rand(15,45) $+ 
  390.  
  391. if (!%rep.regcheck) && (%rep.nick) && (%rep.nick ison $rep.chan) .notice %rep.nick You are not allowed to use this trigger for the next12 %fake minutes...
  392. ;writeini save\rep. $+ $network $+ .ini propernick $nick $nick
  393. halt
  394. }
  395. if (%rep. [ $+ [ %rep.nick ] ] != 1 ) {
  396. .timerrep.hate. $+ $2 1 30 noop
  397. .timerrep.hate. $+ %rep.nick 1 30 noop
  398. var %time $rand(25,65)
  399. var %sec $calc(60 * %time)
  400. set -u [ $+ [ %sec ] ] %rep. [ $+ [ %rep.nick ] ] 1
  401.  
  402. if (%rep.make.love. [ $+ [ $2 ] ] == %rep.nick) {
  403. var %tmp $make.love(%rep.nick,$2)
  404. if (%tmp) .timermake.love 1 5 describe $rep.chan %tmp
  405. }
  406. rep.captcha.check $2
  407. set -u300 %rep.make.love. [ $+ [ %rep.nick ] ] $2
  408. hdec REPUTATION $2
  409. hinc REPUTATION.TODAY $+(%rep.nick,$chr(187),$2)
  410. msg $rep.chan %rep.nick has decreased $2 $+ 's popularity rating to12 $hget(REPUTATION,$2) 4┌∩┐ 
  411.  
  412. ;writeini save\rep. $+ $network $+ .ini rep $2 $iif($readini(save\rep. $+ $network $+ .ini,rep,$2) == $NULL,-1,$calc($readini(save\rep. $+ $network $+ .ini,rep,$2) - 1 ))
  413. ;writeini save\rep. $+ $network $+ .ini rep2nick $readini(save\rep. $+ $network $+ .ini,rep,$2) $2
  414. ;if ($readini(save\rep. $+ $network $+ .ini,settings,min) > $readini(save\rep. $+ $network $+ .ini,rep,$2) ) writeini save\rep. $+ $network $+ .ini settings min $readini(save\rep. $+ $network $+ .ini,rep,$2)
  415. ;msg $rep.chan %rep.nick has decreased $2 $+ 's popularity rating to12 $readini(save\rep. $+ $network $+ .ini,rep,$2) 4┌∩┐ 
  416. set %time $calc(%time - 2)
  417.  
  418. var %random1 $rand(0,3)
  419. var %random2 $rand(0,3)
  420. var %fake
  421. if (%random1 == 0) set %fake %time
  422. elseif (%random1 == 1) set %fake 00,00 $rand(15,45) 12 %time $+ 
  423. elseif (%random1 == 2) set %fake 00,00 $rand(15,45) $rand(15,45) 12 %time $+ 
  424. elseif (%random1 == 3) set %fake 00,00 $rand(15,45) $rand(15,45) $rand(15,45) 12 %time $+ 
  425. if (%random2 == 1) set %fake %fake 00,00 $+ $rand(15,45) $+ 
  426. elseif (%random2 == 2) set %fake %fake 00,00 $+ $rand(15,45) $rand(15,45) $+ 
  427. elseif (%random2 == 3) set %fake %fake 00,00 $+ $rand(15,45) $rand(15,45) $rand(15,45) $+ 
  428.  
  429. if (!%rep.regcheck) && (%rep.nick) && (%rep.nick ison $rep.chan) .notice %rep.nick You are not allowed to use this trigger for the next12 %fake minutes...
  430. ;writeini save\rep. $+ $network $+ .ini propernick $2 $2
  431. }
  432. .timerunset.vars 1 10 unset.vars
  433. }
  434. alias -l unset.vars {
  435. unset %rep.nick
  436. unset %rep.cmd
  437. unset %rep.regcheck
  438. }
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!