ON !*:TEXT:*:#: {
tokenize 32 $strip($1-,burci)
if ($1 == !bet) {
if (!$check_mod($nick,$chan)) { .msg $chan $+ $nick $+ Du darfst das nicht machen! | return }
if (!$2) { .msg $chan Fehler! $nick Da ist wohl was schief gelaufen nutze den Befehl !bethelp| return }
if ($2 == open) || ($2 == start) || ($2 == on) {
unset %bet_win %bet_lose %bet %bet_pause
if (%bet) && ($gettok(%bet,2,32) !== $chan) { return }
if (%bet) { .msg $chan Fehler! $nick Es ist gerade schon eine Wette am laufen! Versuche es später nochmal oder nutze den Befehl !bet stop um die Wette zu unterbrechen! | return }
set -e %bet $nick $chan
.msg $chan Die Wette wurde von $nick gestartet. Um mitzumachen schreibt entweder !win oder !lose in den Chat der Bot wird euch in die Listen eintragen! Du verliest 25 Coins oder gewinnst 30 Coins
write -c wettenwin.txt
write -c wettenlose.txt
}
if ($2 == stop) || ($2 == end) || ($2 == off) {
if (%bet) && ($gettok(%bet,2,32) !== $chan) { return }
if (!%bet) { .msg $chan ( $+ $nick $+ ): Fehler! Es ist doch garkeine Wette am laufen $nick. Versuche es gleich nochmal oder nutze den Befehl !bet start um eine Wette neue zu starten! | return }
unset %bet_win %bet_lose %bet %bet_pause
msg # $+ $nick $+ Die Wette wurde gestoppt.
}
if ($2 == resume) {
if (%bet) && ($gettok(%bet,2,32) !== $chan) { return }
if (!%bet) { .msg $chan ( $+ $nick $+ ): Fehler! Es ist doch garkeine Wette am laufen $nick. Versuche es gleich nochmal oder nutze den Befehl !bet start um eine Wette neue zu starten! | return }
if (!%bet_pause) { .msg $chan ( $+ $nick $+ ): Fehler! Es ist garkeine Wette pausiert $nick. Versuche es gleich nochmal oder nutze den Befehl !bet start um eine Wette neue zu starten! | return }
unset %bet_pause
.msg $chan ( $+ $nick $+ ): Die Wette wurde pausiert.
}
if ($2 == pause) {
if (%bet) && ($gettok(%bet,2,32) !== $chan) { return }
if (!%bet) { .msg $chan ( $+ $nick $+ ): Fehler! Es ist doch garkeine Wette am laufen $nick. Versuche es gleich nochmal oder nutze den Befehl !bet start um eine Wette neue zu starten! | return }
if (%bet_pause) { .msg $chan ( $+ $nick $+ ): Fehler! Die Wette ist doch schon pausiert! Nutze den Befehl !bet weiter | return }
set -e %bet_pause $nick
.msg $chan ( $+ $nick $+ ): Die Wette wurde pausiert.
}
if ($2 == result) || ($2 == results) {
if (%bet) && ($gettok(%bet,2,32) !== $chan) { return }
if (!%bet) { .msg $chan ( $+ $nick $+ ): Fehler! Es ist doch garkeine Wette am laufen $nick. Versuche es gleich nochmal oder nutze den Befehl !bet start um eine Wette neue zu starten! | return }
if (!$3) { .msg $chan ( $+ $nick $+ ): Fehler! Versuche es nochmal und gebe das Ergebnis ein. | return }
if ($3 == win) || ($3 == won) {
if (%bet) && ($gettok(%bet,2,32) !== $chan) { return }
.msg $chan ( $+ $nick $+ ) Die Wette wurde gestoppt um Herauszufinden wer gewonnen hat, bitte warte einen Moment...
if (!%bet_win) { .msg $chan ( $+ $nick $+ ): Hier ist kein Gewinner niemand hat gedacht, dass Joshy gewinnt. }
elseif (%bet_win) { .msg $chan ( $+ $nick $+ ): Die Gewinner sind %bet_win - (Anzahl an Gewinnern: $numtok(%bet_win,44) $+ ) }
if (%bet_lose) { bet_delpoints $chan %bet_lose }
if (%bet_win) { bet_addpoints $chan %bet_win }
unset %bet_win %bet_lose %bet %bet_pause
}
if ($3 == lose) || ($3 == lost) {
if (%bet) && ($gettok(%bet,2,32) !== $chan) { return }
.msg $chan Die Wette wurde von $nick gestoppt um Herauszufinden wer gewonnen hat, bitte warte einen Moment...
if (!%bet_lose) { .msg $chan ( $+ $nick $+ ): Hier ist kein Gewinner niemand hat gedacht, dass Joshy verliert. }
elseif (%bet_lose) { .msg $chan ( $+ $nick $+ ): Die Gewinner sind %bet_lose - (Anzahl an Gewinnern: $numtok(%bet_lose,44) $+ ) }
if (%bet_lose) { bet_addpoints $chan %bet_lose }
if (%bet_win) { bet_delpoints $chan %bet_win }
unset %bet_win %bet_lose %bet %bet_pause
}
}
}
if ($1 == !win) {
if (!$check_done_bronze($nick,$chan)) {
msg # /me $nick du musst erst Bronze sein bevor du Wetten darfst! Sammle erst 50 Punkte bzw. kaufe dir Bronze mit "!bronze"!
}
else {
if (($2 isalpha) || ($2 < 0)) { .msg $chan $nick Du musst mindestens ein Coin setzen um teilzunehmen! | return }
var %topic $+($chan,.,$nick)
var %points $calc($readini(Points.ini,%topic,Points) + $1)
write -n wettenwin.txt %topic Points $2
if (%bet) ($gettok(%bet,2,32) !== $chan) { return }
if (!%bet) { .msg $chan ( $+ $nick $+ ): Fehler! Es ist doch garkeine Wette am laufen $nick. Versuche es gleich nochmal oder nutze den Befehl !bet start um eine Wette neue zu starten! | return }
if (%bet_pause) { return }
var %fix = $chan $+ . $+ $nick
var %p = $readini(Points.ini,n,%fix,Points)
if (!%p) { .msg $chan ( $+ $nick $+ ): Fehler! Die Wette konnte nicht Platziert werden! Du hast nicht genügend Coins. | return }
if (%p < 25) { .msg $chan ( $+ $nick $+ ): Fehler! Du hast %p Coins aber für die Wette brauchst du mindestens 25 Coins! | return }
if ($istok(%bet_win,$nick,44)) { .msg $chan ( $+ $nick $+ ): Fehler! Du hast bereits gewettet, dass Joshy gewinnt! | return }
if ($istok(%bet_lose,$nick,44)) { set -e %bet_lose $remtok(%bet_lose,$nick,1,44) | var %ch = 1 }
set -e %bet_win $addtok(%bet_win,$nick,44)
.msg $chan /me $iif(%ch,have change your,) Die Wette von " $+ $nick $+ " wurde platziert! - viel Glück!
}
}
if ($1 == !lose) || ($1 == !lost) {
if (!$check_done_bronze($nick,$chan)) {
msg # /me $nick du musst erst Bronze sein bevor du Wetten darfst! Sammle erst 50 Punkte bzw. kaufe dir Bronze mit "!bronze"!
}
else {
if (($2 isalpha) && ($2 isnum <= 10)) { .msg $chan $nick Du musst mindestens ein Coin setzen um teilzunehmen! | return }
var %topic $+($chan,.,$nick)
var %points $calc($readini(Points.ini,%topic,Points) + $1)
write -n wettenlose.txt %topic Points %points
if (%bet) && ($gettok(%bet,2,32) !== $chan) { return }
if (!%bet) { .msg $chan ( $+ $nick $+ ): Fehler! Es ist doch garkeine Wette am laufen $nick. Versuche es gleich nochmal oder nutze den Befehl !bet start um eine Wette neue zu starten! | return }
if (%bet_pause) { return }
var %fix = $chan $+ . $+ $nick
var %p = $readini(Points.ini,n,%fix,Points)
if (!%p) { .msg $chan ( $+ $nick $+ ): Fehler! Die Wette konnte nicht Platziert werden! Du hast nicht genügend Coins. | return }
if (%p < 25) { .msg $chan ( $+ $nick $+ ): Fehler! Du hast %p Coins aber für die Wette brauchst du mindestens 25 Coins! | return }
if ($istok(%bet_lose,$nick,44)) { .msg $chan ( $+ $nick $+ ): Fehler! Du hast bereits gewettet, dass Joshy verliert! | return }
if ($istok(%bet_win,$nick,44)) { set -e %bet_win $remtok(%bet_win,$nick,1,44) | var %ch = 1 }
set -e %bet_lose $addtok(%bet_lose,$nick,44)
.msg $chan $iif(%ch,have change your,) Die Wette von " $+ $nick $+ " wurde platziert! - viel Glück!
}
}
if ($1 == !remove) {
if (!$check_done_bronze($nick,$chan)) {
msg # /me $nick du musst erst Bronze sein bevor du Wetten darfst! Sammle erst 50 Punkte bzw. kaufe dir Bronze mit "!bronze"!
}
else {
if (%bet) && ($gettok(%bet,2,32) !== $chan) { return }
if (!%bet) { .msg $chan ( $+ $nick $+ ): Fehler! Es ist doch garkeine Wette am laufen $nick. Versuche es gleich nochmal oder nutze den Befehl !bet start um eine Wette neue zu starten! | return }
if (%bet_pause) { return }
if ($istok(%bet_lose,$nick,44)) { set -e %bet_lose $remtok(%bet_lose,$nick,1,44) | .msg $chan ( $+ $nick $+ ): Deine Wette wurde entfernt! Du Wettest nicht mehr darauf, dass Joshy verliert! }
elseif ($istok(%bet_win,$nick,44)) { set -e %bet_win $remtok(%bet_win,$nick,1,44) | .msg $chan ( $+ $nick $+ ): Deine Wette wurde entfernt! Du Wettest nicht mehr darauf, dass Joshy gewinnt! }
else { .msg $chan ( $+ $nick $+ ): Fehler! Du hast noch nicht gewettet! }
}
}
if ($1 == !results) || ($1 == !stats) {
if (!$check_mod($nick,$chan)) { .msg $chan ( $+ $nick $+ ): Fehler! Du darfst das nicht machen! | return }
if (%bet) && ($gettok(%bet,2,32) !== $chan) { return }
if (!%bet) { .msg $chan ( $+ $nick $+ ): Fehler! Es ist doch garkeine Wette am laufen $nick. Versuche es gleich nochmal oder nutze den Befehl !bet start um eine Wette neue zu starten! | return }
if (%bet_pause) { return }
.msg $chan ( $+ $nick $+ ): Bet(s) at win: $iif(%bet_win,$numtok(%bet_win,44),0)
.msg $chan ( $+ $nick $+ ): Bet(s) at lose: $iif(%bet_lose,$numtok(%bet_lose,44),0)
.msg $chan ( $+ $nick $+ ): Alle Wetten die Platziert wurden: $calc($iif(%bet_win,$numtok(%bet_win,44),0) + $iif(%bet_lose,$numtok(%bet_lose,44),0))
}
if ($1 == !mybet) {
if (!$check_done_bronze($nick,$chan)) {
msg # /me $nick du musst erst Bronze sein bevor du Wetten darfst! Sammle erst 50 Punkte bzw. kaufe dir Bronze mit "!bronze"!
}
else {
if (%bet) && ($gettok(%bet,2,32) !== $chan) { return }
if (!%bet) { .msg $chan ( $+ $nick $+ ): Fehler! Es ist doch garkeine Wette am laufen $nick. Versuche es gleich nochmal oder nutze den Befehl !bet start um eine Wette neue zu starten! | return }
if (%bet_pause) { return }
if ($istok(%bet_lose,$nick,44)) { .msg $chan ( $+ $nick $+ ): Du hast darauf gewetten, dass Joshy verliert! }
elseif ($istok(%bet_win,$nick,44)) { .msg $chan ( $+ $nick $+ ): Du hast darauf gewetten, dass Joshy gewinnt! }
else { .msg $chan ( $+ $nick $+ ): Fehler! Du hast noch nicht gewettet! }
}
if ($1 == !bethelp) { .msg $chan ( $+ $nick $+ ): Alle Befehle für das Bet System sind: !bet open - !bet stop - !bet pause - !bet resume - !bet result win/lose - !win - !lose - !remove - !results - !mybet }
}
}
alias check_mod {
if (!$1) { return }
if (!$2) { return }
if ($me !ison $2) { return 0 }
if ($1 !ison $2) { return 0 }
var %f = mods.txt
if (!$isfile(%f)) { return 0 }
if (!$lines(%f)) { return 0 }
var %r = $read(%f,nw,$1)
if (%r) { return 1 }
elseif (!%r) { return 0 }
}
alias bet_addpoints {
if (!$1) { return }
if (!%bet) { return }
var %GIVE_POINTS = $read(wettenwin.txt,$+(#,.,$nick),Points)
var %c = $1
var %l = $2
var %t = $numtok(%l,44)
var %i = 1
while (%i <= %t) {
var %n = $gettok(%l,%i,44)
var %fix = %c $+ . $+ %n
var %p = $calc($readini(Points.ini,%fix,Points) + %give_points * 1,05)
if (%n) { writeini -n $qt(Points.ini) %fix Points %p }
inc %i
}
}
alias bet_delpoints {
if (!$1) { return }
if (!%bet) { return }
var %TAKE_POINTS = $read(wettenlose.txt,$+(#,.,$nick),Points)
var %c = $1
var %l = $2
var %t = $numtok(%l,44)
var %i = 1
while (%i <= %t) {
var %n = $gettok(%l,%i,44)
var %fix = %c $+ . $+ %n
var %p = $calc($readini(Points.ini,%fix,Points) - %take_points)
if (%n) { writeini -n $qt(Points.ini) %fix Points %p }
inc %i
}
}
Last edited by Joshymanman; 24/01/16 05:00 PM.