on *:load:{ 
  echo -a THANKYOU FOR DOWNLOADING POKIES
  echo -a  ******by ROO*****
  echo -a ON/OFF SWITCH IN MENUBAR POPUP
}
menu menubar {
  -
  Pokies Gaming System  
  .-
  .pokies 	[- $group(#pokies) -]
  ..on:{ enable #pokies | msg $active $black(pokies has been activated) | msg $active $green(for help type $read textfiles/prefix.txt $+ pokiehelp) }
  ..off:{ disable #pokies | msg $active $black(pokies has been deactivated) }
  ..-
  ..room 	[ $+ $read(pokies/room.txt,1) $+ ]
  ...set room:{ 
    write -c pokies/room.txt 
    write pokies/room.txt $right($active,-2) 
    echo -a 0,4** pokies room set to $active ** 
  }
}

#pokies off
on *:TEXT:*:#:{
  if (* $+ $read scores.ini $+ register* iswm $1) {
    if (!$read(scores.ini,w,* $+ $nick $+ *)) {
      stx_addpoints $nick 100
      privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f You have now registered to play pokies  
      echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $me 4: 14You have now registered to play pokies  

      privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f You start with 100 points  
      echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)   $me 4: 14 You start with 100 points  
    }
    else {
      set %pokiepoints $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) 
      privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f You have already Registered for pokies and have %pokiepoints points available 
      echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14You have already Registered for pokies and have %pokiepoints points available  
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ restartme* iswm $1) {
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f Your Pokie account of $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points has been cleared 
    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14Your Pokie account of $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points has been cleared 
    /write -ds $+ $nick scores.ini
    stx_addpoints $nick 50
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f now restarted with 50 points 
    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $me 4: 14now restarted with 50 points 
  }
  if (* $+ $read textfiles/prefix.txt $+ pokiehelp* iswm $1) {
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  type $read textfiles/prefix.txt $+ register to begin a pokies account 
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  type $read textfiles/prefix.txt $+ pokies to play 
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  type $read textfiles/prefix.txt $+ ppoints to find out how many points you have in your account 
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  type $read textfiles/prefix.txt $+ ppoints name to find out how many points someone else has 
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  type $read textfiles/prefix.txt $+ restartme to clear your account and re start with 50 points 
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  type $read textfiles/prefix.txt $+ jackpot to find out current points in the jackpot 
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  type $read textfiles/prefix.txt $+ mug to attempt to steal points 
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  various items can be brought with your winnings  
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  type $read textfiles/prefix.txt $+ shop to see our selection 


    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14type $read textfiles/prefix.txt $+ register to begin a pokies account 
    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14type $read textfiles/prefix.txt $+ pokies to play 
    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14type $read textfiles/prefix.txt $+ ppoints to find out how many points you have in your account 
    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14type $read textfiles/prefix.txt $+ ppoints name to find out how many points someone else has 
    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14type $read textfiles/prefix.txt $+ restartme to clear your account and re start with 50 points 
    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14type $read textfiles/prefix.txt $+ jackpot to find out current points in the jackpot 
    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14type $read textfiles/prefix.txt $+ mug to attempt to steal points 
    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14various items can be brought with your winnings  
    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14type $read textfiles/prefix.txt $+ shop to see our selection


  }
  if (* $+ $read textfiles/prefix.txt $+ shop* iswm $1) {
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  $read textfiles/prefix.txt $+ coffee cost 50 points --- $read textfiles/prefix.txt $+ beer cost 80 points  
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  $read textfiles/prefix.txt $+ flowers cost 150 points --- $read textfiles/prefix.txt $+ movie cost 200 points 
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  $read textfiles/prefix.txt $+ camera cost 200 points --- $read textfiles/prefix.txt $+ pizza cost 100 points 
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  $read textfiles/prefix.txt $+ holiday cost 500 points --- $read textfiles/prefix.txt $+ car cost 800 points 
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  $read textfiles/prefix.txt $+ botox cost 1500 points --- $read textfiles/prefix.txt $+ facelift cost 2000 points 
    privmsg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  $read textfiles/prefix.txt $+ hammer cost 5000 points --- $read textfiles/prefix.txt $+ lapdance cost 300 points 

    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14 $+ $read textfiles/prefix.txt $+ coffee cost 50 points --- $read textfiles/prefix.txt $+ beer cost 80 points  
    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14 $+ $read textfiles/prefix.txt $+ flowers cost 150 points --- $read textfiles/prefix.txt $+ movie cost 200 points 
    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14 $+ $read textfiles/prefix.txt $+ camera cost 200 points --- $read textfiles/prefix.txt $+ pizza cost 100 points 
    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14 $+ $read textfiles/prefix.txt $+ holiday cost 500 points --- $read textfiles/prefix.txt $+ car cost 800 points 
    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14 $+ $read textfiles/prefix.txt $+ botox cost 1500 points --- $read textfiles/prefix.txt $+ facelift cost 2000 points 
    echo $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $me 4: 14 $+ $read textfiles/prefix.txt $+ hammer cost 5000 points --- $read textfiles/prefix.txt $+ lapdance cost 300 points
  }
  if (* $+ $read textfiles/prefix.txt $+ ppoints* iswm $1) {
    if ($2 == $null) {
      if (!$read(scores.ini,w,* $+ $nick $+ *)) {
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  you have not registered to play pokies $nick 
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  type $read textfiles/prefix.txt $+ register 
      }
      else {
        set %pokiepoints $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) 
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  You currently have : %pokiepoints points in your pokie account 
      }
    }
    if ($2 != $null) {
      if (!$read(scores.ini,w,* $+ $2 $+ *)) {
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  that person has not registered to play pokies 
      }
      else {
        set %pokiepoints $gettok($read(scores.ini, w, * $+ $2 $+ *),2,32) 
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  $2 currently has : %pokiepoints points in their pokie account 
      }
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ jackpot* iswm $1) {
    msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f jackpot currently stands at %jackpot points 
  }
  if (* $+ $read textfiles/prefix.txt $+ pokies* iswm $1) {
    if (!%msg.flood. [ $+ [ $nick ] ]) {
      if (!$read(scores.ini,w,* $+ $nick $+ *)) {
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  you have not registered to play pokies $nick 
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  type $read textfiles/prefix.txt $+ register 
      }
      else {
        set %pokiepre $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32)
        /write -ds $+ $nick scores.ini 
        set %pokiespin $read(pokies/pokies.txt)
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  $gettok(%pokiespin,1,32) $gettok(%pokiespin,7-,32) $gettok(%pokiespin,2,32) $gettok(%pokiespin,3,32) $gettok(%pokiespin,4,32) $gettok(%pokiespin,5,32) 
        stx_addpoints $nick $calc(%pokiepre $gettok(%pokiespin,6,32) $gettok(%pokiespin,4,32))
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  $nick now has $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points!! 
        if ($gettok(%pokiespin,6,32) == -) { set %jackpot $calc(%jackpot + $gettok(%pokiespin,4,32)) }
        if ($gettok(%pokiespin,7,32) == JACKPOT) { set %jackpot $r(111,555) | msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f  jackpot reset to %jackpot points  }
      }
      set -u3 %msg.flood. [ $+ [ $nick ] ] $true
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ mug* iswm $1) {
    set %mugpoints $r(1,50) | set %muggee $nick(#,$rand(1,$nick(#,0))) | set %mugaction $r(a,c) | set %mugger $nick
    if (%mugaction == a) || (%mugaction == b) {
      set %mugpre1 $gettok($read(scores.ini, w, * $+ %mugger $+ *),2,32)
      /write -ds $+ %mugger scores.ini
      write scores.ini %mugger $calc(%mugpre1 + %mugpoints)
      set %mugpre2 $gettok($read(scores.ini, w, * $+ %muggee $+ *),2,32)
      /write -ds $+ %muggee scores.ini
      write scores.ini %muggee $calc(%mugpre2 - %mugpoints)
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  %mugger runs up to %muggee and mugs them for %mugpoints points:P.  you (6):O 
    }
    if (%mugaction == c) {
      set %mugpre1 $gettok($read(scores.ini, w, * $+ %mugger $+ *),2,32)
      /write -ds $+ %mugger scores.ini
      write scores.ini %mugger $calc(%mugpre1 - %mugpoints)
      set %mugpre2 $gettok($read(scores.ini, w, * $+ %muggee $+ *),2,32)
      /write -ds $+ %muggee scores.ini
      write scores.ini %muggee $calc(%mugpre2 + %mugpoints)
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  %mugger runs up to %muggee and attempts to mug them:O but %muggee surprises them and turns a super soaker onto %mugger !!! %muggee takes %mugpoints points of the attempted mugger:P 
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ flowers* iswm $1) {
    set %pokiepre $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32)
    if (%pokiepre >= 150) { 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  $nick buys 12 red roses for 150 points 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  (F) (F) (F) (F) (F) (F) (F) (F) (F) (F) (F) (F) 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  make sure you give them to someone special 
      /write -ds $+ $nick scores.ini
      stx_addpoints $nick $calc(%pokiepre - 150)
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  you now have $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points remaining.. thankyou for your business 
    }
    else {
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  :| you dont have enough points, flowers cost 150 points .. try again later  
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ coffee* iswm $1) {
    set %pokiepre $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32)
    if (%pokiepre >= 50) { 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  $nick buys a cup of coffee for 50 points 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  (c) 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  enjoy!! 
      /write -ds $+ $nick scores.ini
      stx_addpoints $nick $calc(%pokiepre - 50)
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  you now have $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points remaining.. thankyou for your business 
    }
    else {
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  :| you dont have enough points, coffee cost 50 points .. try again later  
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ beer* iswm $1) {
    set %pokiepre $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32)
    if (%pokiepre >= 80) { 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  $nick buys a mug of beer for 80 points 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  (b) 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  enjoy!! 
      /write -ds $+ $nick scores.ini
      stx_addpoints $nick $calc(%pokiepre - 80)
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  you now have $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points remaining.. thankyou for your business 
    }
    else {
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  :| you dont have enough points, beer cost 80 points .. try again later  
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ holiday* iswm $1) {
    set %pokiepre $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32)
    if (%pokiepre >= 500) { 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  $nick buys a holiday in hawaii for 500 points 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  (ap) (ip) 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  whoohoooo have a blast 
      /write -ds $+ $nick scores.ini
      stx_addpoints $nick $calc(%pokiepre - 500)
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  you now have $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points remaining.. thankyou for your business 
    }
    else {
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  :| you dont have enough points, a holiday cost 500 points .. try again later  
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ movie* iswm $1) {
    set %pokiepre $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32)
    if (%pokiepre >= 200) { 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  $nick buys a movie for 200 points 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  (~) 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  dont forget some popcorn and a snuggle partner 
      /write -ds $+ $nick scores.ini
      stx_addpoints $nick $calc(%pokiepre - 200)
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  you now have $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points remaining.. thankyou for your business 
    }
    else {
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  :| you dont have enough points, a movie cost 200 points .. try again later  
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ pizza* iswm $1) {
    set %pokiepre $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32)
    if (%pokiepre >= 100) { 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  $nick buys a pizza for 100 points 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  (pi) 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  mmmmm your choice of toppings 
      /write -ds $+ $nick scores.ini
      stx_addpoints $nick $calc(%pokiepre - 100)
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  you now have $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points remaining.. thankyou for your business 
    }
    else {
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  :| you dont have enough points, a pizza cost 100 points .. try again later  
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ camera* iswm $1) {
    set %pokiepre $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32)
    if (%pokiepre >= 200) { 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  $nick buys a camera for 200 points 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  (P) click 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  whoohoooo now we want some nekkid pics :P 
      /write -ds $+ $nick scores.ini
      stx_addpoints $nick $calc(%pokiepre - 200)
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  you now have $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points remaining.. thankyou for your business 
    }
    else {
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  :| you dont have enough points, a camera cost 200 points .. try again later  
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ car* iswm $1) {
    set %pokiepre $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32)
    if (%pokiepre >= 800) { 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  $nick buys a shiny new car for 800 points 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  (au) 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  very nice  vroooom 
      /write -ds $+ $nick scores.ini
      stx_addpoints $nick $calc(%pokiepre - 800)
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  you now have $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points remaining.. thankyou for your business 
    }
    else {
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  :| you dont have enough points, a car cost 800 points .. try again later  
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ hammer* iswm $1) {
    set %pokiepre $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32)
    if (%pokiepre >= 5000) { 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  $nick buys a brown hammer for 5000 points 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  (y) 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  dont abuse it.... hehehe 
      /write -ds $+ $nick scores.ini
      stx_addpoints $nick $calc(%pokiepre - 5000)
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  you now have $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points remaining.. thankyou for your business 
      mode $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) +o $nick
      .timerpokiehammer 1 5  mode $!chr(37) $!+ $right($chan,-1) -o $nick 
      .timerpokiehammer2 1 5  msg $!chr(37) $!+ $right($chan,-1)  $f oops my finger slipped 
    }
    else {
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  :| you dont have enough points, a hammer cost 5000 points .. try again later  
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ facelift* iswm $1) {
    set %pokiepre $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32)
    if (%pokiepre >= 2000) { 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  $nick gets a facelift for 2000 points 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  8o| ooo they stretched you a bit tight 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  that should take five years off your appearance 
      /write -ds $+ $nick scores.ini
      stx_addpoints $nick $calc(%pokiepre - 2000)
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) $f   you now have $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points remaining.. thankyou for your business 
    }
    else {
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  :| you dont have enough points, a facelift cost 2000 points .. try again later  
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ botox* iswm $1) {
    set %pokiepre $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32)
    if (%pokiepre >= 1500) { 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  $nick gets botox injections for 1500 points 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  :| ooo not much expression left there 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  that should take two years off your appearance 
      /write -ds $+ $nick scores.ini
      stx_addpoints $nick $calc(%pokiepre - 1500)
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  you now have $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points remaining.. thankyou for your business 
    }
    else {
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  :| you dont have enough points, botox cost 1500 points .. try again later  
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ date* iswm $1) {
    set %pokiepre $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32)
    if (%pokiepre < 2000) { msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  :| you dont have enough points, a date cost 2000 points .. try again later  | return }
    if (%pokiepre >= 2000) {
      if (!$2) {
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  $nick buys a two hour date for 2000 points 
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  (x) 
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  psttt... have fun:P 
        /write -ds $+ $nick scores.ini
        stx_addpoints $nick $calc(%pokiepre - 2000)
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  you now have $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points remaining.. treat her nice.. or else;) 
      }

      else {
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)   $f $nick buys a two hour date with $2 for 2000 points 
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  (x) 
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)   $f psttt... have fun:P 
        /write -ds $+ $nick scores.ini
        stx_addpoints $nick $calc(%pokiepre - 2000)
        msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  you now have $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points remaining.. treat her nice.. or else;) 
      }
    }
  }
  if (* $+ $read textfiles/prefix.txt $+ lapdance* iswm $1) {
    set %pokiepre $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32)
    if (%pokiepre >= 300) { 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  $nick buys a sexy lapdance for 300 points 
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f S eTahoma;0 ( . )( . )  | msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) S eTahoma;0 . )   ..   (  | msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1) S eTahoma;0 (...v...)
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  shakes my money makers:P 
      /write -ds $+ $nick scores.ini
      stx_addpoints $nick $calc(%pokiepre - 300)
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  you now have $gettok($read(scores.ini, w, * $+ $nick $+ *),2,32) points remaining.. thankyou for your patronage at coyote ugly bar and grill 
    }
    else {
      msg $chr(37) $+ $chr(35) $+ $read(pokies/room.txt,1)  $f  :| you dont have enough points, a lapdance cost 300 points .. try again later  
    }
  }
}
#pokies end

menu nicklist {
  Pokies System Points
  .add points to selected:{
    set %addpoints $$?="how many points to add to $$1"
    set %pokiepre $gettok($read(scores.ini, w, * $+ $$1 $+ *),2,32)
    /write -ds $+ $$1 scores.ini
    write scores.ini $$1 $calc(%pokiepre + %addpoints )
    /say  $f takes pity on $$1 and gives them %addpoints points
    /say  $f $$1 now has $gettok($read(scores.ini, w, * $+ $$1 $+ *),2,32) points!!

  }
  .remove points from selected:{
    set %rempoints $$?="how many points to take from $$1"
    set %pokiepre $gettok($read(scores.ini, w, * $+ $$1 $+ *),2,32)
    /write -ds $+ $$1 scores.ini
    write scores.ini $$1 $calc(%pokiepre - %rempoints)
    /say  $f the wrath of $mnick falls on $$1 and gets %rempoints points taken away
    /say  $f $$1 now has $gettok($read(scores.ini, w, * $+ $$1 $+ *),2,32) points!!
  }
}
