PasteBIN
תגיות
התחבר
הרשמה
למה מירק?
עמוד ראשי
5678 הודעות
3399 נושאים
4466 רשומים
575 מחוברים כרגע
גרסא: 1.3
הסבר: יש לעשות קליק ימני,ולפתוח הכל. יש הסברים מותאמים בעברית. ע"י HELP במניו.
הורדה: יש אפשרות להוריד את הבוט.
מי שרוצה יכול להסתפק בקוד:
*אנא ממכם לא לשנות קדריט, תודה רבה!
קוד:
קוד: בחר הכל
; Lottery/Bigno Bot By `Xronic ;
; Please dont change credits ;
; version bot: 1.4 / update: soon ;
; //////////////////////////////// ;
; Variables (% | Exmaple: %b.chan) ;
; %b.chan = channel, %b.sign = ! ;
; //////////////////////////////// ;
on *:kick:%b.Chan: if ($read(bingoregs.txt,w,* $+ $address($knick,2)) { write -dl $+ $readn bingoregs.txt }
on *:ban:%b.chan: if ($read(bingoregs.txt,w,* $+ $banmask) { write -dl $+ $readn bingoregs.txt }
on *:part:%b.Chan: if ($read(bingoregs.txt,w,* $+ $wildsite) { write -dl $+ $readn bingoregs.txt }
on *:Quit: if ($read(bingoregs.txt,w,* $+ $wildsite) { write -dl $+ $readn bingoregs.txt }
on *:nick: if ($read(bingoregs.txt,w,* $+ $wildsite) { write -l $+ $readn bingoregs.txt $nick $wildsite }
on *:connect:{
.timer 1 2 /join %b.chan
echo -s %color1 Welcome to Xronic lotterybot Version: 1.4 %color2
echo -s %color1 Have Bug? do /q [P51]`Xronic %color2
echo -s %color1 Ty for you use in my bot %color2
echo -s %color1 Ty Vendetta for the help %color2
echo -s %color1 Good day. %color2
}
on *:load:{
set %b.chan $input(channel,e,channel( $+ %b.chan $+ )
set %b.sign $input(Sign,e,sign ex: !)
set %color1 0,1 [ 11 « 0 | set %color2 11 » 0 ]
echo -a %color1 on load settings is over! %color2
}
on *:text:*:%b.chan: {
if ($1 == %b.sign $+ Regs) && (%bingo.status == ON) && (!%flood) { bingoregs | set -u3 %flood 1 }
elseif (($1 == %b.sign $+ Regs) || ($1 == %b.sign $+ Reg) || ($1 == %b.sign $+ Status) || ($1 == %b.sign $+ Del) || $1 == %b.sign $+ prize)) && (%bingo.status == OFF) && (!%flood) { msg %b.chan %color1 There isn't lottery for the momnet, Ready for the next match. %color2 | set -u3 %flood 1 }
elseif (($1 == %b.sign $+ Commands) || ($1 == %b.sign $+ Help)) && (%bingo.status == OFF) && (!%flood) { msg %b.chan %color1 %color3 $+ Commands are: $+ %color4 $+ %color3 %b.sign $+ %color4 $+ Admin $+ %color3 %b.sign $+ %color4 $+ Prize $+ %color3 %b.sign $+ %color4 $+ Regs $+ %color3 %b.sign $+ %color4 $+ status $+ %color3 %b.sign $+ %color4 $+ Regs $+ %color3 %b.sign $+ %color4 $+ Last %color2 | set -u3 %flood 1 }
elseif (($1 == %b.sign $+ Commands) || ($1 == %b.sign $+ Help)) && (%bingo.status == ON) && (!%flood) { msg %b.chan %color1 %color3 $+ Commands are: $+ %color4 $+ %color3 %b.sign $+ %color4 $+ Admin $+ %color3 %b.sign $+ %color4 $+ Prize $+ %color3 %b.sign $+ %color4 $+ Regs $+ %color3 %b.sign $+ %color4 $+ status $+ %color3 %b.sign $+ %color4 $+ Regs $+ %color3 %b.sign $+ %color4 $+ Last %color2 | set -u3 %flood 1 }
elseif ($1 == %b.sign $+ Prize) && (%bingo.status == ON) && (!%flood) { msg %b.chan %color1 %color3 $+ The prize is: %color4 $+ %b.prize %color2 | set -u3 %flood 1 }
elseif ($1 == %b.sign $+ status) && (%bingo.status == ON) && (!%flood) { msg %b.chan %color1 %color3 $+ The lottery started in: %color4 $+ $+ $readini(Settings.ini,At,Date-time) $+ $+ %color3 admin: %color4 $+ $+ %b.admin $+ %color3 $+ prize: %color4 $+ $+ %b.prize $+ , %color4 $+ to register type: %color3 $+ %b.sign $+ %color4 $+ Reg $+ . %color2 | set -u3 %flood 1 }
elseif ($1 == %b.sign $+ Last) && (%bingo.status == OFF) && (!%flood) { msg %b.chan %color1 %color3 $+ The last lottery started in: %color4 $+ $+ $readini(Settings.ini,At,Date-time) $+ %color3 $+ prize: %color4 $+ $+ %b.prize $+ , %color3 $+ $+ admin: $+ $+ %color4 %b.admin $+ , %color3 $+ winner: %color4 $+ $+ %last.win $+ %color2 }
elseif ($1 == %b.sign $+ Admin) && (%bingo.status == ON) && (!%flood) { msg %b.chan %color1 %color3 $+ The admin is: %color4 $+ %b.admin %color2 | set -u3 %flood 1 }
if ($1 == %b.sign $+ Admins) && (!%flood) {
var %x = 1
while ($ini(Admins.ini,%x)) {
if ($readini(Admins.ini,$ini(Admins.ini,%x),Logged)) set %ononon %ononon $ini(Admins.ini,%x)
else set %ofofff %ofofff $ini(Admins.ini,%x)
inc %x
}
msg %b.chan %color1 Admins Are: 3 $+ %ononon 4 $+ %ofofff %color2
unset %ofofff , %ononon
}
elseif ($1 == %b.sign $+ Credits) && (!%flood) { msg %b.chan %color1 %color4 $+ Lottery bot was created by %color3 $+ Xronic %color4 $+ version: $+ %color3 1.4 %color2 | set -u3 %flood 1 }
elseif ($1 == %b.sign $+ Version) && (!%flood) { msg %b.chan %color1 Lotterybot version: 1.4 %color2 }
elseif (($1 == %b.sign $+ Del) || ($1 == %b.sign $+ Remove)) && (%bingo.status == ON) && (!%flood) {
if ($read(bingoregs.txt,w,* $+ $wildsite)) { write -dl $+ $readn bingoregs.txt | msg %b.chan %color1 %color3 $+ $+ $nick $+ $+ %color4 $+ , You are removed from the Lottery in success! %color2 | set -u2 %flood 1 }
else { msg %b.chan %color1 %color3 $+ $+ $nick $+ $+ %color4 $+ , You are not registered to the lottery! %color2 | set -u2 %flood 1 }
}
elseif ($1 == %b.sign $+ Reg) && (%bingo.status == ON) && (%b.tagg == 1) && (* $+ %b.tag $+ * iswm $nick) && (!%flood) { msg %b.chan %color1 %color3 $+ $+ $nick $+ $+ %color4 $+ , admin %color3 $+ $+ %b.admin $+ $+ %color4 blocked your tag! ( $+ %color3 $+ %b.tag $+ %color4 $+ ) %color2 | set -u3 %flood 1 }
elseif ($1 == %b.sign $+ Reg) && (%bingo.status == ON) && (!%flood) {
if ($read(bingoregs.txt,w,* $+ $wildsite)) { msg %b.chan %color1 %color3 $+ $+ $nick $+ $+ %color4 $+ , You are already register to the lottery %color2 | set -u3 %flood 1 | halt }
else { write bingoregs.txt $nick $wildsite | msg %b.chan %color1 %color3 $+ $+ $nick $+ $+ %color4 $+ , succesfully registered to the lottery now %color2 | set -u3 %flood 1
if ($lines(bingoregs.txt) == %b.users) { endbingo }
}
}
}
on *:text:$(%b.sign $+ *):*:{
tokenize 32 $mid($1-,2) | var %n = Ctl $nick,%c = Ctl %b.chan
if (!%Cfld) {
if ($target == %b.chan) || ($target !ischan) {
%e = Ctl $iif($target ischan,%b.chan,$nick)
if ($1 == Admins) { %e $Admins | inc -u5 %flood }
if ($Admins($right($wildsite,-4)).logged) {
if ($1 == TEXT) { %e TEXT | cfld }
}
}
if ($target !ischan) {
if ($1 == Login) && ($Admins($2 $3).login) && (!$Admins($right($wildsite,-4)).logged) { writeini Admins.ini $2 Logged $right($wildsite,-4) | %c $nick has been connected to admin account. User: $Admins($right($wildsite,-4)).user ( $+ $wildsite $+ ) | %n You have been connected to admin account. User: $Admins($right($wildsite,-4)).user ( $+ $wildsite $+ ) | /mode %b.chan +v $nick | inc -u5 %flood }
elseif ($1 == Logout) && ($Admins($right($wildsite,-4)).logged) { %c $nick has been disconnected from admin account. User: $Admins($right($wildsite,-4)).user $+ $Chr(44) Reason: Logout ( $+ $wildsite $+ ) | %n You have been disconnected to admin account. User: $Admins($right($wildsite,-4)).user $+ $Chr(44) ( $+ $wildsite $+ ) | remini Admins.ini $Admins($right($wildsite,-4)).user Logged | inc -u5 %flood }
elseif ($1 == Add && $5) {
if ($2 == Admin) {
if ($3 == %botpass) {
if ($Admins($4).isin) { %n Error: the username $4 is already in use $+ $chr(44) please try another user name. }
else { writeini Admins.ini $4 Pass $5 | %n Admin successfully added $+ $chr(44) for login /msg $me %Cign $+ login $4 $5 }
}
else { %n Error: the bot pass is wrong ! }
}
inc -u5 %flood
}
elseif ($1 == Del && $4) {
if ($2 == Admin) {
if ($3 == %botpass) {
if ($Admins($4).isin) { remini Admins.ini $4 | %n Admin successfully removed $+ $chr(44) user: $4 }
else { %n Error: the username $4 is not on the admins list. }
}
else { %n Error: the bot pass is wrong ! }
}
inc -u5 %flood
}
elseif ($1 == Change && $5) {
if ($2 == Botpass) {
if ($3 == %botpass) {
if ($4 == $5) { %n The bot pass is successfully changed from %botpass to $4 | set %botpass $4 }
else { %n Error: Wrong syntax. !Change botpass <botpass> <newbotpass> <newbotpass> }
}
else { %n Error: the bot pass is wrong ! }
}
inc -u5 %flood
}
if (!$Admins($right($wildsite,-4)).logged) halt
if ($1 == Help) || ($1 == commands) && (!%flood) { msg $nick %color1 Commands are: %b.sign $+ start, %b.sign $+ stop, %b.sign $+ set-users, %b.sign $+ set-admin, %b.sign $+ set-prize, %b.sign $+ set-mahur, %b.sign $+ set-lomahur, %b.sign $+ set-chan, %b.sign $+ set-winner, %b.sign $+ setblock-tag, %b.sign $+ statusblock-tag (options: 1/2), %b.sign $+ Statusbot (options: 0/1) %color2 | set -u3 %flood 1 }
elseif ($1 == start) && (!%flood) { unset %bingo.status | startbingo-pm | set -u3 %flood 1 }
elseif ($1 == start) && (%bingo.status == ON) && (!%flood) { msg $nick %color1 The Lottery 9running %color4 $+ in the channel.| set -u3 %flood 1 }
elseif ($1 == stop) { notbingo }
elseif ($1 == stop) && (%bino.status == OFF) && (!%flood) { msg $nick %color1 Lottery isn't running at the momenet. %color2 | set -u3 %flood 1 }
elseif ($1 == set-users) && (!%flood) { set %b.users $2 | set %b.users $2- | msg $nick %color1 Done! %color2 | set -u3 %flood 1 }
elseif ($1 == set-admin) && (!%flood) { set %b.admin $2- | msg $nick %color1 Done! %color2 | set -u3 %flood 1 }
elseif ($1 == set-prize) && (!%flood) { set %b.prize $2- | msg $nick %color1 Done! %color2 | set -u3 %flood 1 }
elseif ($1 == set-mahur) && (!%flood) { set %bingo.rand ON | msg $nick %color1 Done!, now setting the winner for lottery commands: !set-winner <nick> Exmaple: !set-winner Xronic %color2 | set -u3 %flood 1 }
elseif ($1 == newwiner) && (!%flood) { set %n.win ON | newwiner }
elseif ($1 == set-lomahur) && (!%flood) { set %bingo.rand OFF | unset %b.winner | msg $nick %color1 Done! %color2 | set -u3 %flood 1 }
elseif ($1 == set-chan) && (!%flood) { set %b.chan $2 | msg $nick %color1 Done! %color2 | set -u3 %flood 1 }
elseif ($1 == set-winner) && (!%flood) { set %b.winner $2 | msg $nick %color1 Done! %color2 | set -u3 %flood 1 }
elseif ($1 == set-blocktag) && (!%flood) { set %b.tag $2- | msg $nick %color1 Done! %color2 | set -u3 %flood 1 }
elseif ($1 == statusblock-tag) && (!%flood) { set %b.tagg $2 | msg $nick %color1 Done %color2 | set -u3 %flood 1 }
elseif ($1 == StatusBot) && (!%flood) { set %bingo.run $2 | msg $nick %color1 Done %color2 | set -u3 %flood 1 }
elseif ($1 == settings) && (!%flood) {
if ($numtok(%b.chan,32) isnum 1-100) { msg $nick %color1 Cahnnel is: %b.chan %color2 | set -u3 %flood 1 }
if ($numtok(%b.sign,32) isnum 1-100) { msg $nick %color1 Sign is: %b.sign %color2 | set -u3 %flood 1 }
if ($numtok(%b.prize,32) isnum 1-100) { msg $nick %color1 Prize is: %b.prize %color2 | set -u3 %flood 1 }
if (%bingo.run == 0) { msg $nick %color1 StatusBot: 4,1OFF!0,1 %color2 | set -u3 %flood 1 }
if (%bingo.run == 1) { msg $nick %color1 StatusBot: 3,1ON!0,1 %color2 | set -u3 %flood 1 }
if ($numtok(%b.winner,32) isnum 1-100) { msg $nick %color1 Winner is: %b.winner %color2 | set -u3 %flood 1 }
if ($numtok(%b.admin,32) isnum 1-100) { msg $nick %color1 Admin is: %b.admin %color2 | set -u3 %flood 1 }
if (%bingo.rand == ON) { msg $nick %color1 Mahur status: 3,1ON!0,1 %color2 | set -u3 %flood 1 }
if ($numtok(%b.winner,32) == isnum 1-100) { msg $nick %color1 Winner: %b.winner %color2 | set -u3 %flood 1 }
if (%bingo.rand == OFF) { msg $nick %color1 Mahur status: 4,1OFF!0,1 %color2 | set -u3 %flood 1 }
}
}
}
}
alias Admins {
if ($1) {
if ($prop == user) { var %x = 1 | while (%x <= $ini(Admins.ini,0)) { if ($1 == $readini(Admins.ini,$ini(Admins.ini,%x),Logged)) return $ini(Admins.ini,%x) | inc %x } }
if ($prop == login) && ($readini(Admins.ini,$gettok($1,1,32),Pass) == $gettok($1,2,32)) { return $true }
if ($prop == isin) { var %x = 1 | while (%x <= $ini(Admins.ini,0)) { if ($1 == $ini(Admins.ini,%x)) { return $true | break } | inc %x } }
if ($prop == logged) { var %x = 1 | while (%x <= $ini(Admins.ini,0)) { if ($1 == $readini(Admins.ini,$ini(Admins.ini,%x),Logged)) { return $true | break } | inc %x } }
}
if (!$prop) { var %x = 1, %y = 0 | while (%x <= $ini(Admins.ini,0)) { var %admins = %admins $iif($readini(Admins.ini,$ini(Admins.ini,%x),Logged),3,4) $+ $ini(Admins.ini,%x) | if ($readini(Admins.ini,$ini(Admins.ini,%x),Logged)) inc %y | inc %x } | return Admins are ( $+ $iif(%y == 0,14,03) $+ %y $+ %Color1 $+ / $+ $ini(Admins.ini,0) $+ ) $replacE(%admins,$chr(32),$+(%Color1,$chr(44),$chr(32))) }
}
alias Ctl /msg $1 %color1 %Color4 $+ $2- %color2
alias bingoregs {
unset %timer
var %x 1,%k 1,%t
while (%x <= $lines(bingoregs.txt)) {
var %t = %t $gettok($read(bingoregs.txt,%x),1,32) | inc %x | inc %k
if (%k == 15) { inc %timer | .timer 1 $calc(%timer *2) msg %b.chan %color1 $iif(%timer == 1,Lottery regs ( $+ $Lines(bingoregs.txt) $+ / $+ %b.users $+ ): $+ $chr(32)) $+ $replace(%t,$chr(32),$+($chr(44),$chr(32))) %color2 | var %k $null,%t $null }
}
if (!$read(bingoregs.txt)) { msg %b.chan %color1 There are no registered users ( $+ $Lines(bingoregs.txt) $+ / $+ %b.users $+ ) %color2 }
elseif ($calc($lines(bingoregs.txt) - %x) < 15) { inc %timer | .timer 1 $calc(%timer *2) msg %b.chan %color1 $iif(%timer == 1,Lottery regs ( $+ $Lines(bingoregs.txt) $+ / $+ %b.users $+ ): $+ $chr(32)) $+ $replace(%t,$chr(32),$+($chr(44),$chr(32))) %color2 }
inc $(-u $+ $calc(%timer *2 +5)) %flood
unset %timer
}
alias endbingo {
.remove lastregs.txt
;lo mahur
mode %b.chan +m
.timer 1 10 mode %b.chan -m
if (%bingo.rand == OFF) {
set %b.winner $gettok($read(bingoregs.txt),1,32)
.timer 1 1 msg %b.chan %color1 Lotterybot is now mixing the %color3 $+ registers %color4 $+ please wait %color2
.timer 1 2 msg %b.chan %color1 I`m choose the %color3 $+ winner $+ %color4 please waiting 2secs.. %color2
.timer 1 4 msg %b.chan %color1 And the %color3 $+ winner $+ %color4 is ... %color2
.timer 1 5 msg %b.chan %color1 And the %color3 $+ winner $+ %color4 is ... %color2
.timer 1 6 msg %b.chan %color1 The winner is: %color3 $+ %b.winner $+ %color4 $+ , send now message to %color3 $+ %b.admin $+ %color4 to get your prize: %color3 $+ %b.prize $+ %color4 $+ . %color2
.timer 1 7 /notice %b.admin %color1 %color3 $+ System msg: $+ %color4 for do newwiner %color3 $+ %b.sign $+ %color4 $+ newwiner tpye: /msg $me %color3 $+ %b.sign $+ %color4 $+ newwiner %color2
}
;mahur
if (%bingo.rand == ON) {
.timer 1 1 msg %b.chan %color1 Lotterybot now mixing the %color3 $+ registers %color4 $+ please wait %color2
.timer 1 2 msg %b.chan %color1 I`m choose the winner please waiting 2secs.. %color2
.timer 1 4 msg %b.chan %color1 And the winner is ... %color2
.timer 1 5 msg %b.chan %color1 And the winenr is ... %color2
.timer 1 6 msg %b.chan %color1 The winner is: %color3 $+ %b.winner $+ %color4 $+ , send now message to %color3 $+ %b.admin $+ %color4 to get your prize: %color3 $+ %b.prize $+ %color4 $+ . %color2
.timer 1 7 /notice %b.admin %color1 %color3 $+ System msg: $+ %color4 for do newwiner %color3 $+ %b.sign $+ %color4 $+ newwiner tpye: /msg $me %color3 $+ %b.sign $+ %color4 $+ newwiner %color2
}
.timer 1 8 mode %b.chan +v %b.winner
.timer 1 8 msg %b.winner //echo -a %color1 Hello %b.winner $+ , You are won in %color3 $+ %b.chan %color4 $+ lottery send message to %color3 $+ %b.admin %color4 $+ to get you are prize %color2
set -u7 %flood on
.copy -o bingoregs.txt lastregs.txt
.remove bingoregs.txt
.timer 1 420 .remove lastregs.txt | .timer 1 421 set %n.win OFF
off
}
alias newwiner {
if (%n.win == OFF) { msg $nick %color1 Over the time for newwiner %color2 }
if (%bingo.rand == OFF) {
if (%n.win == ON) {
.timer 1 1 set %b.winner $gettok($read(lastregs.txt),1,32)
.timer 1 2 /mode %b.chan +m
.timer 1 3 msg %b.chan %color1 I choose a new winner right now. please waiting 2secs.. %color2
.timer 1 4 msg %b.chan %color1 Please wait 1sec. %color2
.timer 1 5 msg %b.chan %color1 The new winner is: %color3 $+ %b.winner $+ $+ %color4 $+ , send now message to %color3 $+ %b.admin $+ %color4 to get your prize: %color3 $+ %b.prize $+ %color4 $+ . %color2
.timer 1 6 /mode %b.chan +v %b.winner
}
}
if (%bingo.rand == ON) {
.timer 1 1 msg %b.chan %color1 I choose a new winner right now. please waiting 2secs.. %color2
.timer 1 2 msg %b.chan %color1 Please wait 1sec. %color2
.timer 1 3 msg %b.chan %color1 The new winner is: %color3 $+ %b.winner $+ $+ %color4 $+ , send now message to %color3 $+ %b.admin $+ %color4 to get your prize: %color3 $+ %b.prize $+ %color4 $+ . %color2
.timer 1 4 /mode %b.chan +v %b.winner
}
.timer 1 7 /mode %b.chan -m
.timer 1 120 set %n.win OFF
}
alias startbingo {
writeini settings.ini Lottery Number $calc($readini(Settings.ini,Lottery,Number) +1) | unset %b.ttag | set %bingo.status ON | set %regs | set %b.winner | writeini settings.ini At Date-time $time $date
.timer 1 1 mode %b.chan +m
.timer 1 3 msg %b.chan %color1 The lottery number < $+ %color3 $+ $+ $readini(Settings.ini,Lottery,Number) $+ $+ %color4 $+ > has been started at: %color3 $+ $+ $readini(Settings.ini,At,Date-time) $+ %color2
.timer 1 5 msg %b.chan %color1 %color3 $+ Details lottery: %color4 $+ admin: %color3 $+ $+ %b.admin $+ $+ %color4 prize: %color3 $+ $+ %b.prize $+ $+ %color4 users: %color3 $+ $+ %b.users $+ $+ %color4 sign: %color3 $+ $+ %b.sign $+ $+ %color4 %color2
.timer 1 7 msg %b.chan %color1 Commands: %color3 $+ %b.sign $+ %color4 $+ Reg %color3 $+ %b.sign $+ %color4 $+ Del %color3 $+ %b.sign $+ %color4 $+ Regs %color2
.timer 1 9 msg %b.chan %color1 The register started in more %color3 $+ (3 secs...) $+ %color4 $+ , ready for -m %color2
.timer 1 12 mode %b.chan -m
}
alias startbingo-pm {
if (%bingo.run == 0) {
msg $nick %color1 4,1 Error 0: are you not settings lottery status commands: !StatusBot 1 = Statusbot ON! %color2
}
if ($numtok(%b.users,32) == 0) {
msg $nick %color1 4,1 Error 0: are you not setting users commands: !set-users <users> example: !set-users 35 %color2
}
if (%bingo.status == ON) {
msg $nick %color1 Lottery is right now running in channel: %b.chan %color2
}
if ($numtok(%b.prize,32) == 0) {
msg $nick %color1 4,1 Error 0: are you not setting prize please set, commands: !set-prize <prize> exmaple: !set-prize VENT
}
if ($numtok(%b.admin,32) == 0) {
msg $nick %color1 4,1 Error 0: are you not setting admin please set, commands: !set-admin <admin> exmaple: !set-admin Xronic %color2
}
if (%bingo.rand == ON) {
if ($numtok(%b.winner,32) == 0) {
msg $nick %color1 4,1 Error 0: are you not setting winner please set, commands: !set-winner <winner> exmaple: !set-winner Xronic %color2
}
}
;Lo mahur
if (%bingo.run == 1) {
if (%bingo.rand == OFF) {
msg $nick %color1 $nick $+ ,are you succesfully started lottery in channel: %b.chan %color2
writeini settings.ini Lottery Number $calc($readini(Settings.ini,Lottery,Number) +1) | unset %b.ttag | echo -a done! 1 | set %bingo.status ON | set %regs | set %b.winner | echo -a done! 2 | writeini settings.ini At Date-time $time $date
.timer 1 1 mode %b.chan +m
.timer 1 3 msg %b.chan %color1 The lottery number < $+ %color3 $+ $+ $readini(Settings.ini,Lottery,Number) $+ $+ %color4 $+ > has been started at: %color3 $+ $+ $readini(Settings.ini,At,Date-time) $+ %color2
.timer 1 5 msg %b.chan %color1 %color3 $+ Details lottery: %color4 $+ admin: %color3 $+ $+ %b.admin $+ $+ %color4 prize: %color3 $+ $+ %b.prize $+ $+ %color4 users: %color3 $+ $+ %b.users $+ $+ %color4 sign: %color3 $+ $+ %b.sign $+ $+ %color4 %color2
.timer 1 7 msg %b.chan %color1 Commands: %color3 $+ %b.sign $+ %color4 $+ Reg %color3 $+ %b.sign $+ %color4 $+ Del %color3 $+ %b.sign $+ %color4 $+ Regs %color2
.timer 1 9 msg %b.chan %color1 The register started in more %color3 $+ (3 secs...) $+ %color4 $+ , ready for -m %color2
.timer 1 12 mode %b.chan -m
}
}
;Mahur
if (%bingo.run == 1) {
if (%bingo.rand == ON) {
msg $nick %color1 $nick $+ ,are you succesfully started lottery in channel: %b.chan %color2
writeini settings.ini Lottery Number $calc($readini(Settings.ini,Lottery,Number) +1) | unset %b.ttag | set %bingo.status ON | set %regs | writeini settings.ini At Date-time $time $date
.timer 1 1 mode %b.chan +m
.timer 1 3 msg %b.chan %color1 The lottery number < $+ %color3 $+ $+ $readini(Settings.ini,Lottery,Number) $+ $+ %color4 $+ > has been started at: %color3 $+ $+ $readini(Settings.ini,At,Date-time) $+ %color2
.timer 1 5 msg %b.chan %color1 %color3 $+ Details lottery: %color4 $+ admin: %color3 $+ $+ %b.admin $+ $+ %color4 prize: %color3 $+ $+ %b.prize $+ $+ %color4 users: %color3 $+ $+ %b.users $+ $+ %color4 sign: %color3 $+ $+ %b.sign $+ $+ %color4 %color2
.timer 1 7 msg %b.chan %color1 Commands: %color3 $+ %b.sign $+ %color4 $+ Reg %color3 $+ %b.sign $+ %color4 $+ Del %color3 $+ %b.sign $+ %color4 $+ Regs %color2
.timer 1 9 msg %b.chan %color1 The register started in more %color3 $+ (3 secs...) $+ %color4 $+ , ready for -m %color2
.timer 1 12 mode %b.chan -m
}
}
}
alias notbingo {
if (%bingo.status == ON) && (!%flood) {
mode %b.chan -m
/OFF
msg %b.chan %color1 The lottery has been finished by ( $+ $+ $nick $+ $+ ) %color2
msg $nick %color1 The lottery succesfully finished by ( $+ $+ $nick $+ $+ ) %color2
}
}
alias OFF {
unset %bingo.status | set %bingo.status OFF | unset %b.winner | set %bingo.run 0 | set %b.tagg 0 | set %bingo.rand OFF
if ($numbok(%b.tag,32) == 0) { set %b.tagg 0 }
if ($numtok(%b.tag,32) isnum 1-100 $+ ) { set %b.tagg 1 }
}
dialog LottetySettings {
title "Lotterybot settings"
size -1 -1 117 155
option dbu
text "Set channel:", 1, 6 8 36 10
edit "", 2, 45 8 69 11
edit "", 3, 45 23 69 11
text "Set sign (!):", 4, 6 23 36 10
text "Admin bigno:", 5, 6 38 36 10
edit "", 6, 45 38 69 11
text "Prize bigno:", 7, 6 53 36 10
edit "", 8, 45 53 69 11
text "Users bigno:", 9, 6 68 36 10
edit "", 10, 45 68 69 11
text "Blocktag:", 11, 6 82 36 10
edit "", 12, 45 82 69 11
button "Start lottery", 13, 21 112 79 12
button "Stop lottery", 14, 21 126 79 12
text "No randonmally (mahur):", 15, 6 95 70 10
button "Yes", 16, 78 95 16 12
button "No", 17, 97 95 16 12
button "New winner", 18, 21 140 79 12
}
on *:dialog:LottetySettings:*:*: {
if ($devent == sclick) {
if ($did == 13) { set %b.chan $did(2) | set %b.sign $did(3) | set %b.admin $did(6) | set %b.prize $did(8) | set %b.users $did(10) | set %b.tag $did(12) | set %B.tagg $input(Set b.tagg,e,write 1 == ON/2 == OFF) | echo -a %color1 Lottery settings finished. %color2 | .timer 1 3 /startbingo }
if ($did == 14) { notbingo }
if ($did == 16) { set %bingo.rand ON | set %b.winner $input(Winner,e,Winner?) | echo -a %color1 Lottery Mahur $+ , Winner: %b.winner %color2 }
if ($did == 17) { set %bingo.rand OFF | echo -a %color1 Lottery lo mahur %color2 }
if ($did == 18) { newwiner | echo -a %color1 Newwiner run %color2 }
}
}
alias LS { dialog -m LottetySettings LottetySettings }
dialog style {
title "Styles"
size -1 -1 117 131
option dbu
text "Color 1 (Main): ", 1, 3 15 41 10
text "Color 2 (Alt): ", 2, 3 28 41 10
edit "", 3, 48 15 65 11
text "Color 3 (Regullary): ", 5, 4 44 48 10
edit "", 6, 57 44 56 11
text "Color 4 (Regullary): ", 7, 4 59 48 10
edit "", 8, 57 58 57 11
text " Bot styles: ", 9, 39 90 44 10
text " You styles: ", 10, 39 2 44 10
button "Green and black", 11, 39 102 44 12
button "Blue and black", 12, 38 116 44 12
button "Save Colors", 13, 39 72 37 12
edit "", 4, 48 28 64 11
}
alias sy { dialog -m style style }
on *:dialog:style:*:*: {
if ($devent == sclick) {
if ($did == 13) { set %color1 $did(3) | set %color2 $did(4) | set %color3 $did(6) | set %color4 $did(8) | echo -a color1: %color1 color2 %color2 color3 %color3 $+ Xronic 1color4 %color4 $+ Xronic }
if ($did == 11) { Set %color1 0,1[ 9 « 0 | set %color2 9,1 » 0 ] | set %color3 9 | set %color4 0 | echo -a %color1 Done! %color2 }
if ($did == 12) { set %color1 0,1 [ 11 « 0 | set %color2 11 » 0 ] | set %color3 11 | set %color4 0 | echo -a %color1 Done! %color2 }
}
}
Menu * {
Xronic lotterybot version 1.4
.Lottery Settings { /LS }
.Admins system
..Set Botpass: var %p = $?=\"Type botpass" | $iif(%p,set %Botpass %p,echo -a Error: Type botpass)
..Clear Admins: .remove Admins.ini
..Open admins file: $iif($exists(Admins.ini),run Admins.ini,echo -a There are no admins.)
.Styles { /sy }
.Help {
window -e @Help
echo @help %color1 Add Admin: /msg $me !add admin <BotPass> <Nick> <Pass> %color2
echo @Help %color1 Del Admin: /msg $me !del admin <BotPass <Nick> %color2
echo @Help %color1 Login bot: /msg $me !login <Nick> <Pass> %color2
echo @Help %color1 All Commands: /msg $me !Commands/!Help when you logged to bot %color2
echo @Help %color1 Lottery Settings do: /LS %color2
echo @Help %color1 Lottery Style do: /sy %color2
}
Version 1.4:
מה שעודכן בגרסא החדשה 1.4,
דיאלוגים עקומים,נוספו אפשריות חדשות למערכת האדמינים.
Version 1.4: שוחרר בתאריך 8.10.20100 בשעה 17:31
*לא העליתי קובץ להורדה חדש, ניתן להוריד את הגרסא הישנה ולעדכן אותה דרך הקוד שרשום באתר.
נתראה בגרסא הבאה 1.5
