Twist_of_Fate Posted June 8, 2008 Report Share Posted June 8, 2008 i dont not know who made this code for super trivia but i modified it to work with word frenzy. in remotes put #steal off On *:TEXT:!pot:#:{ mstat *s1 $iif(%pot.punten = 0,There are no points in the pot ! %pot.winner has removed them all :p,The jackpot is at present %pot.punten and the last winner was %pot.winner) } On *:TEXT:*!steal:#: { set %speel.num. $rand(1,$nick($chan,0)) set %speel.speler $nick($chan,%speel.num.) %stealr = $rand(a,u) %pot.bedrag = $rand(500,1500) %sponsor = $rand(1,3) { if (%msg.steal. [ $+ [ $nick ] ] = played) { StealWait Return } On owner:TEXT: !addpoints * : # : { addpoint $2 $3 } } { if ($hof(p,$nick) < 0) { DoColl gold b You need to add frenzy points to your score $nick :d :d your already on $hof(p,$nick) :| Return } } { if ($nick = %speel.speler) { inc %pot.punten 50 addpoint $nick -50 DoColl gold b $nick throws 50 points in the pot :d Jackpot now stands at %pot.punten points :o ? (Y)(Y)(Y) Last winner of the pot was: %pot.winner } elseif (%stealr = p) { inc %pot.punten 5 addpoint $nick -5 DoColl gold b $nick throws 5 points in the pot :d Jackpot now stands at %pot.punten points :o ? (Y)(Y)(Y) Last winner of the pot was: %pot.winner } elseif (%stealr = q) { inc %pot.punten 75 addpoint $nick -75 DoColl gold b $nick Throws 75 points in the pot :d Jackpot now stands at %pot.punten points :o ? (Y)(Y)(Y) Last winner of the pot was: %pot.winner } elseif (%stealr = r) { inc %pot.punten 40 addpoint $nick -40 DoColl gold b $nick Throws 40 points in the pot :d Jackpot now stands at %pot.punten points :o ? (Y)(Y)(Y) Last winner of the pot was: %pot.winner } elseif (%stealr = s) { inc %pot.punten 30 addpoint $nick -30 DoColl gold b $nick Throws 30 points in the pot :d Jackpot now stands at %pot.punten points :o ? (Y)(Y)(Y) Last winner of the pot was: %pot.winner } elseif (%stealr = t) { inc %pot.punten 20 addpoint $nick -20 DoColl gold b $nick Throws 20 points in the pot :d Pot now stands at %pot.punten points :o ? (Y)(Y)(Y) Last winner of the pot was: %pot.winner } elseif (%stealr = u) { inc %pot.punten 10 addpoint $nick -10 DoColl gold b $nick Throws 10 points in the pot :d Jackpot now stands at %pot.punten points :o ? (Y)(Y)(Y) Last winner of the pot was: %pot.winner } elseif (%stealr = p) { inc %pot.punten 50 addpoint $nick -50 DoColl gold b $nick Throws 50 points in the pot :o Jackpot now stands at %pot.punten points :o ? (Y)(Y)(Y) Last winner of the pot was: %pot.winner } elseif (%stealr = n) { addpoint $nick %pot.punten Docoll DarkRed b (*) $nick (*) has won the Jackpot :o it stood at %pot.punten points !!! (*)(f)Well done(f)(*) !!! set %pot.punten %pot.bedrag DoColl gold b Sponsor found, Bill Gates : $read(sponsor.txt) ! has given %pot.bedrag points into the Jackpot :o set %pot.winner $nick } elseif (%stealr = o) { addpoint $nick %pot.punten Docoll DarkRed b (*) $nick (*) Has won the Jackpot :o it stood at %pot.punten points !!! (*)(f)Well Done(f)(*) !!! set %pot.punten %pot.bedrag Sponsor found, Oprah Winfrey : $read(sponsor.txt) ! has given %pot.bedrag points into the Jackpot :o set %pot.winner $nick } elseif (%stealr = a) { addpoint $nick 50 addpoint %speel.speler -50 DoColl gold b $nick steals 50 points from %speel.speler :o } elseif (%stealr = b) { addpoint $nick 10 addpoint %speel.speler -10 DoColl gold b $nick steals 10 points %speel.speler :o } elseif (%stealr = c) { addpoint $nick 20 addpoint %speel.speler -20 DoColl gold b $nick steals 20 points from %speel.speler :o } elseif (%stealr = d) { addpoint $nick 50 addpoint %speel.speler -50 DoColl gold b $nick steals 50 points from %speel.speler :o } elseif (%stealr = e) { addpoint $nick 10 addpoint %speel.speler -10 DoColl gold b $nick steals 10 points from %speel.speler :o } elseif (%stealr = f) { addpoint $nick 50 addpoint %speel.speler -50 DoColl gold b $nick steals 50 points from %speel.speler :o } elseif (%stealr = g) { addpoint $nick -25 addpoint %speel.speler 25 DoColl gold b $nick gives away 25 of their hard earned points to %speel.speler (a) } elseif (%stealr = h) { addpoint $nick -20 addpoint %speel.speler 20 DoColl gold b $nick gives away 120 of their points to %speel.speler (a) } elseif (%stealr = i) { addpoint $nick -25 addpoint %speel.speler 25 DoColl gold b $nick gives away 25 of their hard earned points to %speel.speler (a) } elseif (%stealr = j) { addpoint $nick -30 addpoint %speel.speler 30 DoColl gold b $nick gives away 30 of their hard earned points to %speel.speler (a) } elseif (%stealr = k) { addpoint $nick -40 addpoint %speel.speler 40 DoColl gold b $nick gives away 40 of their hard earned points to %speel.speler (a) } elseif (%stealr = l) { addpoint $nick -25 addpoint %speel.speler 25 DoColl gold b $nick gives away 25 of their hard earned points to %speel.speler (a) } elseif (%stealr = m) { addpoint $nick -75 addpoint %speel.speler 75 DoColl gold b $nick gives away 75 of their hard earned points to %speel.speler (a) } } set -u90 %msg.steal. [ $+ [ $nick ] ] played } ;;;; other aliases alias docoll { if ($1-2 == darkgreen b) { show S Tahoma;0 $3- } elseif ($1-2 == teal b) { show S Tahoma;0 $3- } elseif ($1-2 == darkblue b) { show S \rTahoma;0 $3- } elseif ($1-2 == red b) { show S eTahoma;0 $3- } elseif ($1-2 == red b) { show S eTahoma;0 $3- } elseif ($1-2 == red bb) { show S eTahoma;0 $3- } elseif ($1-2 == gold b) { show S Tahoma;0 $3- } elseif ($1-2 == green b) { show S Tahoma;0 $3- } elseif ($1-2 == blue b) { show S \rTahoma;0 $3- } elseif ($1-2 == darkred b) { show S eTahoma;0 $3- } elseif ($1-2 == black b) { show S Tahoma;0 $3- } elseif ($1-2 == black r) { show S Tahoma;0 $3- } elseif ($1-2 == navy b) { show S Tahoma;0 $3- } elseif ($1-2 == dark b) { show S Tahoma;0 $3- } } alias AddPoint { var %Score $readini(FrenzyScores.ini, $1, score) inc %Score $2 writeini FrenzyScores.ini $1 score %Score } alias tell { .ctcpreply $1 TIME $2- } alias StealWait { tell $nick Thou Shalt Not Steal but once every 90 seconds return } #steel end in pop ups under wordfrenzy put ..Steal Game ( $+ $group(#steal) $+ ) ...$iif($group(#steal) == on,$style(2),$style(0)) On:.enable #steal | echo -a 3 Steal Game - on 3 ...$iif($group(#steal) == off,$style(2),$style(0)) Off:.disable #steal | echo -a 4 Steal Game - off for it to work make sure that it is set to on in your wordfrenzy menu Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now