Public feed
#894029
on $*:TEXT:/^[!.`]mycolor/Si:*:{
if ($2 isnum 1-9 && $3 == $null) {
set %color [ $+ [ $address($nick,2) ] ] 0 [ $+ [ $2 ] ]
notice $nick this is your color. $c(Example))
}
elseif ($2 isnum 10-15) && $3 == $null) {
set %color [ $+ [ $address($nick,2) ] ] $2
notice $nick this is your color. $c(Example))
}
elseif ($2 isnum 10-15 && $3 isnum 10-15) {
set %color [ $+ [ $address($nick,2) ] ] $2
set %color1 [ $+ [ $address($nick,2) ] ] $3
notice $nick this is your color. $c(Example)) 5this is your second color $c2(Example)
}
elseif ($2 isnum 1-9 && $3 isnum 1-9) {
set %color [ $+ [ $address($nick,2) ] ] 0 [ $+ [ $2 ] ]
set %color1 [ $+ [ $address($nick,2) ] ] 0 [ $+ [ $3 ] ]
notice $nick this is your color. $c(Example)) 5this is your second color $c2(Example)
}
elseif ($2 isnum 1-9 && $3 isnum 10-15) {
set %color [ $+ [ $address($nick,2) ] ] 0 [ $+ [ $2 ] ]
set %color1 [ $+ [ $address($nick,2) ] ] $3
notice $nick this is your color. $c(Example)) 5this is your second color $c2(Example)
}
elseif ($2 isnum 10-15) && $3 isnum 1-9) {
set %color [ $+ [ $address($nick,2) ] ] $2
set %color1 [ $+ [ $address($nick,2) ] ] $3
notice $nick this is your color. $c(Example)) 5this is your second color $c2(Example)
}
else {
notice $nick invalid!
}
}
alias c {
if (%color [ $+ [ $address($nick,2) ] ] == $null) { set %color [ $+ [ $address($nick,2) ] ] 10 }
return $+($chr(3),%color [ $+ [ $address($nick,2) ] ],$1-)
}
alias c2 {
if (%color1 [ $+ [ $address($nick,2) ] ] == $null) { set %color1 [ $+ [ $address($nick,2) ] ] 04 }
return $+($chr(3),%color1 [ $+ [ $address($nick,2) ] ],$1-)
}
alias endduel {
unset %dSpec [ $+ [ %player1 ] ] %dSpec [ $+ [ %player2 ] ]
unset %duel [ $+ [ $chan ] ]
unset %turn [ $+ [ %player1 ] ] %turn [ $+ [ %player2 ] ]
unset %hp [ $+ [ %player1 ] ] %hp [ $+ [ %player2 ] ]
unset %player1 %player2 %firsthit %stake
}
alias money {
return $+($replacex($1-,k,000,m,000000))
}
alias reversemoney {
if ($1- < $money(1m)) && ($1- >= 1000) {
return $+($regsubex($1-,(000)$,k))
var %Reverse $true
}
elseif ($1- >= $money(1m)) && (%Reverse == $null) {
return $+($regsubex($1-,(000000)$,m))
}
}
on *:TEXT:`impoor*:#:{
if (%GotMoney [ $+ [ $address($nick,2) ] ] == on) { notice $nick $c(you can only get money each 10 minutes!) | halt }
if (%money [ $+ [ $nick ] ] == $null || %money [ $+ [ $nick ] ] == 0) {
inc %money [ $+ [ $nick ] ] 75000
notice $nick $c(You have been given) $c2(75k) $c(to start staking) $c2(`duel) $c(to begin staking)
set %GotMoney [ $+ [ $address($nick,2) ] ] on
.timer 1 600 unset %GotMoney [ $+ [ $address($nick,2) ] ]
}
else {
notice $nick $c(You have money bish!)
}
}
on *:TEXT:`duel*:#:{
if (%player1 != $null) && ($nick == %player1) { notice $nick you cant fight yourself | halt }
if (%player2 != $null) { notice $nick $c(theres already a duel in progress!) | halt }
if (%money [ $+ [ $nick ] ] == $null || %money [ $+ [ $nick ] ] == 0) { notice $nick $c(You have no money!) $c2(`impoor) $c(to get money) | halt }
elseif (%Player1 == $null) && (%money [ $+ [ $nick ] ] > 0) {
set %Duel [ $+ [ $chan ] ] on
msg $chan $c2( $nick ) $c(has started a) $c2(duel!)
set %player1 $nick
}
elseif (%Player2 == $null) && (%player1 != $null) {
msg $chan $c2( $nick ) $c(has joined the) $c2(duel!)
set %player2 $nick
var %firsthit $rand(1,2)
}
if (%firsthit == 1) {
set %turn [ $+ [ %player1 ] ] on
set %dSpec [ $+ [ %player2 ] ] 10
set %dSpec [ $+ [ %player1 ] ] 10
set %hp [ $+ [ %player2 ] ] 99
set %hp [ $+ [ %player1 ] ] 99
msg $chan $c2( %player1 ) $c(goes first!)
notice %player1 $c(Well) $c2( %player1 ) $c(How much are we staking?) $c2(`stake AMOUNT)
notice %player1 $c2( %player2 ) $c(has) $c2(%money [ $+ [ %player2 ] ] )
notice %player1 $c(you have) $c2(%money [ $+ [ %player1 ] ] )
}
elseif (%firsthit == 2) {
set %turn [ $+ [ %player2 ] ] on
set %dSpec [ $+ [ %player2 ] ] 10
set %dSpec [ $+ [ %player1 ] ] 10
set %hp [ $+ [ %player2 ] ] 99
set %hp [ $+ [ %player1 ] ] 99
msg $chan $c2( %player2 ) $c(goes first!)
notice %player2 $c(Well) $c2( %player2 ) $c(How much are we staking?) $c2(`stake AMOUNT)
notice %player2 $c2( %player1 ) $c(has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] ))
notice %player2 $c(you have) $c2( $reversemoney(%money [ $+ [ %player2 ] ] ))
}
}
on *:TEXT:`endduel:#:{
if ($nick isop $chan || $nick ishop $chan || $address($me,2) == $address($nick,2)) {
endduel
msg $chan $c2( $nick ) $c(has halted the duel!)
}
}
on *:TEXT:`stake*:#:{
if (%turn [ $+ [ %player1 ] ] == on) {
if ($nick == %player1) {
if ($money( $2 ) <= %money [ $+ [ %player2 ] ] && %money [ $+ [ %player1 ] ] >= $money( $2 )) {
dec %money [ $+ [ %player1 ] ] $2
dec %money [ $+ [ %player2 ] ] $2
set %stake $calc( $2 * 2 )
msg $chan $c2( %player1 ) $c(has decided to stake) $c2( $reversemoney( $2 ) ) $c(Do you accept?) $c2( %player2 ) $c(?)
notice %player2 $c(do you accept?) $c2(`accept or `decline)
set %accept %player2
}
}
}
elseif (%turn [ $+ [ %player2 ] ] == on) {
if ($nick == %player2) {
if ( $money( $2 ) <= %money [ $+ [ %player2 ] ] && %money [ $+ [ %player1 ] ] >= $money( $2 )) {
dec %money [ $+ [ %player1 ] ] $2
dec %money [ $+ [ %player2 ] ] $2
set %stake $calc($money( $2 ) * 2 )
msg $chan $c2( %player2 ) $c(has decided to stake) $c2( $reversemoney( $2 ) ) $c(Do you accept?) $c2( %player1 ) $c(?)
notice %player1 $c(do you accept?) $c2(`accept or `decline)
set %accept %player1
}
}
}
}
on *:TEXT:`decline*:#:{
if (%accept == $nick) {
msg $chan $c2( $nick ) $c(Has) $c2(DECLINED) $c(the stake)
inc %money [ $+ [ %player1 ] ] $calc( %stake / 2)
inc %money [ $+ [ %player2 ] ] $calc( %stake / 2)
endduel
unset %accept
}
}
on *:TEXT:`accept*:#:{
if (%accept == $nick) {
msg $chan $c2($nick) $c(has) $c2(ACCEPTED) $c(The stake)
}
if (%accept == %player1) {
notice %player2 $c(You start!)
unset %accept
}
elseif (%accept == %player2) {
notice %player1 $c(You start!)
unset %accept
}
}
on $*:TEXT:/^[`](dscim|dscimmy|scim|scimmy)/Si:#:{
if (%turn [ $+ [ %player1 ] ] == on) {
if ($nick != %player1) { notice $nick $c(Not your turn!) }
elseif (%player1 == $nick && %fury [ $+ [ %player1 ] ] != on) {
var %dScim $rand(0,21)
dec %hp [ $+ [ %player2 ] ] %dScim
if (%hp [ $+ [ %player2 ] ] <= 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon scimmy, %player2 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
inc %money [ $+ [ %player1 ] ] %stake
msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] ))
endduel
}
elseif (%hp [ $+ [ %player2 ] ] > 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon scimmy, %player2 ) $c(has) $c2( %hp [ $+ [ %player2 ] ] ) $c(hp left!)
notice %player2 Its your turn!
unset %turn [ $+ [ %player1 ] ]
set %turn [ $+ [ %player2 ] ] on
}
}
elseif (%player1 == $nick && %fury [ $+ [ %player1 ] ] == on) {
var %dScim $rand(0,24)
dec %hp [ $+ [ %player2 ] ] %dScim
if (%hp [ $+ [ %player2 ] ] <= 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon scimmy, %player2 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
inc %money [ $+ [ %player2 ] ] %stake
msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] ))
endduel
}
elseif (%hp [ $+ [ %player2 ] ] > 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon scimmy, %player2 ) $c(has) $c2( %hp [ $+ [ %player2 ] ] ) $c(hp left!)
notice %player2 Its your turn!
unset %turn [ $+ [ %player1 ] ]
set %turn [ $+ [ %player2 ] ] on
}
}
}
elseif (%turn [ $+ [ %player2 ] ] == on) {
if ($nick != %player2) { notice $nick $c(Not your turn!) }
elseif (%player2 == $nick && %fury [ $+ [ %player2 ] ] != on) {
var %dScim $rand(0,21)
dec %hp [ $+ [ %player1 ] ] %dScim
if (%hp [ $+ [ %player1 ] ] <= 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon scimmy, %player1 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
inc %money [ $+ [ %player2 ] ] %stake
msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] ))
endduel
}
elseif (%hp [ $+ [ %player1 ] ] > 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon scimmy, %player1 ) $c(has) $c2( %hp [ $+ [ %player1 ] ] ) $c(hp left!)
notice %player1 Its your turn!
unset %turn [ $+ [ %player2 ] ]
set %turn [ $+ [ %player1 ] ] on
}
}
elseif (%player2 == $nick && %fury [ $+ [ %player2 ] ] == on) {
var %dScim $rand(0,24)
dec %hp [ $+ [ %player1 ] ] %dScim
if (%hp [ $+ [ %player1 ] ] <= 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon scimmy, %player1 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
inc %money [ $+ [ %player2 ] ] %stake
msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] ))
endduel
}
elseif (%hp [ $+ [ %player1 ] ] > 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %dScim ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon scimmy, %player1 ) $c(has) $c2( %hp [ $+ [ %player1 ] ] ) $c(hp left!)
notice %player1 Its your turn!
unset %turn [ $+ [ %player2 ] ]
set %turn [ $+ [ %player1 ] ] on
}
}
}
}
on *:TEXT:`dds*:#:{
if (%turn [ $+ [ %player1 ] ] == on) {
if ($nick != %player1) { notice $nick $c(Not your turn!) }
elseif (%player1 == $nick) && (%dSpec [ $+ [ %player1 ] ] == 0) { notice $nick $c(You dont have enough special left) | halt }
elseif ((%player1 == $nick) && (%dSpec [ $+ [ %player1 ] ] > 0) && (%fury [ $+ [ %player1 ] ] != on)) {
var %dds $rand(0,18)
var %dds1 $rand(0,18)
dec %hp [ $+ [ %player2 ] ] $calc( %dds + %dds1 )
dec %dSpec [ $+ [ %player1 ] ] 2.5
if (%hp. [ $+ [ %player2 ] ] <= 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon dagger, %player2 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
inc %money [ $+ [ %player1 ] ] %stake
msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] ))
endduel
}
elseif (%hp [ $+ [ %player2 ] ] > 0) {
notice %player1 $c(you have) $c2( $calc( %dSpec [ $+ [ %player1 ] ] * 10) $+ % ) $c(Special left)
msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon dagger, %player2 ) $c(has) $c2( %hp [ $+ [ %player2 ] ] ) $c(hp left!)
notice %player2 Its your turn!
unset %turn [ $+ [ %player1 ] ]
set %turn [ $+ [ %player2 ] ] on
}
}
elseif ((%player1 == $nick) && (%dSpec [ $+ [ %player1 ] ] > 0) && (%fury [ $+ [ %player1 ] ] == on)) {
var %dds $rand(0,20)
var %dds1 $rand(0,20)
dec %hp [ $+ [ %player2 ] ] $calc( %dds + %dds1 )
dec %dSpec [ $+ [ %player1 ] ] 2.5
if (%hp. [ $+ [ %player2 ] ] <= 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon dagger, %player2 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
inc %money [ $+ [ %player1 ] ] %stake
msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] ))
endduel
}
elseif (%hp [ $+ [ %player2 ] ] > 0) {
notice %player1 $c(you have) $c2( $calc( %dSpec [ $+ [ %player1 ] ] * 10) $+ % ) $c(Special left)
msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player2 ) $c(with his) $c2(dragon dagger, %player2 ) $c(has) $c2( %hp [ $+ [ %player2 ] ] ) $c(hp left!)
notice %player2 Its your turn!
unset %turn [ $+ [ %player1 ] ]
set %turn [ $+ [ %player2 ] ] on
}
}
}
elseif (%turn [ $+ [ %player2 ] ] == on) {
if ($nick != %player2) { notice $nick $c(Not your turn!) }
elseif (%player2 == $nick) && (%dSpec [ $+ [ %player2 ] ] == 0) { notice $nick $c(You dont have enough special left) | halt }
elseif ((%player2 == $nick) && (%dSpec [ $+ [ %player2 ] ] > 0 && %fury [ $+ [ %player2 ] ] != on)) {
var %dds $rand(0,18)
var %dds1 $rand(0,18)
dec %hp [ $+ [ %player1 ] ] $calc( %dds + %dds1 )
dec %dSpec [ $+ [ %player2 ] ] 2.5
if (%hp. [ $+ [ %player1 ] ] <= 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon dagger, %player1 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
inc %money [ $+ [ %player2 ] ]
msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] ))
endduel
}
elseif (%hp [ $+ [ %player1 ] ] > 0) {
notice %player2 $c(you have) $c2( $calc( %dSpec [ $+ [ %player2 ] ] * 10) $+ % ) $c(Special left)
msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon dagger, %player1 ) $c(has) $c2( %hp [ $+ [ %player1 ] ] ) $c(hp left!)
notice %player1 Its your turn!
unset %turn [ $+ [ %player2 ] ]
set %turn [ $+ [ %player1 ] ] on
}
}
elseif ((%player2 == $nick) && (%dSpec [ $+ [ %player2 ] ] > 0 && %fury [ $+ [ %player2 ] ] == on)) {
var %dds $rand(0,20)
var %dds1 $rand(0,20)
dec %hp [ $+ [ %player1 ] ] $calc( %dds + %dds1 )
dec %dSpec [ $+ [ %player2 ] ] 2.5
if (%hp. [ $+ [ %player1 ] ] <= 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon dagger, %player1 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
inc %money [ $+ [ %player2 ] ]
msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] ))
endduel
}
elseif (%hp [ $+ [ %player1 ] ] > 0) {
notice %player2 $c(you have) $c2( $calc( %dSpec [ $+ [ %player2 ] ] * 10) $+ % ) $c(Special left)
msg $chan $c2( $nick ) $c(has hit) $c2( %dds $chr(38) %dds1 ) $c(on) $c2( %player1 ) $c(with his) $c2(dragon dagger, %player1 ) $c(has) $c2( %hp [ $+ [ %player1 ] ] ) $c(hp left!)
notice %player1 Its your turn!
unset %turn [ $+ [ %player2 ] ]
set %turn [ $+ [ %player1 ] ] on
}
}
}
}
on *:TEXT:`forfeit*:#:{
if (%duel [ $+ [ $chan ] ] == on) && ($nick == %player1) {
inc %money [ $+ [ %player2 ] ] %stake
msg $chan $c2( $nick ) $c(has) $c2(forfeited the duel!)
msg $chan $c2( %player2 ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] ))
endduel
}
elseif (%duel [ $+ [ $chan ] ] == on) && ($nick == %player2) {
inc %money [ $+ [ %player1 ] ] %stake
msg $chan $c2( $nick ) $c(has) $c2(forfeited the duel!)
msg $chan $c2( %player1 ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] ))
endduel
}
}
on *:TEXT:`xLog*:#:{
if (%turn [ $+ [ %player1 ] ] == on) {
if ($nick != %player1) { notice $nick $c(Not your turn!) }
elseif ($nick == %player1 && %comp [ $+ [ $nick ] ] != on) {
var %xLog $rand(1,6)
msg $chan $c2( $nick ) $c(has attempted a) $c2(X LOG! LOL.) $c(We will now see if he can make it out. (10 seconds))
if (%xLog == 6) {
.timer 1 10 msg $chan $c2( $nick ) $c(has) $c2(x logged successfully!) $c(Everyone will be given his money back)
inc %money [ $+ [ %player1 ] ] $calc( %stake / 2)
inc %money [ $+ [ %player2 ] ] $calc( %stake / 2)
.timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] ))
.timer 1 10 endduel
}
elseif (%xLog != 6) {
.timer 1 10 msg $chan $c2( $nick ) $c(FAILED) $c2( %player2 ) $c(wins)
inc %money [ $+ [ %player2 ] ] %stake
.timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] ))
.timer 1 10 endduel
}
}
elseif ($nick == %player1 && %comp [ $+ [ $nick ] ] == on) {
var %xLog $rand(1,3)
msg $chan $c2( $nick ) $c(has attempted a) $c2(X LOG! LOL.) $c(We will now see if he can make it out. (10 seconds))
if (%xLog == 3) {
.timer 1 10 msg $chan $c2( $nick ) $c(has) $c2(x logged successfully!) $c(Everyone will be given his money back)
inc %money [ $+ [ %player1 ] ] $calc( %stake / 2)
inc %money [ $+ [ %player2 ] ] $calc( %stake / 2)
.timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] ))
.timer 1 10 endduel
}
elseif (%xLog != 3) {
.timer 1 10 msg $chan $c2( $nick ) $c(FAILED) $c2( %player2 ) $c(wins)
inc %money [ $+ [ %player2 ] ] %stake
.timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] ))
.timer 1 10 endduel
}
}
elseif (%turn [ $+ [ %player2 ] ] == on && %comp [ $+ [ $nick ] ] != on) {
if ($nick != %player2) { notice $nick $c(Not your turn!) }
elseif ($nick == %player2) {
var %xLog $rand(1,6)
msg $chan $c2( $nick ) $c(has attempted a) $c2(X LOG! LOL.) $c(We will now see if he can make it out. (10 seconds))
if (%xLog == 6) {
.timer 1 10 msg $chan $c2( $nick ) $c(has) $c2(x logged successfully!) $c(Everyone will be given his money back)
inc %money [ $+ [ %player1 ] ] $calc( %stake / 2)
inc %money [ $+ [ %player2 ] ] $calc( %stake / 2)
.timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney(%money [ $+ [ %player1 ] ] )) )
.timer 1 10 endduel
}
elseif (%xLog != 6) {
.timer 1 10 msg $chan $c2( $nick ) $c(FAILED) $c2( %player1 ) $c(wins)
inc %money [ $+ [ %player1 ] ] %stake
.timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] ))
.timer 1 10 endduel
}
}
}
elseif (%turn [ $+ [ %player2 ] ] == on && %comp [ $+ [ $nick ] ] == on) {
if ($nick != %player2) { notice $nick $c(Not your turn!) }
elseif ($nick == %player2) {
var %xLog $rand(1,3)
msg $chan $c2( $nick ) $c(has attempted a) $c2(X LOG! LOL.) $c(We will now see if he can make it out. (10 seconds))
if (%xLog == 3) {
.timer 1 10 msg $chan $c2( $nick ) $c(has) $c2(x logged successfully!) $c(Everyone will be given his money back)
inc %money [ $+ [ %player1 ] ] $calc( %stake / 2)
inc %money [ $+ [ %player2 ] ] $calc( %stake / 2)
.timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] ) )
.timer 1 10 endduel
}
elseif (%xLog != 3) {
.timer 1 10 msg $chan $c2( $nick ) $c(FAILED) $c2( %player1 ) $c(wins)
inc %money [ $+ [ %player1 ] ] %stake
.timer 1 10 msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] ) )
.timer 1 10 endduel
}
}
}
}
}
on *:TEXT:`whip*:#:{
if (%turn [ $+ [ %player1 ] ] == on && %whip. [ $+ [ %player2 ] ] == on) {
if ($nick != %player1) { notice $nick $c(Not your turn!) }
elseif (%player1 == $nick && %fury [ $+ [ %player1 ] ] != on) {
var %whip $rand(0,23)
dec %hp [ $+ [ %player2 ] ] %whip
if (%hp [ $+ [ %player2 ] ] <= 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %whip ) $c(on) $c2( %player2 ) $c(with his) $c2(abyssal whip, %player2 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
inc %money [ $+ [ %player1 ] ] %stake
msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] ))
endduel
}
elseif (%hp [ $+ [ %player2 ] ] > 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %whip ) $c(on) $c2( %player2 ) $c(with his) $c2(abyssal whip, %player2 ) $c(has) $c2( %hp [ $+ [ %player2 ] ] ) $c(hp left!)
notice %player2 Its your turn!
unset %turn [ $+ [ %player1 ] ]
set %turn [ $+ [ %player2 ] ] on
}
}
elseif (%player1 == $nick && %fury [ $+ [ %player1 ] ] == on) {
var %whip $rand(0,26)
dec %hp [ $+ [ %player2 ] ] %whip
if (%hp [ $+ [ %player2 ] ] <= 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %whip ) $c(on) $c2( %player2 ) $c(with his) $c2(abyssal whip, %player2 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
inc %money [ $+ [ %player2 ] ] %stake
msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] $+ ! %player2 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player2 ] ] ))
endduel
}
elseif (%hp [ $+ [ %player2 ] ] > 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %whip ) $c(on) $c2( %player2 ) $c(with his) $c2(abyssal whip, %player2 ) $c(has) $c2( %hp [ $+ [ %player2 ] ] ) $c(hp left!)
notice %player2 Its your turn!
unset %turn [ $+ [ %player1 ] ]
set %turn [ $+ [ %player2 ] ] on
}
}
}
elseif (%turn [ $+ [ %player2 ] ] == on && %whip [ $+ [ %player2 ] ] == on) {
if ($nick != %player2) { notice $nick $c(Not your turn!) }
elseif (%player2 == $nick && %fury [ $+ [ %player2 ] ] != on) {
var %Whip $rand(0,23)
dec %hp [ $+ [ %player1 ] ] %Whip
if (%hp [ $+ [ %player1 ] ] <= 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %Whip ) $c(on) $c2( %player1 ) $c(with his) $c2(abyssal whip, %player1 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
inc %money [ $+ [ %player2 ] ] %stake
msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] ))
endduel
}
elseif (%hp [ $+ [ %player1 ] ] > 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %Whip ) $c(on) $c2( %player1 ) $c(with his) $c2(abyssal whip, %player1 ) $c(has) $c2( %hp [ $+ [ %player1 ] ] ) $c(hp left!)
notice %player1 Its your turn!
unset %turn [ $+ [ %player2 ] ]
set %turn [ $+ [ %player1 ] ] on
}
}
elseif (%player2 == $nick && %fury [ $+ [ %player2 ] ] == on) {
var %Whip $rand(0,26)
dec %hp [ $+ [ %player1 ] ] %Whip
if (%hp [ $+ [ %player1 ] ] <= 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %Whip ) $c(on) $c2( %player1 ) $c(with his) $c2(abyssal whip, %player1 ) $c(has no hp left!) $c2( $nick ) $c( wins!)
inc %money [ $+ [ %player2 ] ] %stake
msg $chan $c2( $nick ) $c(now has) $c2( $reversemoney(%money [ $+ [ %player2 ] ] $+ ! %player1 )) $c(now has) $c2( $reversemoney( %money [ $+ [ %player1 ] ] ))
endduel
}
elseif (%hp [ $+ [ %player1 ] ] > 0) {
msg $chan $c2( $nick ) $c(has hit) $c2( %Whip ) $c(on) $c2( %player1 ) $c(with his) $c2(abyssal whip, %player1 ) $c(has) $c2( %hp [ $+ [ %player1 ] ] ) $c(hp left!)
notice %player1 Its your turn!
unset %turn [ $+ [ %player2 ] ]
set %turn [ $+ [ %player1 ] ] on
}
}
}
}
on *:TEXT:`buy*:#:{
if ($2 == help) {
notice $nick $c(ITEMS - PRICES) $c2(Whip - 1 $+ $chr(44) $+ 000 $+ $chr(44) $+ 000) $c2(Amulet of fury - 3 $+ $chr(44) $+ 000 $+ $chr(44) $+ 000) $c2(Laggy computer) $&
$c2( (a bit more chances to x Log, `buy comp to buy) - 500 $+ $chr(44) $+ 000)
}
if ($2 == whip) {
if (%money [ $+ [ $nick ] ] <= 1000000) {
notice $nick you cannot buy this yet!
}
elseif (%money [ $+ [ $nick ] ] > 1000000) {
notice $nick $c(you can now use a ) $c2(whip!) $c(to use the whip do) $c2(`whip!)
dec %Money [ $+ [ $nick ] ] 1000000
notice $nick you have $c2( %money [ $+ [ $nick ] ] ) left.
set %whip [ $+ [ $nick ] ] on
}
}
if ($2 == fury || $2 == ammy) {
if (%money [ $+ [ $nick ] ] <= 3000000) {
notice $nick you cannot buy this yet!
}
elseif (%money [ $+ [ $nick ] ] > 3000000) {
notice $nick $c(you now have a ) $c2(fury!) $c(You can now hit harder and get hit less!)
dec %Money [ $+ [ $nick ] ] 3000000
notice $nick you have $c2( %money [ $+ [ $nick ] ] ) left.
set %fury [ $+ [ $nick ] ] on
}
}
if ($2 == comp) {
if (%money [ $+ [ $nick ] ] <= 500000) {
notice $nick you cannot buy this yet
}
elseif (%money [ $+ [ $nick ] ] > 500000) {
dec %money [ $+ [ $nick ] ] 500000
notice $nick you bought a laggy comp! <- L why? You now have a bit more chances to x Log!
notice $nick you have $c2(%money [ $+ [ $nick ] ] ) left.
set %comp [ $+ [ $nick ] ] on
}
}
}