View

pops v4

Snippet Author: Korvin
Rated:

Snippet Description: .

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Credits to Backoffjackson for original drinks -.-;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:TEXT:!pophelp:#:/notice $nick * !mtdew * !Sprite * !Coke * !7up * !pepsi * !mrpibb * !rootbeer * !drpepper * !slice * !dietcoke * !checkpops * !drink-popname- * Made By Korvin *
on *:TEXT:!coke:#:/dostuff $chan 1,15_0,4_Coke_1,15 $nick | inc %cokecount $+ $nick
on *:TEXT:!7up:#:/dostuff $chan 15,15!1,140,3_74,3°0,3UP_15,15! $nick
on *:TEXT:!mtdew:#:/dostuff $chan 15,15!1,148,3MtDew15,15! $nick
on *:TEXT:!sprite:#:/dostuff $chan 15,15!1,140,3_Sprite_15,15! $nick
on *:TEXT:!pepsi:#:/dostuff $chan 14,14!4,15P12,15e0,15p4,15s12,15i $nick
on *:TEXT:!mrpibb:#:/dostuff $chan 14,14!15,5Mr._Pibb14,14! $nick
on *:TEXT:!rootbeer:#:/dostuff $chan 14,14!15,5Root_Beer14,14! $nick
on *:TEXT:!drpepper:#:/dostuff $chan 14,14!8,5Dr._Pepper14,14! $nick
on *:TEXT:!dietcoke:#:/dostuff $chan 1,14_0,4_Diet_Coke_1,14_ $nick
on *:TEXT:!slice:#:/dostuff $chan 14,14!1,140,3Slice14,14! $nick
alias dostuff {
  if ($readini(sodaz.ini,$remove($strip($2),.,_),$3)) { describe $chan You already have one.. | halt }
  var %c = $rand(1,4)
  writeini sodaz.ini $remove($strip($2),.,_,!) $3 gotOne!
  describe $chan let me grab you a $remove($strip($replace($2,_,$chr(32))),!) $+ .. 
  if (%c == 1) .timer 1 3 describe $1 $nick Now Has A $replace($2,_,$chr(32)) * Made By Korvin *
  if (%c == 2) .timer 1 3 describe $1 $nick Gets A Nasty $replace($2,_,$chr(32)) * Made By Korvin *
  if (%c == 3) .timer 1 3 describe $1 $nick Gets A Solidified $replace($2,_,$chr(32)) * Made By Korvin *
  if (%c == 4) .timer 1 3 describe $1 $nick Gets The Best Tasting $replace($2,_,$chr(32)) They've ever had.. * Made By Korvin *
  if (%c == 2) /timer 1 6 /kick $1 $3 you pass out
  if (%c == 3) /timer 1 6 /kick $1 $nick you die..
}
on $*:TEXT:/[!@]checkPop(s|z)?/Si:#:{
  var %a = 0, %disp = $iif($left($1,1) == !,notice $nick,msg $chan)
  while (%a < $ini(sodaz.ini,0)) var %a = %a + 1, %line = %line $iif($readini(sodaz.ini,$ini(sodaz.ini,%a),$nick),* $replace($getsoda($ini(sodaz.ini,%a)),_,$chr(32)),$null) *
  if ($len(%line)) %disp $nick you have %line * Made By Korvin *
  else %disp $nick you don't have any soda..
}
on $*:TEXT:/^!drink(.+)$/Si:#:{
  if ($regex($1,/^!drink(drpepper|sprite|(?:diet)?coke|slice|mrpibb|7up|mtdew|pepsi|rootbeer){1}/Si)) {
    if (!$readini(sodaz.ini,$regml(1),$nick)) halt
    describe $chan watches $nick drink their $replace($getsoda($regml(1)),_,$chr(32)) * Made By Korvin *
    remini sodaz.ini $regml(1) $nick
  }
}
alias getsoda {
  if ($1 == coke) return 1,15 0,4_Coke_1,15
  if ($1 == 7up) return 15,15!1,140,3_74,3°0,3UP_15,15!
  if ($1 == mtdew) return 15,15!1,148,3MtDew15,15!
  if ($1 == sprite) return 15,15!1,140,3_Sprite_15,15!
  if ($1 == pepsi) return 14,14!4,15P12,15e0,15p4,15s12,15i
  if ($1 == mrpibb) return 14,14!15,5Mr._Pibb14,14!
  if ($1 == rootbeer) return 14,14!15,5Root_Beer14,14!
  if ($1 == drpepper) return 14,14!8,5Dr._Pepper14,14!
  if ($1 == dietcoke) return 1,14_0,4_Diet_Coke_1,14_
  if ($1 == slice) return  14,14!1,140,3Slice14,14!
}

Favorite Script -

Smilies	Message:
	Comments:

X-Static Codes

Search

Scripting

Links

Sponsors

Stats

View

pops v4