[Cisyouc]

You know what.. im bored, so...

Here is something I just created. It requires the NPC to have 'qglobal' set to '1' in `npc_types` and it requires you to change the item IDs. You can easily add more and you can easily increase and decreate the chances.

This code has not been tested.

#1000 is used for the coin to play
#1001-1011 Rewards
#1021 Reward Ticket
#1022 Lesser Prize
#######################
#perlQuest by Cisyouc
#Please do not remove this header
#EQEMulator.net
#NPCID: 000000
#Usage: Casino
#Quest: King's Court
#######################

sub EVENT_SAY
{
if($text=~/hail/i)
  {
  quest::say("Hail, $name! To play the King`s Court, hand me a token to begin!");
  }
}
sub EVENT_ITEM
  {
  if($itemcount{1000} == 1)
    {
    $playing = (int(rand(80));
    if($playing == 80)
      {
      quest::say("Congrats! Here is a reward ticket! Hand this to me when you want your reward!");
      quest::summonitem(1021);
      }
    if($playing <= 20)
      {
      quest::say("You've won a lesser prize!");
      quest::summonitem(1022);
      }
      else
      {
      quest::say("Sorry! Not a winner! Please play again.")l
      }
    }
if($itemcount{1021} == 1)
  {
  if($casinoprize == 0)
    {
    quest::setglobal("casinoprize","1001","1","C999999");
    quest::say("Congrats! A reward ticket! Here is your reward, you lucky one!");
    quest::summonitem($casinoprize);
    quest::setglobal("casinoprize","1002","1","C999999");
    }
  if($casinoprize == 1002)
    {
    quest::say("Congrats! A reward ticket! Here is your reward, you lucky one!");
    quest::summonitem($casinoprize);
    quest::setglobal("casinoprize","1003","1","C999999");
    }
  if($casinoprize == 1003)
    {
    quest::say("Congrats! A reward ticket! Here is your reward, you lucky one!");
    quest::summonitem($casinoprize);
    quest::setglobal("casinoprize","1004","1","C999999");
    }
  if($casinoprize == 1004)
    {
    quest::say("Congrats! A reward ticket! Here is your reward, you lucky one!");
    quest::summonitem($casinoprize);
    quest::setglobal("casinoprize","1005","1","C999999");
    }
  if($casinoprize == 1005)
    {
    quest::say("Congrats! A reward ticket! Here is your reward, you lucky one!");
    quest::summonitem($casinoprize);
    quest::setglobal("casinoprize","1006","1","C999999");
    }
  if($casinoprize == 1006)
    {
    quest::say("Congrats! A reward ticket! Here is your reward, you lucky one!");
    quest::summonitem($casinoprize);
    quest::setglobal("casinoprize","1007","1","C999999");
    }
  if($casinoprize == 1007)
    {
    quest::say("Congrats! A reward ticket! Here is your reward, you lucky one!");
    quest::summonitem($casinoprize);
    quest::setglobal("casinoprize","1008","1","C999999");
    }
  if($casinoprize == 1008)
    {
    quest::say("Congrats! A reward ticket! Here is your reward, you lucky one!");
    quest::summonitem($casinoprize);
    quest::setglobal("casinoprize","1009","1","C999999");
    }
  if($casinoprize == 1009)
    {
    quest::say("Congrats! A reward ticket! Here is your reward, you lucky one!");
    quest::summonitem($casinoprize);
    quest::setglobal("casinoprize","1010","1","C999999");
    }
  if($casinoprize == 1010)
    {
    quest::say("Congrats! A reward ticket! Here is your reward, you lucky one!");
    quest::summonitem($casinoprize);
    quest::setglobal("casinoprize","1011","1","C999999");
    }
  if($casinoprize == 1011)
    {
    quest::say("Congrats! A reward ticket! Here is your reward, you lucky one!");
    quest::summonitem($casinoprize);
    quest::setglobal("casinoprize","0","1","C999999");
    }
  }
}