So, for just a laid-back chan you can have people !pd to earn money every 12 hours and then buy and sell other participants. Its not the most eloquent script but its fairly fun.

for the smells just write a smell.txt file with smells in the form of:

smells like..
reeks of...
stinks of...
has the aroma of...

etc...

ofc, #yourchan change to whatever chan you want this to work on...its pbb best to keep it on just one chan

i didn't include mine because many are specific inside jokes to certain chan members and such....

on *:text:!pd*:#yourchan: {
  if (| isin $nick) && (!$2) { notice $nick no |'s allowed in nick. | halt }
  if (!$2) {
    if ($eval($+(%,$nick,.tw),2)) { 
      if ($+(%,$nick,.hr) > $calc($asctime(hh))) { notice $nick 1,0You have already been paid today...Please wait $calc($+(%,$nick,.hr) - $asctime(hh))  ... 4 $nick 1has earned 3$ $+ $readini(sw.sys.ini, $nick, SW) 1in all. }
      if ($+(%,$nick,.hr) < $calc($asctime(hh))) { notice $nick 1,0You have already been paid today...Please wait $calc(12 - ($asctime(hh) - $+(%,$nick,.hr))) hour(s)... 4 $nick 1has earned 3$ $+ $readini(sw.sys.ini, $nick, SW) 1in all. }
      if ($+(%,$nick,.hr) == $asctime(hh)) {
        if ($+(%,$nick,.min) > $asctime(mm)) { notice $nick 1,0You have already been paid today... Please wait just $calc($+(%,$nick,.min) - $asctime(mm))) more minutes... 4 $nick 1has earned 3$ $+ $readini(sw.sys.ini, $nick, SW) 1in all. }
        if ($+(%,$nick,.min) < $asctime(mm)) { notice $nick 1,0You have already been paid today... Please wait just 12 more hours... 4 $nick 1has earned 3$ $+ $readini(sw.sys.ini, $nick, SW) 1in all. }
      }
    }
    else {
      :sw
      var %sw $calc($r(0,300) - 25)
      var %fw $readini(sw.sys.ini, $nick, SW)
      var %tw $calc(%sw + %fw)
      set -u43300 $+(%,$nick,.hr) $asctime(hh)
      set -u43300 $+(%,$nick,.min) $asctime(mm)
      set -u43200 $+(%,$nick,.tw) 1
      {
        if ($readini(sw.sys.ini,$nick,SW)) {
          if (%sw > 0) && (%tw > 0) { msg $chan 4,0 $nick 1has earned 3$ $+ %sw 1today. }
          if (%sw == 0) && (%tw > 0) { msg $chan 1,0I'm sorry, you get nothing today. }
          if (%sw < 0) && (%tw > 0) { msg $chan 3,0$ $+ $calc( 0 - %sw) 1has been deducted from your account for various holding fees. }
          if (%tw > 0) { msg $chan 4 $nick 1,0has earned 3$ $+ %tw 1in all. }
          else { goto sw }
          writeini -n sw.sys.ini $nick SW %tw  
        }
        else { 
          { writeini -n sw.sys.ini $nick SW $calc(%sw + 500) }
          { writeini -n sw.sys.ini $nick Price 200 }
          { writeini -n sw.sys.ini $nick Owner $nick }
          { writeini -n sw.sys.ini $nick Slaves $nick }
          { msg $chan 4,0 $nick 1has earned 3$ $+ $calc(%sw + 500) 1today. }
          { msg $chan 4,0 $nick 1has earned 3$ $+ $calc(%sw + 500) 1in all. }
        }
      }
    }
  }
  elseif ($readini(sw.sys.ini,$2,SW)) {
    var %fw $readini(sw.sys.ini, $2, SW)
    notice $nick 4,0 $2 1has earned 3$ $+ %fw 1in all. 
  }
  else { notice $nick 4,0 $2 1hasn't joined in the game yet. Invite him/her to play. }
}

;__________________________________________________________________________________________________________;

on *:text:!pp *:#yourchan: {
  if ($eval($+(%,$nick,.pp),2)) { notice $nick $nick $+ , the cops are on alert after that little stunt u just pulled...better play it cool for a bit... | halt }
  else {
    set %nick.sw $readini(sw.sys.ini, $nick, SW)
    set %2.sw $readini(sw.sys.ini, $2, SW)
    if (%nick.sw > 250) {
      set -u3600 $+(%,$nick,.pp) 1
      if ($readini(sw.sys.ini, $2, SW)) {
        set %pp $r(1,6)
        set %bail $calc($r(1,6) * 25)
        set %take $r(1,$round($calc(%2.sw / 5),0))
        set %counter $r(1,$round($calc(%nick.sw / 5),0))
        set %2sw $readini(sw.sys.ini, $2, SW)
        set %nsw %nick.sw 
        if (%pp < 3) { 
          { notice $nick You go up behind $2 $+ ...you clumsily reach forward when suddenly you feel the cold clasp of steel around your wrist and are taken away to the local jail. }
          { notice $nick Your bail is set at $ $+ %bail }
          writeini -n sw.sys.ini $nick SW $calc($readini(sw.sys.ini, $nick, SW) - %bail)
        }
        if (%pp > 2) && (%pp < 5) { notice $nick You go up to $2 and reach toward the innocent pocket when suddenly $nick(#blue_lover,$r(1,$nick(#blue_lover,0,a,h)),a,h) yells out to $2 $+ ... you scurry off. No harm, no foul. }
        if (%pp == 5) { 
          notice $nick You go up to $2 with a knife but oh no! $2 points a gun at you and demands $ $+ %counter to keep quiet...better than jailtime...
          writeini -n sw.sys.ini $nick SW $calc($readini(sw.sys.ini, $nick, SW) - %counter)
          writeini -n sw.sys.ini $2 SW $calc($readini(sw.sys.ini, $2, SW) + %counter)
        }
        if (%pp >= 6) { 
          notice $nick You walk past $2 on a busy street in $gettok(Tokyo.Mexico City.NYC.London.Paris.San Paolo,$r(1,6),46) and gently retrieve the wallet.
          notice $nick CONGRATULATIONS, you have just stolen $ $+ %take from $2 $+ !!!!
          writeini -n sw.sys.ini $nick SW $calc(%nsw + %take)
          writeini -n sw.sys.ini $2 SW $calc(%2sw - %take)
        }
      }
      else { notice $nick $2 has no money }
    }
    else { notice $nick you cannot afford to be caught }
  }
}

;_____________________________________________________________________________________________________________________________________________;

on *:text:!buy *:#yourchan: {
  set %buyer $nick
  set %seller $readini(sw.sys.ini, $2, owner)
  set %slave $2
  var %price $readini(sw.sys.ini, $2, price)
  var %buyersw $readini(sw.sys.ini, $nick, SW)
  var %slavesw $readini(sw.sys.ini, $2, SW)
  set %slaves $readini(sw.sys.ini, $nick, slaves)
  set %ownerslaves $readini(sw.sys.ini, %seller, slaves)
  set %sellersw $readini(sw.sys.ini, %seller, sw)
  set %bypass $replace(%ownerslaves,%slave,$null)
  if ($2 == smell) {
    if ($readini(sw.sys.ini, $nick, SW) >= 75) { 
      set %smell $r(1,28)
      msg $chan 4,0 $nick 1buys a random new smell for $ $+ 75... 
      msg $chan 4,0 $nick 1 $read(smell.txt, %smell)
      writeini -n sw.sys.ini $nick smell $read(smell.txt, %smell)
      writeini -n sw.sys.ini $nick SW $calc($readini(sw.sys.ini, $nick, SW) - 75)
      unset %smell
    }
    if ($readini(sw.sys.ini, $nick, SW) < 75) { msg $chan Sorry $nick $+ , you do not have enough money to buy a new smell }
  }
  if (%buyer == %seller) { notice $nick you already own $2 at price $ $+ $readini(sw.sys.ini, $2, price) $+ . | halt }
  if ($readini(sw.sys.ini, $2, price)) {
    if ($eval($+(%,$nick,.buy),2)) { notice $nick ANTI-SPAM: try again later. $2 costs $ $+ %price $+ . | halt }
    if (%price > %buyersw) { notice $nick you cannot afford $2 $+ . $2 costs %price $+ . | halt }
    if (%price <= %buyersw) && ($3 >= %price) && ($3 <= %buyersw)  { 
      { msg $chan 4,0 $nick $iif($2 == $nick, 1just earned freedom, 1has just bought12 $2) 1for3 $ $+ $round($3,0) $+ 1.12 $2 1is now priced at $ $+ $round($calc($3 * 1.05),0)  
        { writeini -n sw.sys.ini $2 price $round($calc($3 * 1.05),0) }
        { writeini -n sw.sys.ini $2 owner $nick }
        { writeini -n sw.sys.ini $nick slaves $2 %slaves }
        {        
          if (%buyer == %slave) { 
            { writeini -n sw.sys.ini %seller SW $round($calc( %sellersw + ( %price * .95 ) + ( ( $3 - %price ) * .3 ) ),0) }
            { writeini -n sw.sys.ini %slave SW $round($calc( %slavesw - $3 ),0) }
          }
          if (%seller == %slave) {
            { writeini -n sw.sys.ini %seller SW $round($calc( %sellersw + ( %price * .9 ) + ( ( $3 - %price ) * .4 ) ),0) }
            { writeini -n sw.sys.ini %buyer SW $round($calc( %buyersw - $3 ) ),0) }
          }
          else {
            { writeini -n sw.sys.ini %seller SW $round($calc(  %sellersw + ( %price ) + ( ( $3 - %price ) * .3 ) ),0) }
            { writeini -n sw.sys.ini %buyer SW $round($calc( %buyersw - $3 ) ),0) }
            { writeini -n sw.sys.ini %slave SW $round($calc( %slavesw + ( .4 * ($3 - %price) ) ),0) }
          }
          { $iif($readini(sw.sys.ini, %seller, slaves), writeini -n sw.sys.ini %seller slaves %bypass , writeini -n sw.sys.ini %seller slaves $2 )  }
          set -u1500 $+(%,$nick,.buy) 1
        }
      }
    }
    if (%price < %nicksw) && ($3 > %nicksw) { notice $nick You don't even have 3$ $+ $3 $+ . | halt }
    if ($3 < %price) || (!$3) { notice $nick 4,0 $2 1costs 3$ $+ %price $+ . | halt }
  }
  elseif ($2 != smell) { notice $nick $2 has to join first. Invite him\her to play. }
}

