Jump to content

Steal For Wordfrenzy


Twist_of_Fate

Recommended Posts

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

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...