A snippet made by me and EvilMonkey
a while back

its basically a bootlegged Onzichtbaar cash bot
on the swiftirc network

The alch portion of this script was inspired by the alch script i found here on Hawkee.

http://www.hawkee.com/snippet/5991/
^found there
i tweaked it a bit

only one item works in the store
which iss... [ 2 ] Lucky Charm

(05:17:10) <@GuitarMasterx7> .cash
(05:17:11) GuitarMasterx7 pilfers a nearby corpse and gains 1,040 GP, while using Lucky Charm to gain an additional 30%. (Total GP Gained: 8,999,850,943)
(05:17:11) -Kindfer- You may use this again in 1min 42secs.

* Added [!.@]Rob to the cash portion
* Added [!.]Job
* Added [!.@]Timers

```mirc
on $*:text:/^[!.]alch$/Si:#:{
  if %AlchTimer. [ $+ [ $nick ] ] {
    notice $nick You must wait $duration( %AlchTimer. [ $+ [ $nick ] ] ) before you can do that again.
    halt
  }
  else {
    var %Bonus = $gettok(%Shop2,1,44)
    inc [ %Alch. [ $+ [ $nick ] ] ]
    set -z [ %AlchTimer. [ $+ [ $nick ] ] ] $r(60,300)
    notice $nick You may use this again in $duration( %AlchTimer. [ $+ [ $nick ] ] ) $+ .
    if %Bonus isin %Items [ $+ [ $nick ] ] {
      var %AlchValue = $calc($r(1,10000) * 1.3)
      inc [ %GP. [ $+ [ $nick ] ] ] %AlchValue
      notice $nick $C1 $+ $nick $C2 $+ casts high level alchemy on $+ $C1 $nick(#,$r(1,$nick(#,0))) $C2 $+ and gains $+ $C1 $bytes(%AlchValue,b) $C2 $+ GP. $&
        (Total GP Gained: $+ $C1 $bytes([ %GP. [ $+ [ $nick ] ] ],b) $+ $C2 $+ ) (People Alched: $+ $C1 [ %Alch. [ $+ [ $nick ] ] ] $+ $C2 $+ )
    }
    else {
      var %AlchValue = $r(1,10000)
      inc [ %GP. [ $+ [ $nick ] ] ] %AlchValue
      notice $nick $C1 $+ $nick $C2 $+ casts high level alchemy on $+ $C1 $nick(#,$r(1,$nick(#,0))) $C2 $+ and gains $+ $C1 $bytes(%AlchValue,b) $C2 $+ GP. $&
        (Total GP Gained: $+ $C1 $bytes([ %GP. [ $+ [ $nick ] ] ],b) $+ $C2 $+ ) (People Alched: $+ $C1 [ %Alch. [ $+ [ $nick ] ] ] $+ $C2 $+ )
    }
  }
}

On $*:Text:/^(\`|.|!|@)timers$/Si:#: {
$iif(@* iswm $1,msg #,notice $nick) $C1 $+ Timers for $C2 $+ CashScript $C1 $+ are: $C2 $+ [!.]Cash $C1 $+ : [ %CashTimer. [ $+ [ $nick ] ] ] %secs  $C2 $+ [!.]Job $C1 $+ : [ %JobTimer. [ $+ [ $nick ] ] ] %secs $C2 $+ [!.]Rob $C1 $+ : [ %RobTimer. [ $+ [ $nick ] ] ] %secs }

on $*:text:/^[!.]rob$/Si:#:{
  if %RobTimer. [ $+ [ $nick ] ] {
    notice $nick You must wait $duration( %RobTimer. [ $+ [ $nick ] ] ) before you can do that again.
    halt
  }
  else {
    var %Bonus = $gettok(%Shop2,1,44)
    if %Bonus isin %Items. [ $+ [ $nick ] ] {
      inc [ %GP. [ $+ [ $nick ] ] ] %CashValue
      var %CashValue = $calc($r(100,10000) * 1.3)
      msg # $C1 $+ $nick $C2 $+ sneaks up behind a random person stealing their monies, and gains $+ $C1 $bytes(%CashValue,b) $C2 $+ GP, $&
        while using $+ $C1 %Bonus $C2 $+ to gain an additional 30%. $&
        (Total GP Gained: $+ $C1 $bytes([ %GP. [ $+ [ $nick ] ] ],b) $+ $C2 $+ )
    }
    else {
      var %CashValue = $r(100,10000)
      inc [ %GP. [ $+ [ $nick ] ] ] %CashValue
      msg # $C1 $+ $nick $C2 $+ Sneaks up behind a random person stealing their monies, and gains $+ $C1 $bytes(%CashValue,b) $C2 $+ GP. $&
        (Total GP Gained: $+ $C1 $bytes([ %GP. [ $+ [ $nick ] ] ],b) $+ $C2 $+ )
    }
    set -z [ %RobTimer. [ $+ [ $nick ] ] ] $r(60,800)
    notice $nick You may use this again in $duration( %RobTimer. [ $+ [ $nick ] ] ) $+ .
  }
}

on $*:text:/^[!.]job$/Si:#:{
  if %JobTimer. [ $+ [ $nick ] ] {
    notice $nick You must wait $duration( %JobTimer. [ $+ [ $nick ] ] ) before you can do that again.
    halt
  }
  else {
    var %Bonus = $gettok(%Shop2,1,44)
    if %Bonus isin %Items. [ $+ [ $nick ] ] {
      inc [ %GP. [ $+ [ $nick ] ] ] %CashValue
      var %CashValue = $calc($r(100,10000) * 1.3)
      msg # $C1 $+ $nick $C2 $+ $JobEvent and gains $+ $C1 $bytes(%CashValue,b) $C2 $+ GP, $&
        while using $+ $C1 %Bonus $C2 $+ to gain an additional 30%. $&
        (Total GP Gained: $+ $C1 $bytes([ %GP. [ $+ [ $nick ] ] ],b) $+ $C2 $+ )
    }
    else {
      var %CashValue = $r(100,10000)
      inc [ %GP. [ $+ [ $nick ] ] ] %CashValue
      msg # $C1 $+ $nick $C2 $+ $JobEvent and gains $+ $C1 $bytes(%CashValue,b) $C2 $+ GP. $&
        (Total GP Gained: $+ $C1 $bytes([ %GP. [ $+ [ $nick ] ] ],b) $+ $C2 $+ )
    }
    set -z [ %JobTimer. [ $+ [ $nick ] ] ] $r(800,3600)
    notice $nick You may use this again in $duration( %JobTimer. [ $+ [ $nick ] ] ) $+ .
  }
}

on $*:text:/^[!.]cash$/Si:#:{
  if %CashTimer. [ $+ [ $nick ] ] {
    notice $nick You must wait $duration( %CashTimer. [ $+ [ $nick ] ] ) before you can do that again.
    halt
  }
  else {
    var %Bonus = $gettok(%Shop2,1,44)
    if %Bonus isin %Items. [ $+ [ $nick ] ] {
      inc [ %GP. [ $+ [ $nick ] ] ] %CashValue
      var %CashValue = $calc($r(100,5000) * 1.3)
      msg # $C1 $+ $nick $C2 $+ $CashEvent and gains $+ $C1 $bytes(%CashValue,b) $C2 $+ GP, $&
        while using $+ $C1 %Bonus $C2 $+ to gain an additional 30%. $&
        (Total GP Gained: $+ $C1 $bytes([ %GP. [ $+ [ $nick ] ] ],b) $+ $C2 $+ )
    }
    else {
      var %CashValue = $r(100,5000)
      inc [ %GP. [ $+ [ $nick ] ] ] %CashValue
      msg # $C1 $+ $nick $C2 $+ $CashEvent and gains $+ $C1 $bytes(%CashValue,b) $C2 $+ GP. $&
        (Total GP Gained: $+ $C1 $bytes([ %GP. [ $+ [ $nick ] ] ],b) $+ $C2 $+ )
    }
    set -z [ %CashTimer. [ $+ [ $nick ] ] ] $r(60,300)
    notice $nick You may use this again in $duration( %CashTimer. [ $+ [ $nick ] ] ) $+ .
  }
}

alias -l CashEvent {
  var %x = $r(1,9)
  if %x = 1 { return robs a mother-to-be | halt }
  if %x = 2 { return kicks $C1 $+ $nick(#,$r(1,$nick(#,0))) $C2 $+ in the shin and steals their wallet | halt }
  if %x = 3 { return pilfers a nearby corpse | halt }
  if %x = 4 { return smacks $C1 $+ $nick(#,$r(1,$nick(#,0))) $C2 $+ with a giant purple Rock | halt }
  if %x = 5 { return KO's $C1 $+ $nick(#,$r(1,$nick(#,0))) $C2 $+ with a kamehameha | halt }
  if %x = 6 { return jumps a random person stealing their monies | halt }
  if %x = 7 { return stares the Devil in the eyes, and kicks him in the nuts, stealing his wallet | halt }
  if %x = 8 { return gets on his/her knees an starts praying. a Bag of money then falls | halt }
  if %x = 9 { return lighty Huggles $nick(#,$r(1,$nick(#,0))) and steals their wallet. | halt }
}

alias -l JobEvent {
  var %x = $r(1,9)
  if %x = 1 { return Goes to Work | halt }
  if %x = 2 { return Walks into $C1 $+ $nick(#,$r(1,$nick(#,0))) $+ 's Office finding monies on his/her desk  | halt }
  if %x = 3 { return Slams his/her office door knocking over a random piggy bank | halt }
  if %x = 4 { return smacks $C1 $+ $nick(#,$r(1,$nick(#,0))) $C2 $+ with a giant purple Rock | halt }
  if %x = 5 { return KO's $C1 $+ $nick(#,$r(1,$nick(#,0))) $C2 $+ with a kamehameha, for drinking there Coffee | halt }
  if %x = 6 { return Falls and breaks their ankle, and sues the company | halt }
  if %x = 7 { return catches a Co-Worker watching pr0n and snitches them out | halt }
  if %x = 8 { return wakes up with a raise in there hand (lolwut?) | halt }
  if %x = 9 { return lighty Huggles $nick(#,$r(1,$nick(#,0))) and steals their wallet. | halt }
}

on $*:text:/^[!.]shop$/Si:#:{
  set %Shop1 Chocolate,50000
  set %Shop2 Lucky Charm,100000
  set %Shop3 Spade,250000
  set %Shop4 Puppy,500000
  set %Shop5 Diamond,1000000
  notice $nick This is what I have for sale:
  notice $nick $&
    [[ 1 ]] $gettok(%Shop1,1,44) ( $bytes($gettok(%Shop1,2,44),b) GP ) $&
    [[ 2 ]] $gettok(%Shop2,1,44) ( $bytes($gettok(%Shop2,2,44),b) GP ) $&
    [[ 3 ]] $gettok(%Shop3,1,44) ( $bytes($gettok(%Shop3,2,44),b) GP ) $&
    [[ 4 ]] $gettok(%Shop4,1,44) ( $bytes($gettok(%Shop4,2,44),b) GP ) $&
    [[ 5 ]] $gettok(%Shop5,1,44) ( $bytes($gettok(%Shop5,2,44),b) GP )
}

on $*:text:/^[!.]buy/Si:#:{
  if $regex($1,/^[.!]buy$/Si) {
    if $2 > 5 || $2 < 1 || $2 !isnum { notice $nick Enter a the number for the item: !buy 1 | halt }
    var %Shop = %Shop [ $+ [ $2 ] ]
    var %GP = %GP. [ $+ [ $nick ] ]
    if %GP < $gettok(%Shop,2,44) {
      notice $nick You do not have enough GP for that.
      halt
    }
    else {
      dec %GP. [ $+ [ $nick ] ] $gettok(%Shop,2,44)
      if $gettok(%Shop,1,44) !isin %Items. [ $+ [ $nick ] ] {
        set %Items. [ $+ [ $nick ] ] $instok(%Items. [ $+ [ $nick ] ],$gettok(%Shop,1,44),1,46)
      }
      else {
        notice $nick You already have $gettok(%Shop,1,44) $+ .
        halt
        ;var %x = $gettok(,1,32)
        ;set %Items. [ $+ [ $nick ] ] $instok(%Items. [ $+ [ $nick ] ],$gettok(%Shop,1,44),$calc($numtok(%Items,46)+1),46)
      }
      msg # $C1 $+ $nick $C2 $+ spends $C1 $bytes($gettok(%Shop,2,44),b) $C2 $+ on $C1 $+ $gettok(%Shop,1,44) $C2 $+ .
      notice $nick You now have $bytes( %GP. [ $+ [ $nick ] ] GP,b)
    }
  }
}
on $*:text:/^[!.]gp/Si:#:{
  if !$2 {
    notice $nick You have $bytes( %GP. [ $+ [ $nick ] ],b) GP
  }
  elseif %GP. [ $+ [ $2 ] ] {
    notice $nick [[ $2 ]] $+ : $bytes( %GP. [ $+ [ $2 ] ],b) GP
  }
  else notice $nick That player is not in my system.
}

on $*:text:/^[!.]items$/Si:#:{
  var %ItemsList = %Items. [ $+ [ $nick ] ]
  var %ItemsSort = $sorttok(%ItemsList,46,a)
  var %Loop = 1
  while %Loop < $gettok(%ItemsList,0,46) {
    var %Items $instok(%Items,$wildtok(%ItemsSort,$gettok(%ItemsSort,%Loop,46),0,46),%Loop,46)
    inc %Loop
  }
  notice $nick Your Items: $replace(%ItemsSort,$chr(46),$+($chr(44),$chr(32)))
  ;notice $nick Debug: %Items
  unset %Items
}

on $*:TEXT:/^[!@.]color/Si:#:{
  if !$2 || !$3 || $2 !isnum 00-15 || $len($2) > 2 || $3 !isnum 0-15 || $len($3) > 2 || $2 = $3 {
    notice $nick Your colors must range from 0 to 15.
    notice $nick 0[ 00 ]1[ 01 ]2[ 02 ]3[ 03 ]4[ 04 ]5[ 05 ]6[ 06 ]7[ 07 ]$&
      8[ 08 ]9[ 09 ]10[ 10 ]11[ 11 ]12[ 12 ]13[ 13 ]14[ 14 ]15[ 15 ]
    halt
  }
  else {
    if $2 < 2 {
      set [ %AlchColor1. [ $+ [ $nick ] ] ] 0 $+ $2
      set [ %AlchColor2. [ $+ [ $nick ] ] ] $3
      msg # $+($chr(3),$2) New $+($chr(3),$3) colors.
      halt
    }
    if $3 < 2 {
      set [ %AlchColor1. [ $+ [ $nick ] ] ] $2
      set [ %AlchColor2. [ $+ [ $nick ] ] ] 0 $+ $3
      msg # $+($chr(3),$2) New $+($chr(3),$3) colors.
      halt
    }
    else {
      set [ %AlchColor1. [ $+ [ $nick ] ] ] $2
      set [ %AlchColor2. [ $+ [ $nick ] ] ] $3
      msg # $+($chr(3),$2) New $+($chr(3),$3) colors.
      halt
    }
  }
}

alias -l C1 {
  if !%AlchColor1. [ $+ [ $nick ] ] { return $chr(3) $+ 06 }
  else { return $chr(3) $+ [ %AlchColor1. [ $+ [ $nick ] ] ] }
}
alias -l C2 {
  if !%AlchColor2. [ $+ [ $nick ] ] { return $chr(3) $+ 01 }
  else { return $chr(3) $+ [ %AlchColor2. [ $+ [ $nick ] ] ] }
}

```