on *:text:!master*:#yourchan: { $iif($readini(sw.sys.ini, $2, owner), notice $nick $2 $+ 's master is7 $readini(sw.sys.ini, $2, owner), notice $nick $nick $+ 's master is $readini(sw.sys.ini, $nick, owner)) }

on *:text:!pwnd*:#yourchan: {
  if (!$2) && ($readini(sw.sys.ini, $nick, SW)) { $iif($readini(sw.sys.ini, $nick, slaves), notice $nick You own $replace($readini(sw.sys.ini, $nick, slaves),$nick, yourself) $+ ., notice $nick You have no slaves.)) }
  if (!$2) && (!$readini(sw.sys.ini, $nick, SW)) { notice $nick Please !pd to begin playing. }
  if ($2) && ($readini(sw.sys.ini, $2, SW)) { $iif($readini(sw.sys.ini, $2, slaves), notice $nick $2 owns $replace($readini(sw.sys.ini, $2, slaves), $2, themself) $+ ., notice $nick $2 1has no slaves.)) }
  if ($2) && (!$readini(sw.sys.ini, $2, SW)) { notice $nick $2 hasn't joined in the game yet. Invite him/her to play. }
}

;________________________________________________________________________________________________________________________;

on *:text:fix slaves:#yourchan: {
  if ($nick isin %me.list) {
    set %numplayers $ini(sw.sys.ini,0)
    set %k 1
    while (%k <= %numplayers) {
      set %tempnick $ini(sw.sys.ini,%k)
      set %tempmast $readini(sw.sys.ini, %tempnick, owner)
      {
        if ($eval($+(%,mast.,%tempmast),2)) { set $+(%,mast.,%tempmast) $eval($+(%,mast.,%tempmast),3) %tempnick }
        else { set $+(%,mast.,%tempmast) %tempnick }
      }
      /inc %k 1
    }
    {
      set %k 1
      while (%k <= %numplayers) {
        set %tempnick $ini(sw.sys.ini,%k)
        set %error $eval($+(%,mast.,%tempnick),5)
        writeini -n sw.sys.ini %tempnick slaves $eval($+(%,mast.,%tempnick),5)
        /inc %k 1
      }
    }
    /unset %mast.*
    /unset %temp*
  }
}

