modified troutstealer
Posted by James{iB}
Sunday, July 25, 2004
Description:
on *:load:{
if ($rtc1 == $null) {
write -scol.text Trout.k94 col.text [^K]0,01
}
if ($rtc2 == $null) {
write -scol.info Trout.k94 col.info [^K]4,01
}
if ($read(Trout.k94,s,tp.total.money) = $null) {
write -stp.total.money Trout.k94 tp.total.money $encode(500,m)
}
if ($read(Trout.k94,s,blood.total) = $null) {
write -sblood.total Trout.k94 blood.total $encode(10,m)
}
if ($read(Trout.k94,s,tp.total) = $null) {
write -stp.total Trout.k94 tp.total $encode(0,m)
}
if ($read(Trout.k94,s,trout.on) = $null) {
write -strout.on Trout.k94 trout.on 1
}
if (($read(Trout.k94,s,fat.price) = $null) || ($decode($read(Trout.k94,s,fat.price),m) != 5)) {
write -sfat.price Trout.k94 fat.price $encode(5,m)
}
if ($read(Trout.k94,s,blood.purifier) = $null) {
write -sblood.purifier Trout.k94 blood.purifier $encode(0,m)
}
if ($read(Trout.k94,s,lives.saved) = $null) {
write -slives.saved Trout.k94 lives.saved $encode(0,m)
}
if ($read(Trout.k94,s,trout.how) = $null) {
write -strout.how Trout.k94 trout.how 0
}
if ($read(Trout.k94,s,encode) = $null) {
write -sencode Trout.k94 encode 1
}
if ($read(Trout.k94,s,encode) != 1) {
write -sencode Trout.k94 encode 1
write -stp.total.money Trout.k94 tp.total.money $encode($read(Trout.k94,s,tp.total.money),m)
write -sblood.total Trout.k94 blood.total $encode($read(Trout.k94,s,blood.total),m)
write -stp.total Trout.k94 tp.total $encode($read(Trout.k94,s,tp.total),m)
write -sfat.price Trout.k94 fat.price $encode(5,m)
write -sblood.purifier Trout.k94 blood.purifier $encode($read(Trout.k94,s,blood.purifier),m)
write -slives.saved Trout.k94 lives.saved $encode($read(Trout.k94,s,lives.saved),m)
}
.notice |Mc|K94 i have just loaded your trout script
.notice |Mc|K94`idle i have just loaded your trout script
echo -a -
echo -a $rtc1 $+ Thanks for loading $rtc2 $+ Trout Stealer $rtc1 $+ v $trout.var by [^B] $+ $rtc2 $+ K94 $+ $rtc1 $+ .
trout.help
if ($network = GameSurge) {
join #Get.Fish
}
}
alias Trout.help {
echo -a $rtc2 *** $rtc1 $+ Trout Help $rtc2 $+ ***
echo -a -
echo -a $rtc2 $+ Teh Game:
echo -a $rtc1 The aim of this game is to save as many lives as you can.
echo -a $rtc1 $+ To save lives you need to donate blood to the red cross.
echo -a $rtc1 $+ But to donate blood you need to have blood, this means
echo -a $rtc1 $+ that you need to buy some blood, but to buy blood you
echo -a $rtc1 $+ need money and this is where the trout stealing comes in.
echo -a -
echo -a $rtc1 When someone gets slapped with a trout you steal it and
echo -a $rtc1 $+ eat it gaining weight, once you are over 100KG in weight
echo -a $rtc1 $+ you can goto the liposuction doctor who will remove the
echo -a $rtc1 $+ the fat from you, you then sell this fat to a pigfarmer
echo -a $rtc1 $+ and this is how you make your money.
echo -a -
echo -a $rtc2 $+ Control / Settings
echo -a $rtc1 The game is mainly controled by the Trout Control Center.
echo -a $rtc1 $+ This can be accessed by right clicking in any channel
echo -a $rtc1 $+ window, go down to the Trout Stealer menu and select
echo -a $rtc1 $+ "Trout Control" this will open a dialog where you can
echo -a $rtc1 $+ control just about everything related to the game.
echo -a $rtc1 $+ to view infomation on the trout control say
echo -a $rtc1 $+ "/Trout.control"
echo -a -
echo -a $rtc1 Also in the "Trout Stealer" menu there is a "Settings"
echo -a $rtc1 $+ sub menu, in here are 2 options,
echo -a $rtc1 $+ the first "Trout Stealer" this turns the Trout Stealer
echo -a $rtc1 $+ script on and off. the second "Silent Mode" this
echo -a $rtc1 $+ turns the silent mode on and off, silent mode is just
echo -a $rtc1 $+ like normal but when someone slaps with a trout it
echo -a $rtc1 $+ replys with an echo, this means that only you see that
echo -a $rtc1 $+ you stealer tge trout but noone else done.
echo -a -
echo -a $rtc2 $+ #Get.Fish
echo -a $rtc1 $+ When you load the script you automaticly join #Get.Fish
echo -a $rtc1 $+ you can leave here if you want it is totaly up to you.
echo -a $rtc1 $+ #Get.Fish is just a simple channel in which my bot
echo -a $rtc1 $+ "fishbot" slaps someone every 20second. this just helps
echo -a $rtc1 $+ people to build there stats up and get more weight.
echo -a -
echo -a $rtc1 $+ That covers most things, if you need anymore help
echo -a $rtc1 $+ then just contact K94 on #McReW or #Get.Fish on the
echo -a $rtc1 $+ irc.GameSurge.net IRC network or post at the fourms
echo -a $rtc1 $+ http://Forum.K94-Scripts.com
echo -a -
}
alias Trout.control {
echo -a $rtc2 *** $rtc1 $+ Trout Control Help $rtc2 $+ ***
echo -a -
echo -a $rtc1 $+ Here i just just quickly run through the commands found
echo -a $rtc1 $+ in the trout control panel.
echo -a -
echo -a $rtc2 $+ Status Section: $rtc1 this just simpaly displays ur stats in the active channel.
echo -a $rtc2 $+ Liposuction: $rtc1 this removes your fat which you then sell to make money.
echo -a $rtc2 $+ Pizza: $rtc1 this is just some fook to help you put on weight (20KG), costs $200.
echo -a $rtc2 $+ Burger: $rtc1 this also is just put on weight (10KG), costs $100.
echo -a $rtc2 $+ Grenade: $rtc1 if you are playing the game you dont want to do this as it kills
echo -a $rtc1 people and you are trying to save them, but its fun :P, costs [^B][^B]$5000 and kills
echo -a $rtc1 shit loads of people. grate fun though :P
echo -a $rtc2 $+ Sniper: $rtc1 same as above but only costs [^B][^B]$1000 and kills less people.
echo -a $rtc2 $+ Donate blood: $rtc1 this is the aim of the game, donate blood to save lifes.
echo -a $rtc1 if you only donate 10+ pints you only have a 1 in 10 chance of saving a life.
echo -a $rtc1 if you donate 100+ you have a 1 in 5 chance of saving a life.
echo -a $rtc1 if you donate over 1000 you have a 1 in 2 chance of saving a life.
echo -a $rtc1 the maximum lifes you can save at any one time is half of the amount of blood
echo -a $rtc1 you donated, e.g. if u donated 100 pints the maximum you can save is 50. the amount
echo -a $rtc1 of lifes you save is picked at random.
echo -a $rtc2 $+ Buy Blood: $rtc1 exacly what it says, 1 pint costs [^B][^B]$10. simple eh?
echo -a $rtc2 $+ Fat Purifier: $rtc1 this costs $100000, may seem a lot but you get it back really
echo -a $rtc1 fast. this increses the price you sell your fat at by $1 at a time. you start off by
echo -a $rtc1 selling you fat at $5 but when you are selling it at like $2000+ a time you make you
echo -a $rtc1 money back really easy.
echo -a $rtc2 $+ Blood Pureifer: $rtc1 this costs [^B][^B]$10000 and just doubles the amount of blood you
echo -a $rtc1 you have for each time you have 1. saves lots of money if you have over 1000 pints.
echo -a -
echo -a $rtc1 thats just about everything coverd i think, again if you have any querys you
echo -a $rtc1 contact me on #McReW or #Get.Fish on the irc.GameSurge.net IRC network or post
echo -a $rtc1 at the fourms http://Forum.K94-Scripts.com
}
alias rtc1 {
return $read(Trout.k94,s,col.text)
}
alias rtc2 {
return $read(Trout.k94,s,col.info)
}
alias trout.ad {
return $rtc1 $+ I am using $rtc2 $+ Trout Stealer $+ $rtc1 v $trout.var by [^B] $+ $rtc2 $+ K94[^K]0,1[^B]. $trout.web
}
alias trout.var {
return 1.6
}
alias trout.web {
return $rtc1 $+ www $+ $rtc2 $+ . $+ $rtc1 $+ K94 $+ $rtc2 $+ - $+ $rtc1 $+ Scripts $+ $rtc2 $+ . $+ $rtc1 $+ com
}
ctcp *:*:?:{
if ($1 = VERSION) {
.ctcpreply $nick $1 $trout.ad
}
}
dialog trout {
title "Trout Control v 1.6 - By K94"
size -1 -1 260 150
option dbu
icon 36, 197 5 60 65, $scriptdir $+ trout.jpg, 0
box "Weight Gained:", 9, 2 2 60 15
text "", 13, 10 9 50 6
box "Money Made:", 10, 2 19 60 15
text "", 14, 10 26 50 6
box "Pints Of Blood:", 11, 2 36 60 15
text "", 15, 10 43 50 6
box "Lives Saved:", 12, 2 53 60 15
text "", 16, 10 60 50 6
box "Stats:", 2, 2 70 60 65
button "All", 3, 5 79 54 10
button "Weight Gained", 4, 5 90 54 10
button "Money Made", 5, 5 101 54 10
button "Pints Of Blood", 6, 5 112 54 10
button "Lives Saved", 7, 5 123 54 10
box "Donate Blood:", 18, 67 70 60 65
button "10 Pints", 20, 70 79 54 10
button "100 Pints", 21, 70 90 54 10
button "1000 Pints", 22, 70 101 54 10
button "Custom", 23, 70 112 54 10
edit "", 24, 70 123 54 10
box "Purifier's:", 19, 197 70 60 65
button "10 Pints", 28, 135 79 54 10
button "100 Pints", 29, 135 90 54 10
button "1000 Pints", 30, 135 101 54 10
button "Custom", 31, 135 112 54 10
edit "", 32, 135 123 54 10
box "Other Stuff:", 33, 67 2 60 66
button "Liposuction", 34, 70 10 54 10
button "Buy Pizza", 35, 70 21 54 10
button "Buy Burger", 37, 70 32 54 10
button "Fat Purifier", 39, 200 79 54 10
button "Blood Purifier", 38, 200 101 54 10
button "Ok", 1, 2 138 29 10, ok
button "Cancel", 17, 33 138 29 10, cancel
button "Advertise (Channel)", 25, 68 138 58 10
button "#Get.Fish", 26, 197 137 29 10
button "#McReW", 27, 228 137 29 10
box "Buy Blood:", 8, 132 70 60 65
edit "", 40, 200 90 54 10
edit "", 41, 200 112 54 10
button "Advertise (Global)", 42, 133 138 58 10
box "Colours:", 43, 132 2 60 66
text "Info Colour:", 44, 137 34 34 8
text "Text Colour:", 45, 137 11 32 8
edit "", 46, 135 20 54 10
edit "", 47, 135 43 54 10
button "Grenade", 48, 70 43 54 10
button "Sniper", 49, 70 54 54 10
button "Default", 50, 135 55 54 10
button "Default", 51, 200 123 54 10
}
on *:dialog:trout:init:0:{
.trout.update
.timertrout.update 0 1 .trout.update
.did -ra trout 40 1
.did -ra trout 41 1
.did -ra trout 46 $rtc1
.did -ra trout 47 $rtc2
}
on *:dialog:trout:edit:46:{
write -scol.text Trout.k94 col.text $did(46)
}
on *:dialog:trout:edit:47:{
write -scol.info Trout.k94 col.info $did(47)
}
on *:dialog:trout:sclick:48:{
if ($decode($read(Trout.k94,s,tp.total.money),m) > 5000) {
set %temp0 $rand(2,200)
set %temp1 $rand(1,600)
set %temp2 $rand(1,800)
set %temp3 $calc(%temp0 + ( $rand(1,$calc(%temp1 + %temp2))))
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - 5000),m)
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) - %temp3),m)
/describe $active $rtc1 $+ Buys a Grenade for [^B][^B]$5000 and throws it into a crowd of people. The Grenade blows %temp0 peoples heads off, %temp1 peoples arms off and %temp2 peoples legs off. The Grenade killed a total of %temp3 people. $rtc2 $+ [Money Made: $chr(36) $+ $decode($read(Trout.k94,s,tp.total.money),m) $+ ] [Lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
else {
echo -a -
echo -a $rtc1 $+ You must have $chr(36) $+ 5000
echo -a -
}
}
on *:dialog:trout:sclick:49:{
if ($decode($read(Trout.k94,s,tp.total.money),m) > 1000) {
set %temp0 $rand(2,200)
set %temp1 $rand(2,300)
set %temp2 $rand(2,500)
set %temp3 $calc(%temp0 + ( $rand(1, $calc(%temp1 + %temp2))))
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - 1000),m)
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) - %temp3),m)
/describe $active $rtc1 $+ Buys a Sniper Rifle and 1000 rounds for [^B][^B]$1000, $me then finds the highest building and sets up camp. $me aims into a crowd of people. $me shot %temp0 peoples heads off, %temp1 people in the chest and %temp2 people in the anus. $me killed a total of %temp3 people. $rtc2 $+ [Money Made: $chr(36) $+ $decode($read(Trout.k94,s,tp.total.money),m) $+ ] [Lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
else {
echo -a -
echo -a $rtc1 $+ You must have $chr(36) $+ 1000
echo -a -
}
}
on *:dialog:trout:sclick:50:{
.did -ra trout 46 [^K]0,1
.did -ra trout 47 [^K]4,1
}
on *:dialog:trout:sclick:51:{
.did -ra trout 40 1
.did -ra trout 41 1
}
on *:dialog:trout:sclick:34:{
/liposuction
}
on *:dialog:trout:sclick:35:{
if ($decode($read(Trout.k94,s,tp.total.money),m) > 199) {
write -stp.total Trout.k94 tp.total $encode($calc($decode($read(Trout.k94,s,tp.total),m) + 20),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - 200),m)
/describe $active $rtc1 $+ Buys A Pizza For $chr(36) $+ 200 And Gains 20KG $rtc2 $+ [Weight gained: $decode($read(Trout.k94,s,tp.total),m) $+ KG]
}
else {
echo -a -
echo -a $rtc1 $+ You must have $chr(36) $+ 200
echo -a -
}
}
on *:dialog:trout:sclick:37:{
if ($decode($read(Trout.k94,s,tp.total.money),m) > 99) {
write -stp.total Trout.k94 tp.total $encode($calc($decode($read(Trout.k94,s,tp.total),m) + 10),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - 100),m)
/describe $active $rtc1 $+ Buys A Burger For $chr(36) $+ 100 And Gains 10KG $rtc2 $+ [Weight gained: $decode($read(Trout.k94,s,tp.total),m) $+ KG]
}
else {
echo -a -
echo -a $rtc1 $+ You must have $chr(36) $+ 100
echo -a -
}
}
on *:dialog:trout:sclick:38:{
if ($did(41) isnum) && ($did(41) > 0) {
if ($decode($read(Trout.k94,s,blood.total),m) > 0) {
if ($decode($read(Trout.k94,s,tp.total.money),m) >= $calc($did(41)*10000)) {
write -sblood.purifier Trout.k94 blood.purifier $encode($calc($decode($read(Trout.k94,s,blood.purifier),m) + $did(41)),m)
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) *2* $did(41)),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - $calc($did(41)*10000)),m)
/describe $active $rtc1 $+ Buys $iif($did(41) == 1,A Blood Purifier,$did(41) Blood Purifiers) For $chr(36) $+ $calc($did(41)*10000) And Gets $calc($did(41)+1) Times As Much Blood, $rtc2 $+ [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
}
else {
echo -a -
echo -a $rtc1 $+ You must have $chr(36) $+ $calc($did(41)*10000)
echo -a -
}
}
else {
echo -a -
echo -a $rtc1 $+ You must buy some blood first
echo -a -
}
}
}
on *:dialog:trout:sclick:39:{
if ($did(41) isnum) && ($did(41) > 0) {
if ($decode($read(Trout.k94,s,tp.total.money),m) >= $calc($did(40)*100000)) {
write -sfat.price Trout.k94 fat.price $encode($calc($decode($read(Trout.k94,s,fat.price),m) + $did(40)),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - $calc($did(40)*100000)),m)
/describe $active $rtc1 $+ Buys $iif($did(40) == 1,A Fat Purifier,$did(40) Fat Purifiers) For $chr(36) $+ $calc($did(40)*100000) $rtc2 $+ [Fat Price: $chr(36) $+ $decode($read(Trout.k94,s,fat.price),m) $+ ]
}
else {
echo -a -
echo -a $rtc1 $+ You must have $chr(36) $+ $calc($did(40)*100000)
echo -a -
}
}
}
on *:dialog:trout:sclick:31:{
if ($did(32) > 0) {
if ($decode($read(Trout.k94,s,tp.total.money),m) > $calc($calc($did(32) * 10) - 1)) {
/describe $active $rtc1 $+ Buys $did(32) pint(s) of blood for[^B] $rtc2 $+ $calc($did(32) * 10)
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) + $did(32)),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - $calc($did(32) * 10)),m)
}
else {
echo -a -
echo -a $rtc1 $+ You Must Have $chr(36) $+ $calc($did(32) * 10)
echo -a -
}
}
}
on *:dialog:trout:sclick:28:{
if ($decode($read(Trout.k94,s,tp.total.money),m) > 9) {
/describe $active $rtc1 $+ Buys 10 pints of blood for[^B] $rtc2 $+ [^B][^B]$100
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) + 10),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - 100),m)
}
else {
echo -a -
echo -a $rtc1 $+ You Must Have $chr(36) $+ 100
echo -a -
}
}
on *:dialog:trout:sclick:29:{
if ($decode($read(Trout.k94,s,tp.total.money),m) > 999) {
/describe $active $rtc1 $+ Buys 100 pints of blood for[^B] $rtc2 $+ [^B][^B]$1000
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) + 100),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - 1000),m)
}
else {
echo -a -
echo -a $rtc1 $+ You Must Have $chr(36) $+ 1000
echo -a -
}
}
on *:dialog:trout:sclick:30:{
if ($decode($read(Trout.k94,s,tp.total.money),m) > 9999) {
/describe $active $rtc1 $+ Buys 1000 pints of blood for[^B] $rtc2 $+ [^B][^B]$10000
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) + 1000),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - 10000),m)
}
else {
echo -a -
echo -a $rtc1 $+ You Must Have $chr(36) $+ 10000
echo -a -
}
}
on *:dialog:trout:sclick:26:{
if ($network = GameSurge) {
join #Get.Fish
}
}
on *:dialog:trout:sclick:27:{
if ($network = GameSurge) {
join #McReW
}
}
alias trout.update {
.did -ra trout 13 $decode($read(Trout.k94,s,tp.total),m) $+ KG
.did -ra trout 14 $chr(36) $+ $decode($read(Trout.k94,s,tp.total.money),m)
.did -ra trout 15 $decode($read(Trout.k94,s,blood.total),m)
.did -ra trout 16 $decode($read(Trout.k94,s,lives.saved),m)
}
on *:dialog:trout:sclick:25:{
/describe $active $trout.ad
}
on *:dialog:trout:sclick:23:{
set %temp.trout $did(24)
if ($did(24) isnum) {
if ($did(24) > 0) {
if ($decode($read(Trout.k94,s,blood.total),m) > $calc(%temp.trout - 1)) {
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) - %temp.trout),m)
/describe $active $rtc1 $+ Donates %temp.trout Pint(s) Of Blood To The Red Cross. $rtc2 $+ [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
if (%temp.trout < 10) {
set %do.i.get.money $rand(1,10)
if (%do.i.get.money = 1) {
set %how.many.i.save $rand(1,1)
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) + %how.many.i.save),m)
/describe $active $rtc1 $+ Your Blood Saved %how.many.i.save Life(s) $rtc2 $+ [lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
}
else {
if (%temp.trout > 999) {
set %do.i.get.money $rand(1,2)
if (%do.i.get.money = 1) {
set %how.many.i.save $rand(1,$int($calc(%temp.trout / 2)))
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) + %how.many.i.save),m)
/describe $active $rtc1 $+ Your Blood Saved %how.many.i.save Life(s) $rtc2 $+ [lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
}
}
else {
if (%temp.trout > 99) {
set %do.i.get.money $rand(1,5)
if (%do.i.get.money = 1) {
set %how.many.i.save $rand(1,50)
write -slives.saved Trout.k94 lives.saved $calc($decode($read(Trout.k94,s,lives.saved),m) + %how.many.i.save)
/describe $active $rtc1 $+ Your Blood Saved %how.many.i.save Life(s) $rtc2 $+ [lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
}
}
else {
if (%temp.trout > 9) {
set %do.i.get.money $rand(1,10)
if (%do.i.get.money = 1) {
set %how.many.i.save $rand(1,1)
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) + %how.many.i.save),m)
/describe $active $rtc1 $+ Your Blood Saved %how.many.i.save Life(s) $rtc2 $+ [lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
}
}
}
else {
echo -a -
echo -a $rtc1 $+ You Must Have %temp.trout Pints Of Blood To Donate
echo -a -
}
}
}
}
on *:dialog:trout:sclick:22:{
if ($decode($read(Trout.k94,s,blood.total),m) > 999) {
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) - 1000),m)
/describe $active $rtc1 $+ Donates 1000 Pints Of Blood To The Red Cross. $rtc2 $+ [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
set %do.i.get.money $rand(1,2)
if (%do.i.get.money = 1) {
set %how.many.i.save $rand(1,500)
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) + %how.many.i.save),m)
/describe $active $rtc1 $+ Your Blood Saved %how.many.i.save Life(s) $rtc2 $+ [lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
}
else {
echo -a -
echo -a $rtc1 $+ You Must Have 1000 Pints Of Blood To Donate
echo -a -
}
}
on *:dialog:trout:sclick:21:{
if ($decode($read(Trout.k94,s,blood.total),m) > 99) {
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) - 100),m)
/describe $active $rtc1 $+ Donates 100 Pints Of Blood To The Red Cross. $rtc2 $+ [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
set %do.i.get.money $rand(1,2)
if (%do.i.get.money = 1) {
set %how.many.i.save $rand(1,50)
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) + %how.many.i.save),m)
/describe $active $rtc1 $+ Your Blood Saved %how.many.i.save Life(s) $rtc2 $+ [lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
}
else {
echo -a -
echo -a $rtc1 $+ You Must Have 100 Pints Of Blood To Donate
echo -a -
}
}
on *:dialog:trout:sclick:20:{
if ($decode($read(Trout.k94,s,blood.total),m) > 9) {
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) - 10),m)
/describe $active $rtc1 $+ Donates 10 Pints Of Blood To The Red Cross. $rtc2 $+ [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
set %do.i.get.money $rand(1,5)
if (%do.i.get.money = 1) {
set %how.many.i.save $rand(1,5)
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) + %how.many.i.save),m)
/describe $active $read(Trout.k94,s,col.text) $+ Your Blood Saved %how.many.i.save Life(s) $read(Trout.k94,s,col.info) $+ [lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
}
else {
echo -a -
echo -a $read(Trout.k94,s,col.text) $+ You Must Have 10 Pints Of Blood To Donate
echo -a -
}
}
on *:dialog:trout:close:0:{
.timertrout.update off
}
on *:dialog:trout:sclick:4:{
msg $active $read(Trout.k94,s,col.info) $+ [Weight gained: $decode($read(Trout.k94,s,tp.total),m) $+ KG]
}
on *:dialog:trout:sclick:5:{
msg $active $read(Trout.k94,s,col.info) $+ [Money Made: $chr(36) $+ $decode($read(Trout.k94,s,tp.total.money),m) $+ ]
}
on *:dialog:trout:sclick:6:{
msg $active $read(Trout.k94,s,col.info) $+ [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
}
on *:dialog:trout:sclick:7:{
msg $active $read(Trout.k94,s,col.info) $+ [Lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
on *:dialog:trout:sclick:3:{
msg $active $read(Trout.k94,s,col.text) $+ Trout Stealer Stats
msg $active $read(Trout.k94,s,col.info) $+ [Weight gained: $decode($read(Trout.k94,s,tp.total),m) $+ KG]
msg $active $read(Trout.k94,s,col.info) $+ [Money Made: $chr(36) $+ $decode($read(Trout.k94,s,tp.total.money),m) $+ ]
msg $active $read(Trout.k94,s,col.info) $+ [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
msg $active $read(Trout.k94,s,col.info) $+ [Blood Purifier: $decode($read(Trout.k94,s,blood.purifier),m) $+ ]
msg $active $read(Trout.k94,s,col.info) $+ [Lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
alias restart {
write -stp.total.money Trout.k94 tp.total.money $encode(500,m)
write -sblood.total Trout.k94 blood.total $encode(10,m)
write -stp.total Trout.k94 tp.total $encode(0,m)
write -strout.on Trout.k94 trout.on 1
write -sfat.price Trout.k94 fat.price $encode(500,m)
write -sblood.purifier Trout.k94 blood.purifier $encode(80000000.b)
write -slives.saved Trout.k94 lives.saved $encode(0,m)
echo -a Stats Reset
}
alias changefatprice {
write -sfat.price Trout.k94 $encode($2,m)
}
menu channel {
Trout Stealer
.Trout Control:/dialog -dm trout trout
.Settings
.. $iif($read(Trout.k94,s,trout.on) = 1,$style(1)) Trout stealer:{
if ($read(Trout.k94,s,trout.on) = 1) {
write -strout.on Trout.k94 trout.on 0
echo -a $read(Trout.k94,s,col.text) $+ Trout Stealer script has been disabled, you will know longer steal teh fishes.
}
else {
write -strout.on Trout.k94 trout.on 1
echo -a $read(Trout.k94,s,col.text) $+ Trout Stealer script has been enabled, you better tell the fishys to look out.
}
}
.. $iif($read(Trout.k94,s,trout.how) = 1,$style(1)) Silent mode:{
if ($read(Trout.k94,s,trout.how) = 1) {
write -strout.how Trout.k94 trout.how 0
echo -a $read(Trout.k94,s,col.text) $+ Trout Stealer Silent mode set $read(Trout.k94,s,col.info) $+ off
}
else {
write -strout.how Trout.k94 trout.how 1
echo -a $read(Trout.k94,s,col.text) $+ Trout Stealer Silent mode set $read(Trout.k94,s,col.info) $+ on
}
}
.Restart
..Confirm
...YES:/restart
.-
.Advertize (Channel):msg # $trout.ad
.Advertize (Global):amsg $trout.ad
}
alias Liposuction {
if ($decode($read(Trout.k94,s,tp.total),m) > 99) {
set %lypo.takeoff $rand(1,$calc( $decode($read(Trout.k94,s,tp.total),m) -10))
write -stp.total Trout.k94 tp.total $encode($calc( $decode($read(Trout.k94,s,tp.total),m) - %lypo.takeoff ),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) + $calc(%lypo.takeoff * $decode($read(Trout.k94,s,fat.price),m))),m)
/describe $active $read(Trout.k94,s,col.text) $+ Goes to see the liposuction docter and gets[^B] $read(Trout.k94,s,col.info) $+ %lypo.takeoff KG[^B] $read(Trout.k94,s,col.text) $+ of fat removed.
/describe $active $read(Trout.k94,s,col.text) $+ Then goes to the local pigfarmer and sells his[^B] $read(Trout.k94,s,col.info) $+ %lypo.takeoff KG[^B] $read(Trout.k94,s,col.text) $+ of fat for $chr(36) $+ $calc(%lypo.takeoff * $decode($read(Trout.k94,s,fat.price),m)) at $chr(36) $+ $decode($read(Trout.k94,s,fat.price),m) per KG.
/describe $active $read(Trout.k94,s,col.text) $+ The liposuction docter then takes $blood.or.money
}
else {
echo -a -
echo -a You Must Be 100+ In Weight To Need Liposuction
echo -a -
}
}
alias blood.or.money {
if ($decode($read(Trout.k94,s,blood.total),m) > 20) {
set %how.much.blood $rand(1,$decode($read(Trout.k94,s,blood.total),m))
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) - %how.much.blood),m)
return %how.much.blood pint(s) of blood for his services.
}
else {
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - %lypo.takeoff),m)
return $chr(36) $+ %lypo.takeoff for his services.
}
}
on *:action:*:#:{
if ((slaps isin $strip($1-,burc)) && (trout isin $strip($1-,burc))) {
if ($read(Trout.k94,s,trout.on) = 1) {
set %tp.kg $rand(1,5)
write -stp.total Trout.k94 tp.total $encode($calc($decode($read(Trout.k94,s,tp.total),m) + %tp.kg),m)
if (%tp.kg = 1) {
set %tp.kg.msg %tp.kg $+ KG (Small Fish)
}
elseif (%tp.kg = 2) {
set %tp.kg.msg %tp.kg $+ KG (Normal Fish)
}
elseif (%tp.kg = 3) {
set %tp.kg.msg %tp.kg $+ KG (Medium Fish)
}
elseif (%tp.kg = 4) {
set %tp.kg.msg %tp.kg $+ KG (Big Fish)
}
elseif (%tp.kg = 5) {
set %tp.kg.msg %tp.kg $+ KG (Super Fish)
}
$trout.how
}
}
}
alias Trout.how {
if ($read(Trout.k94,s,trout.how) != 1) {
describe $chan $read(Trout.k94,s,col.text) $+ Steals the trout from $read(Trout.k94,s,col.info) $+ $nick $+ $read(Trout.k94,s,col.text) and eats it gaining %tp.kg.msg $read(Trout.k94,s,col.info) $+ [^B][Weight gained: $decode($read(Trout.k94,s,tp.total),m) $+ KG] [Money Made: $chr(36) $+ $decode($read(Trout.k94,s,tp.total.money),m) $+ ] [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
}
else {
echo $chan $read(Trout.k94,s,col.info) $+ Silent Mode: $read(Trout.k94,s,col.text) $+ $me Steals the trout from $read(Trout.k94,s,col.info) $+ $nick $+ $read(Trout.k94,s,col.text) and eats it gaining %tp.kg.msg $read(Trout.k94,s,col.info) $+ [^B][Weight gained: $decode($read(Trout.k94,s,tp.total),m) $+ KG] [Money Made: $chr(36) $+ $decode($read(Trout.k94,s,tp.total.money),m) $+ ] [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
}
}
on *:load:{
if ($rtc1 == $null) {
write -scol.text Trout.k94 col.text [^K]0,01
}
if ($rtc2 == $null) {
write -scol.info Trout.k94 col.info [^K]4,01
}
if ($read(Trout.k94,s,tp.total.money) = $null) {
write -stp.total.money Trout.k94 tp.total.money $encode(500,m)
}
if ($read(Trout.k94,s,blood.total) = $null) {
write -sblood.total Trout.k94 blood.total $encode(10,m)
}
if ($read(Trout.k94,s,tp.total) = $null) {
write -stp.total Trout.k94 tp.total $encode(0,m)
}
if ($read(Trout.k94,s,trout.on) = $null) {
write -strout.on Trout.k94 trout.on 1
}
if (($read(Trout.k94,s,fat.price) = $null) || ($decode($read(Trout.k94,s,fat.price),m) != 5)) {
write -sfat.price Trout.k94 fat.price $encode(5,m)
}
if ($read(Trout.k94,s,blood.purifier) = $null) {
write -sblood.purifier Trout.k94 blood.purifier $encode(0,m)
}
if ($read(Trout.k94,s,lives.saved) = $null) {
write -slives.saved Trout.k94 lives.saved $encode(0,m)
}
if ($read(Trout.k94,s,trout.how) = $null) {
write -strout.how Trout.k94 trout.how 0
}
if ($read(Trout.k94,s,encode) = $null) {
write -sencode Trout.k94 encode 1
}
if ($read(Trout.k94,s,encode) != 1) {
write -sencode Trout.k94 encode 1
write -stp.total.money Trout.k94 tp.total.money $encode($read(Trout.k94,s,tp.total.money),m)
write -sblood.total Trout.k94 blood.total $encode($read(Trout.k94,s,blood.total),m)
write -stp.total Trout.k94 tp.total $encode($read(Trout.k94,s,tp.total),m)
write -sfat.price Trout.k94 fat.price $encode(5,m)
write -sblood.purifier Trout.k94 blood.purifier $encode($read(Trout.k94,s,blood.purifier),m)
write -slives.saved Trout.k94 lives.saved $encode($read(Trout.k94,s,lives.saved),m)
}
.notice |Mc|K94 i have just loaded your trout script
.notice |Mc|K94`idle i have just loaded your trout script
echo -a -
echo -a $rtc1 $+ Thanks for loading $rtc2 $+ Trout Stealer $rtc1 $+ v $trout.var by [^B] $+ $rtc2 $+ K94 $+ $rtc1 $+ .
trout.help
if ($network = GameSurge) {
join #Get.Fish
}
}
alias Trout.help {
echo -a $rtc2 *** $rtc1 $+ Trout Help $rtc2 $+ ***
echo -a -
echo -a $rtc2 $+ Teh Game:
echo -a $rtc1 The aim of this game is to save as many lives as you can.
echo -a $rtc1 $+ To save lives you need to donate blood to the red cross.
echo -a $rtc1 $+ But to donate blood you need to have blood, this means
echo -a $rtc1 $+ that you need to buy some blood, but to buy blood you
echo -a $rtc1 $+ need money and this is where the trout stealing comes in.
echo -a -
echo -a $rtc1 When someone gets slapped with a trout you steal it and
echo -a $rtc1 $+ eat it gaining weight, once you are over 100KG in weight
echo -a $rtc1 $+ you can goto the liposuction doctor who will remove the
echo -a $rtc1 $+ the fat from you, you then sell this fat to a pigfarmer
echo -a $rtc1 $+ and this is how you make your money.
echo -a -
echo -a $rtc2 $+ Control / Settings
echo -a $rtc1 The game is mainly controled by the Trout Control Center.
echo -a $rtc1 $+ This can be accessed by right clicking in any channel
echo -a $rtc1 $+ window, go down to the Trout Stealer menu and select
echo -a $rtc1 $+ "Trout Control" this will open a dialog where you can
echo -a $rtc1 $+ control just about everything related to the game.
echo -a $rtc1 $+ to view infomation on the trout control say
echo -a $rtc1 $+ "/Trout.control"
echo -a -
echo -a $rtc1 Also in the "Trout Stealer" menu there is a "Settings"
echo -a $rtc1 $+ sub menu, in here are 2 options,
echo -a $rtc1 $+ the first "Trout Stealer" this turns the Trout Stealer
echo -a $rtc1 $+ script on and off. the second "Silent Mode" this
echo -a $rtc1 $+ turns the silent mode on and off, silent mode is just
echo -a $rtc1 $+ like normal but when someone slaps with a trout it
echo -a $rtc1 $+ replys with an echo, this means that only you see that
echo -a $rtc1 $+ you stealer tge trout but noone else done.
echo -a -
echo -a $rtc2 $+ #Get.Fish
echo -a $rtc1 $+ When you load the script you automaticly join #Get.Fish
echo -a $rtc1 $+ you can leave here if you want it is totaly up to you.
echo -a $rtc1 $+ #Get.Fish is just a simple channel in which my bot
echo -a $rtc1 $+ "fishbot" slaps someone every 20second. this just helps
echo -a $rtc1 $+ people to build there stats up and get more weight.
echo -a -
echo -a $rtc1 $+ That covers most things, if you need anymore help
echo -a $rtc1 $+ then just contact K94 on #McReW or #Get.Fish on the
echo -a $rtc1 $+ irc.GameSurge.net IRC network or post at the fourms
echo -a $rtc1 $+ http://Forum.K94-Scripts.com
echo -a -
}
alias Trout.control {
echo -a $rtc2 *** $rtc1 $+ Trout Control Help $rtc2 $+ ***
echo -a -
echo -a $rtc1 $+ Here i just just quickly run through the commands found
echo -a $rtc1 $+ in the trout control panel.
echo -a -
echo -a $rtc2 $+ Status Section: $rtc1 this just simpaly displays ur stats in the active channel.
echo -a $rtc2 $+ Liposuction: $rtc1 this removes your fat which you then sell to make money.
echo -a $rtc2 $+ Pizza: $rtc1 this is just some fook to help you put on weight (20KG), costs $200.
echo -a $rtc2 $+ Burger: $rtc1 this also is just put on weight (10KG), costs $100.
echo -a $rtc2 $+ Grenade: $rtc1 if you are playing the game you dont want to do this as it kills
echo -a $rtc1 people and you are trying to save them, but its fun :P, costs [^B][^B]$5000 and kills
echo -a $rtc1 shit loads of people. grate fun though :P
echo -a $rtc2 $+ Sniper: $rtc1 same as above but only costs [^B][^B]$1000 and kills less people.
echo -a $rtc2 $+ Donate blood: $rtc1 this is the aim of the game, donate blood to save lifes.
echo -a $rtc1 if you only donate 10+ pints you only have a 1 in 10 chance of saving a life.
echo -a $rtc1 if you donate 100+ you have a 1 in 5 chance of saving a life.
echo -a $rtc1 if you donate over 1000 you have a 1 in 2 chance of saving a life.
echo -a $rtc1 the maximum lifes you can save at any one time is half of the amount of blood
echo -a $rtc1 you donated, e.g. if u donated 100 pints the maximum you can save is 50. the amount
echo -a $rtc1 of lifes you save is picked at random.
echo -a $rtc2 $+ Buy Blood: $rtc1 exacly what it says, 1 pint costs [^B][^B]$10. simple eh?
echo -a $rtc2 $+ Fat Purifier: $rtc1 this costs $100000, may seem a lot but you get it back really
echo -a $rtc1 fast. this increses the price you sell your fat at by $1 at a time. you start off by
echo -a $rtc1 selling you fat at $5 but when you are selling it at like $2000+ a time you make you
echo -a $rtc1 money back really easy.
echo -a $rtc2 $+ Blood Pureifer: $rtc1 this costs [^B][^B]$10000 and just doubles the amount of blood you
echo -a $rtc1 you have for each time you have 1. saves lots of money if you have over 1000 pints.
echo -a -
echo -a $rtc1 thats just about everything coverd i think, again if you have any querys you
echo -a $rtc1 contact me on #McReW or #Get.Fish on the irc.GameSurge.net IRC network or post
echo -a $rtc1 at the fourms http://Forum.K94-Scripts.com
}
alias rtc1 {
return $read(Trout.k94,s,col.text)
}
alias rtc2 {
return $read(Trout.k94,s,col.info)
}
alias trout.ad {
return $rtc1 $+ I am using $rtc2 $+ Trout Stealer $+ $rtc1 v $trout.var by [^B] $+ $rtc2 $+ K94[^K]0,1[^B]. $trout.web
}
alias trout.var {
return 1.6
}
alias trout.web {
return $rtc1 $+ www $+ $rtc2 $+ . $+ $rtc1 $+ K94 $+ $rtc2 $+ - $+ $rtc1 $+ Scripts $+ $rtc2 $+ . $+ $rtc1 $+ com
}
ctcp *:*:?:{
if ($1 = VERSION) {
.ctcpreply $nick $1 $trout.ad
}
}
dialog trout {
title "Trout Control v 1.6 - By K94"
size -1 -1 260 150
option dbu
icon 36, 197 5 60 65, $scriptdir $+ trout.jpg, 0
box "Weight Gained:", 9, 2 2 60 15
text "", 13, 10 9 50 6
box "Money Made:", 10, 2 19 60 15
text "", 14, 10 26 50 6
box "Pints Of Blood:", 11, 2 36 60 15
text "", 15, 10 43 50 6
box "Lives Saved:", 12, 2 53 60 15
text "", 16, 10 60 50 6
box "Stats:", 2, 2 70 60 65
button "All", 3, 5 79 54 10
button "Weight Gained", 4, 5 90 54 10
button "Money Made", 5, 5 101 54 10
button "Pints Of Blood", 6, 5 112 54 10
button "Lives Saved", 7, 5 123 54 10
box "Donate Blood:", 18, 67 70 60 65
button "10 Pints", 20, 70 79 54 10
button "100 Pints", 21, 70 90 54 10
button "1000 Pints", 22, 70 101 54 10
button "Custom", 23, 70 112 54 10
edit "", 24, 70 123 54 10
box "Purifier's:", 19, 197 70 60 65
button "10 Pints", 28, 135 79 54 10
button "100 Pints", 29, 135 90 54 10
button "1000 Pints", 30, 135 101 54 10
button "Custom", 31, 135 112 54 10
edit "", 32, 135 123 54 10
box "Other Stuff:", 33, 67 2 60 66
button "Liposuction", 34, 70 10 54 10
button "Buy Pizza", 35, 70 21 54 10
button "Buy Burger", 37, 70 32 54 10
button "Fat Purifier", 39, 200 79 54 10
button "Blood Purifier", 38, 200 101 54 10
button "Ok", 1, 2 138 29 10, ok
button "Cancel", 17, 33 138 29 10, cancel
button "Advertise (Channel)", 25, 68 138 58 10
button "#Get.Fish", 26, 197 137 29 10
button "#McReW", 27, 228 137 29 10
box "Buy Blood:", 8, 132 70 60 65
edit "", 40, 200 90 54 10
edit "", 41, 200 112 54 10
button "Advertise (Global)", 42, 133 138 58 10
box "Colours:", 43, 132 2 60 66
text "Info Colour:", 44, 137 34 34 8
text "Text Colour:", 45, 137 11 32 8
edit "", 46, 135 20 54 10
edit "", 47, 135 43 54 10
button "Grenade", 48, 70 43 54 10
button "Sniper", 49, 70 54 54 10
button "Default", 50, 135 55 54 10
button "Default", 51, 200 123 54 10
}
on *:dialog:trout:init:0:{
.trout.update
.timertrout.update 0 1 .trout.update
.did -ra trout 40 1
.did -ra trout 41 1
.did -ra trout 46 $rtc1
.did -ra trout 47 $rtc2
}
on *:dialog:trout:edit:46:{
write -scol.text Trout.k94 col.text $did(46)
}
on *:dialog:trout:edit:47:{
write -scol.info Trout.k94 col.info $did(47)
}
on *:dialog:trout:sclick:48:{
if ($decode($read(Trout.k94,s,tp.total.money),m) > 5000) {
set %temp0 $rand(2,200)
set %temp1 $rand(1,600)
set %temp2 $rand(1,800)
set %temp3 $calc(%temp0 + ( $rand(1,$calc(%temp1 + %temp2))))
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - 5000),m)
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) - %temp3),m)
/describe $active $rtc1 $+ Buys a Grenade for [^B][^B]$5000 and throws it into a crowd of people. The Grenade blows %temp0 peoples heads off, %temp1 peoples arms off and %temp2 peoples legs off. The Grenade killed a total of %temp3 people. $rtc2 $+ [Money Made: $chr(36) $+ $decode($read(Trout.k94,s,tp.total.money),m) $+ ] [Lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
else {
echo -a -
echo -a $rtc1 $+ You must have $chr(36) $+ 5000
echo -a -
}
}
on *:dialog:trout:sclick:49:{
if ($decode($read(Trout.k94,s,tp.total.money),m) > 1000) {
set %temp0 $rand(2,200)
set %temp1 $rand(2,300)
set %temp2 $rand(2,500)
set %temp3 $calc(%temp0 + ( $rand(1, $calc(%temp1 + %temp2))))
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - 1000),m)
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) - %temp3),m)
/describe $active $rtc1 $+ Buys a Sniper Rifle and 1000 rounds for [^B][^B]$1000, $me then finds the highest building and sets up camp. $me aims into a crowd of people. $me shot %temp0 peoples heads off, %temp1 people in the chest and %temp2 people in the anus. $me killed a total of %temp3 people. $rtc2 $+ [Money Made: $chr(36) $+ $decode($read(Trout.k94,s,tp.total.money),m) $+ ] [Lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
else {
echo -a -
echo -a $rtc1 $+ You must have $chr(36) $+ 1000
echo -a -
}
}
on *:dialog:trout:sclick:50:{
.did -ra trout 46 [^K]0,1
.did -ra trout 47 [^K]4,1
}
on *:dialog:trout:sclick:51:{
.did -ra trout 40 1
.did -ra trout 41 1
}
on *:dialog:trout:sclick:34:{
/liposuction
}
on *:dialog:trout:sclick:35:{
if ($decode($read(Trout.k94,s,tp.total.money),m) > 199) {
write -stp.total Trout.k94 tp.total $encode($calc($decode($read(Trout.k94,s,tp.total),m) + 20),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - 200),m)
/describe $active $rtc1 $+ Buys A Pizza For $chr(36) $+ 200 And Gains 20KG $rtc2 $+ [Weight gained: $decode($read(Trout.k94,s,tp.total),m) $+ KG]
}
else {
echo -a -
echo -a $rtc1 $+ You must have $chr(36) $+ 200
echo -a -
}
}
on *:dialog:trout:sclick:37:{
if ($decode($read(Trout.k94,s,tp.total.money),m) > 99) {
write -stp.total Trout.k94 tp.total $encode($calc($decode($read(Trout.k94,s,tp.total),m) + 10),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - 100),m)
/describe $active $rtc1 $+ Buys A Burger For $chr(36) $+ 100 And Gains 10KG $rtc2 $+ [Weight gained: $decode($read(Trout.k94,s,tp.total),m) $+ KG]
}
else {
echo -a -
echo -a $rtc1 $+ You must have $chr(36) $+ 100
echo -a -
}
}
on *:dialog:trout:sclick:38:{
if ($did(41) isnum) && ($did(41) > 0) {
if ($decode($read(Trout.k94,s,blood.total),m) > 0) {
if ($decode($read(Trout.k94,s,tp.total.money),m) >= $calc($did(41)*10000)) {
write -sblood.purifier Trout.k94 blood.purifier $encode($calc($decode($read(Trout.k94,s,blood.purifier),m) + $did(41)),m)
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) *2* $did(41)),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - $calc($did(41)*10000)),m)
/describe $active $rtc1 $+ Buys $iif($did(41) == 1,A Blood Purifier,$did(41) Blood Purifiers) For $chr(36) $+ $calc($did(41)*10000) And Gets $calc($did(41)+1) Times As Much Blood, $rtc2 $+ [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
}
else {
echo -a -
echo -a $rtc1 $+ You must have $chr(36) $+ $calc($did(41)*10000)
echo -a -
}
}
else {
echo -a -
echo -a $rtc1 $+ You must buy some blood first
echo -a -
}
}
}
on *:dialog:trout:sclick:39:{
if ($did(41) isnum) && ($did(41) > 0) {
if ($decode($read(Trout.k94,s,tp.total.money),m) >= $calc($did(40)*100000)) {
write -sfat.price Trout.k94 fat.price $encode($calc($decode($read(Trout.k94,s,fat.price),m) + $did(40)),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - $calc($did(40)*100000)),m)
/describe $active $rtc1 $+ Buys $iif($did(40) == 1,A Fat Purifier,$did(40) Fat Purifiers) For $chr(36) $+ $calc($did(40)*100000) $rtc2 $+ [Fat Price: $chr(36) $+ $decode($read(Trout.k94,s,fat.price),m) $+ ]
}
else {
echo -a -
echo -a $rtc1 $+ You must have $chr(36) $+ $calc($did(40)*100000)
echo -a -
}
}
}
on *:dialog:trout:sclick:31:{
if ($did(32) > 0) {
if ($decode($read(Trout.k94,s,tp.total.money),m) > $calc($calc($did(32) * 10) - 1)) {
/describe $active $rtc1 $+ Buys $did(32) pint(s) of blood for[^B] $rtc2 $+ $calc($did(32) * 10)
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) + $did(32)),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - $calc($did(32) * 10)),m)
}
else {
echo -a -
echo -a $rtc1 $+ You Must Have $chr(36) $+ $calc($did(32) * 10)
echo -a -
}
}
}
on *:dialog:trout:sclick:28:{
if ($decode($read(Trout.k94,s,tp.total.money),m) > 9) {
/describe $active $rtc1 $+ Buys 10 pints of blood for[^B] $rtc2 $+ [^B][^B]$100
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) + 10),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - 100),m)
}
else {
echo -a -
echo -a $rtc1 $+ You Must Have $chr(36) $+ 100
echo -a -
}
}
on *:dialog:trout:sclick:29:{
if ($decode($read(Trout.k94,s,tp.total.money),m) > 999) {
/describe $active $rtc1 $+ Buys 100 pints of blood for[^B] $rtc2 $+ [^B][^B]$1000
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) + 100),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - 1000),m)
}
else {
echo -a -
echo -a $rtc1 $+ You Must Have $chr(36) $+ 1000
echo -a -
}
}
on *:dialog:trout:sclick:30:{
if ($decode($read(Trout.k94,s,tp.total.money),m) > 9999) {
/describe $active $rtc1 $+ Buys 1000 pints of blood for[^B] $rtc2 $+ [^B][^B]$10000
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) + 1000),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - 10000),m)
}
else {
echo -a -
echo -a $rtc1 $+ You Must Have $chr(36) $+ 10000
echo -a -
}
}
on *:dialog:trout:sclick:26:{
if ($network = GameSurge) {
join #Get.Fish
}
}
on *:dialog:trout:sclick:27:{
if ($network = GameSurge) {
join #McReW
}
}
alias trout.update {
.did -ra trout 13 $decode($read(Trout.k94,s,tp.total),m) $+ KG
.did -ra trout 14 $chr(36) $+ $decode($read(Trout.k94,s,tp.total.money),m)
.did -ra trout 15 $decode($read(Trout.k94,s,blood.total),m)
.did -ra trout 16 $decode($read(Trout.k94,s,lives.saved),m)
}
on *:dialog:trout:sclick:25:{
/describe $active $trout.ad
}
on *:dialog:trout:sclick:23:{
set %temp.trout $did(24)
if ($did(24) isnum) {
if ($did(24) > 0) {
if ($decode($read(Trout.k94,s,blood.total),m) > $calc(%temp.trout - 1)) {
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) - %temp.trout),m)
/describe $active $rtc1 $+ Donates %temp.trout Pint(s) Of Blood To The Red Cross. $rtc2 $+ [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
if (%temp.trout < 10) {
set %do.i.get.money $rand(1,10)
if (%do.i.get.money = 1) {
set %how.many.i.save $rand(1,1)
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) + %how.many.i.save),m)
/describe $active $rtc1 $+ Your Blood Saved %how.many.i.save Life(s) $rtc2 $+ [lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
}
else {
if (%temp.trout > 999) {
set %do.i.get.money $rand(1,2)
if (%do.i.get.money = 1) {
set %how.many.i.save $rand(1,$int($calc(%temp.trout / 2)))
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) + %how.many.i.save),m)
/describe $active $rtc1 $+ Your Blood Saved %how.many.i.save Life(s) $rtc2 $+ [lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
}
}
else {
if (%temp.trout > 99) {
set %do.i.get.money $rand(1,5)
if (%do.i.get.money = 1) {
set %how.many.i.save $rand(1,50)
write -slives.saved Trout.k94 lives.saved $calc($decode($read(Trout.k94,s,lives.saved),m) + %how.many.i.save)
/describe $active $rtc1 $+ Your Blood Saved %how.many.i.save Life(s) $rtc2 $+ [lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
}
}
else {
if (%temp.trout > 9) {
set %do.i.get.money $rand(1,10)
if (%do.i.get.money = 1) {
set %how.many.i.save $rand(1,1)
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) + %how.many.i.save),m)
/describe $active $rtc1 $+ Your Blood Saved %how.many.i.save Life(s) $rtc2 $+ [lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
}
}
}
else {
echo -a -
echo -a $rtc1 $+ You Must Have %temp.trout Pints Of Blood To Donate
echo -a -
}
}
}
}
on *:dialog:trout:sclick:22:{
if ($decode($read(Trout.k94,s,blood.total),m) > 999) {
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) - 1000),m)
/describe $active $rtc1 $+ Donates 1000 Pints Of Blood To The Red Cross. $rtc2 $+ [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
set %do.i.get.money $rand(1,2)
if (%do.i.get.money = 1) {
set %how.many.i.save $rand(1,500)
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) + %how.many.i.save),m)
/describe $active $rtc1 $+ Your Blood Saved %how.many.i.save Life(s) $rtc2 $+ [lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
}
else {
echo -a -
echo -a $rtc1 $+ You Must Have 1000 Pints Of Blood To Donate
echo -a -
}
}
on *:dialog:trout:sclick:21:{
if ($decode($read(Trout.k94,s,blood.total),m) > 99) {
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) - 100),m)
/describe $active $rtc1 $+ Donates 100 Pints Of Blood To The Red Cross. $rtc2 $+ [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
set %do.i.get.money $rand(1,2)
if (%do.i.get.money = 1) {
set %how.many.i.save $rand(1,50)
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) + %how.many.i.save),m)
/describe $active $rtc1 $+ Your Blood Saved %how.many.i.save Life(s) $rtc2 $+ [lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
}
else {
echo -a -
echo -a $rtc1 $+ You Must Have 100 Pints Of Blood To Donate
echo -a -
}
}
on *:dialog:trout:sclick:20:{
if ($decode($read(Trout.k94,s,blood.total),m) > 9) {
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) - 10),m)
/describe $active $rtc1 $+ Donates 10 Pints Of Blood To The Red Cross. $rtc2 $+ [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
set %do.i.get.money $rand(1,5)
if (%do.i.get.money = 1) {
set %how.many.i.save $rand(1,5)
write -slives.saved Trout.k94 lives.saved $encode($calc($decode($read(Trout.k94,s,lives.saved),m) + %how.many.i.save),m)
/describe $active $read(Trout.k94,s,col.text) $+ Your Blood Saved %how.many.i.save Life(s) $read(Trout.k94,s,col.info) $+ [lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
}
else {
echo -a -
echo -a $read(Trout.k94,s,col.text) $+ You Must Have 10 Pints Of Blood To Donate
echo -a -
}
}
on *:dialog:trout:close:0:{
.timertrout.update off
}
on *:dialog:trout:sclick:4:{
msg $active $read(Trout.k94,s,col.info) $+ [Weight gained: $decode($read(Trout.k94,s,tp.total),m) $+ KG]
}
on *:dialog:trout:sclick:5:{
msg $active $read(Trout.k94,s,col.info) $+ [Money Made: $chr(36) $+ $decode($read(Trout.k94,s,tp.total.money),m) $+ ]
}
on *:dialog:trout:sclick:6:{
msg $active $read(Trout.k94,s,col.info) $+ [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
}
on *:dialog:trout:sclick:7:{
msg $active $read(Trout.k94,s,col.info) $+ [Lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
on *:dialog:trout:sclick:3:{
msg $active $read(Trout.k94,s,col.text) $+ Trout Stealer Stats
msg $active $read(Trout.k94,s,col.info) $+ [Weight gained: $decode($read(Trout.k94,s,tp.total),m) $+ KG]
msg $active $read(Trout.k94,s,col.info) $+ [Money Made: $chr(36) $+ $decode($read(Trout.k94,s,tp.total.money),m) $+ ]
msg $active $read(Trout.k94,s,col.info) $+ [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
msg $active $read(Trout.k94,s,col.info) $+ [Blood Purifier: $decode($read(Trout.k94,s,blood.purifier),m) $+ ]
msg $active $read(Trout.k94,s,col.info) $+ [Lives Saved: $decode($read(Trout.k94,s,lives.saved),m) $+ ]
}
alias restart {
write -stp.total.money Trout.k94 tp.total.money $encode(500,m)
write -sblood.total Trout.k94 blood.total $encode(10,m)
write -stp.total Trout.k94 tp.total $encode(0,m)
write -strout.on Trout.k94 trout.on 1
write -sfat.price Trout.k94 fat.price $encode(500,m)
write -sblood.purifier Trout.k94 blood.purifier $encode(80000000.b)
write -slives.saved Trout.k94 lives.saved $encode(0,m)
echo -a Stats Reset
}
alias changefatprice {
write -sfat.price Trout.k94 $encode($2,m)
}
menu channel {
Trout Stealer
.Trout Control:/dialog -dm trout trout
.Settings
.. $iif($read(Trout.k94,s,trout.on) = 1,$style(1)) Trout stealer:{
if ($read(Trout.k94,s,trout.on) = 1) {
write -strout.on Trout.k94 trout.on 0
echo -a $read(Trout.k94,s,col.text) $+ Trout Stealer script has been disabled, you will know longer steal teh fishes.
}
else {
write -strout.on Trout.k94 trout.on 1
echo -a $read(Trout.k94,s,col.text) $+ Trout Stealer script has been enabled, you better tell the fishys to look out.
}
}
.. $iif($read(Trout.k94,s,trout.how) = 1,$style(1)) Silent mode:{
if ($read(Trout.k94,s,trout.how) = 1) {
write -strout.how Trout.k94 trout.how 0
echo -a $read(Trout.k94,s,col.text) $+ Trout Stealer Silent mode set $read(Trout.k94,s,col.info) $+ off
}
else {
write -strout.how Trout.k94 trout.how 1
echo -a $read(Trout.k94,s,col.text) $+ Trout Stealer Silent mode set $read(Trout.k94,s,col.info) $+ on
}
}
.Restart
..Confirm
...YES:/restart
.-
.Advertize (Channel):msg # $trout.ad
.Advertize (Global):amsg $trout.ad
}
alias Liposuction {
if ($decode($read(Trout.k94,s,tp.total),m) > 99) {
set %lypo.takeoff $rand(1,$calc( $decode($read(Trout.k94,s,tp.total),m) -10))
write -stp.total Trout.k94 tp.total $encode($calc( $decode($read(Trout.k94,s,tp.total),m) - %lypo.takeoff ),m)
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) + $calc(%lypo.takeoff * $decode($read(Trout.k94,s,fat.price),m))),m)
/describe $active $read(Trout.k94,s,col.text) $+ Goes to see the liposuction docter and gets[^B] $read(Trout.k94,s,col.info) $+ %lypo.takeoff KG[^B] $read(Trout.k94,s,col.text) $+ of fat removed.
/describe $active $read(Trout.k94,s,col.text) $+ Then goes to the local pigfarmer and sells his[^B] $read(Trout.k94,s,col.info) $+ %lypo.takeoff KG[^B] $read(Trout.k94,s,col.text) $+ of fat for $chr(36) $+ $calc(%lypo.takeoff * $decode($read(Trout.k94,s,fat.price),m)) at $chr(36) $+ $decode($read(Trout.k94,s,fat.price),m) per KG.
/describe $active $read(Trout.k94,s,col.text) $+ The liposuction docter then takes $blood.or.money
}
else {
echo -a -
echo -a You Must Be 100+ In Weight To Need Liposuction
echo -a -
}
}
alias blood.or.money {
if ($decode($read(Trout.k94,s,blood.total),m) > 20) {
set %how.much.blood $rand(1,$decode($read(Trout.k94,s,blood.total),m))
write -sblood.total Trout.k94 blood.total $encode($calc($decode($read(Trout.k94,s,blood.total),m) - %how.much.blood),m)
return %how.much.blood pint(s) of blood for his services.
}
else {
write -stp.total.money Trout.k94 tp.total.money $encode($calc($decode($read(Trout.k94,s,tp.total.money),m) - %lypo.takeoff),m)
return $chr(36) $+ %lypo.takeoff for his services.
}
}
on *:action:*:#:{
if ((slaps isin $strip($1-,burc)) && (trout isin $strip($1-,burc))) {
if ($read(Trout.k94,s,trout.on) = 1) {
set %tp.kg $rand(1,5)
write -stp.total Trout.k94 tp.total $encode($calc($decode($read(Trout.k94,s,tp.total),m) + %tp.kg),m)
if (%tp.kg = 1) {
set %tp.kg.msg %tp.kg $+ KG (Small Fish)
}
elseif (%tp.kg = 2) {
set %tp.kg.msg %tp.kg $+ KG (Normal Fish)
}
elseif (%tp.kg = 3) {
set %tp.kg.msg %tp.kg $+ KG (Medium Fish)
}
elseif (%tp.kg = 4) {
set %tp.kg.msg %tp.kg $+ KG (Big Fish)
}
elseif (%tp.kg = 5) {
set %tp.kg.msg %tp.kg $+ KG (Super Fish)
}
$trout.how
}
}
}
alias Trout.how {
if ($read(Trout.k94,s,trout.how) != 1) {
describe $chan $read(Trout.k94,s,col.text) $+ Steals the trout from $read(Trout.k94,s,col.info) $+ $nick $+ $read(Trout.k94,s,col.text) and eats it gaining %tp.kg.msg $read(Trout.k94,s,col.info) $+ [^B][Weight gained: $decode($read(Trout.k94,s,tp.total),m) $+ KG] [Money Made: $chr(36) $+ $decode($read(Trout.k94,s,tp.total.money),m) $+ ] [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
}
else {
echo $chan $read(Trout.k94,s,col.info) $+ Silent Mode: $read(Trout.k94,s,col.text) $+ $me Steals the trout from $read(Trout.k94,s,col.info) $+ $nick $+ $read(Trout.k94,s,col.text) and eats it gaining %tp.kg.msg $read(Trout.k94,s,col.info) $+ [^B][Weight gained: $decode($read(Trout.k94,s,tp.total),m) $+ KG] [Money Made: $chr(36) $+ $decode($read(Trout.k94,s,tp.total.money),m) $+ ] [Pints of Blood: $decode($read(Trout.k94,s,blood.total),m) $+ ]
}
}