on *:text:!hof*:#yourchan: {
  set %n 5
  set %numplayers $ini(sw.sys.ini,0)
  set %k 1
  if ($2 isnum) || ($3 isnum) { 
    set %n $iif($2 isnum, $2, $3)
    if (%n > %numplayers) { notice $nick Only %numplayers players. | halt }
  }
  while (%k <= %numplayers) {
    set %c $ini(sw.sys.ini,%k)
    {
      set %pd.all %pd.all $readini(sw.sys.ini, %c, sw)
      set %price.all %price.all $readini(sw.sys.ini, %c, price)
      set %slaves.all %slaves.all $numtok($readini(sw.sys.ini, %c, slaves),32)
    }
    /inc %k 1
  }
  set %pd.sort $sorttok(%pd.all,32,nr)
  set %price.sort $sorttok(%price.all,32,nr)
  set %slaves.sort $sorttok(%slaves.all,32,nr)
  set %k 1
  while (%k <= %n) {
    set $+(%,%k,.pd) $gettok(%pd.sort,%k,32)
    set $+(%,%k,.price) $gettok(%price.sort,%k,32)
    set $+(%,%k,.slaves) $gettok(%slaves.sort,%k,32)
    set %j 1
    while (%j <= %numplayers) {
      set %c $ini(sw.sys.ini,%j)
      set %cpd $readini(sw.sys.ini, %c, sw)
      set %cslaves $numtok($readini(sw.sys.ini, %c, slaves),32)
      set %cprice $readini(sw.sys.ini, %c, price)
      set %x.pd $eval($+(%,%k,.pd),2)
      set %x.slaves $eval($+(%,%k,.slaves),2)
      set %x.price $eval($+(%,%k,.price),2) 
      {
        if (%cpd == %x.pd) && (%c != %numpd.1) && (%c != %numpd.2) && (%c != %numpd.3) && (%c != %numpd.4) { 
          set $+(%,numpd,.,%k) %c 
        }
        if (%cslaves == %x.slaves) && (%c != %numslaves.1) && (%c != %numslaves.2) && (%c != %numslaves.3) && (%c != %numslaves.4) { 
          set $+(%,numslaves,.,%k) %c 
        }
        if (%cprice == %x.price) && (%c != %numprice.1) && (%c != %numprice.2) && (%c != %numprice.3) && (%c != %numprice.4) { 
          set $+(%,numprice,.,%k) %c 
        }
      }
      /inc %j 1
    }
    /inc %k 1
  }
  if (!$2) || ($2 == pd) || ($2 == !pd) || ($2 isnum) { 
    msg $nick the richest people are:
    set %n 5 
    if ($2 isnum) || ($3 isnum) {
      set %n $iif($2 isnum, $2, $3)
    }
    set %k 1
    while (%k <= %n) {
      .timer 1 %k msg $nick < $+ $ord(%k) $+ > $eval($+(%,numpd.,%k),2) ( $+ $ $+ $eval($+(%,%k,.pd),2) $+ )
      /inc %k 1
    }
  }
  if ($2 == price) || ($2 == cost) { 
    msg $nick The most expensive are:
    set %n $iif($3 isnum, $3, 5)
    set %k 1
    while (%k <= %n) {
      .timer 1 %k msg $nick < $+ $ord(%k) $+ > $eval($+(%,numprice.,%k),2) ( $+ $ $+ $eval($+(%,%k,.price),2) $+ )
      /inc %k 1
    }
  }
  if ($2 == slaves) || ($2 == master) { 
    msg $nick The people with the most slaves are:
    set %n $iif($3 isnum, $3, 5)
    set %k 1
    while (%k <= %n) {
      .timer 1 %k msg $nick < $+ $ord(%k) $+ > $eval($+(%,numslaves.,%k),2) ( $+ $eval($+(%,%k,.slaves),2) $+ )
      /inc %k 1
    }
  }
  {
    /unset %num*.*
    /unset %cpd %cslaves %cprice
    /unset %*.sort
    /unset %*.all
  }
}