PasteBIN
תגיות
התחבר
הרשמה
למה מירק?
עמוד ראשי
5678 הודעות
3399 נושאים
4465 רשומים
584 מחוברים כרגע
יוצר: Xronic
גירסא: 5.6
תיאור: מזמין אנשים לקהילות ADV עם +k , וגם מזמין רגיל
הפעלה: יש להגדיר את האוונרים על הבוט (לפי QACC) ולעשות לבוט בפרטי !i Nick
דרישות: ערוץ עם הפקודה הבא: /msg q chanflsgs #channel +k או ערוץ בלי הפקודה
תמונה: אין
הוספתי דיאלוג
קוד: בחר הכל
;Bot By Xronic
;Please dont chanage credits
;Have Bug? Pme in IRC [P51]`Xronic
on *:text:*:?: {
if ($istok(%ib.owners,$gettok($address($nick,2),2,64),32)) {
if ($1 == %b.sign $+ Set-chan) { set %ib.chan $2 | msg $nick %color1 Done! %color2 | timer 1 3 /join %ib.chan }
elseif ($1 == %b.sign $+ Set-sign) { set %b.sign $2 | msg $nick %color1 Done! %color2 }
elseif ($1 == %b.sign $+ Delete-all-owners) { unset %ib.owners | msg $nick %color1 Done! %color2 }
elseif ($1 == %b.sign $+ Set-style1) { set %color1 $2 | msg $nick %color1 Done! %color2 }
elseif ($1 == %b.sign $+ Set-style2) { set %color2 $2 | msg $nick %color1 Done! %color2 }
elseif ($1 == %b.sign $+ Set-style3) { set %color3 $2 | msg $nick %color1 Done! %color2 }
elseif ($1 == %b.sign $+ RestartBot) { RestBot | msg $nick %color1 Done! %color2 }
elseif ($1 == %b.sign $+ Help) || ($1 == %b.sign $+ commands) && (!%flood-pm) { Commands }
elseif ($1 == %b.sign $+ Invite) || ($1 == %b.sign $+ I) && (!%flood-pm) { Invite-Normal $2 }
elseif ($1 == %b.sign $+ invite-adv) || ($1 == %b.sign $+ i-adv) && (!%flood-pm) { Invite-adv $2 }
elseif ($1 == %b.sign $+ Del) || ($1 == %b.sign $+ Remove) && (!%flood-pm) { Remove-adv $2 }
elseif ($1 == %b.sign $+ Add-o) || ($1 == %b.sign $+ Add-owner) && ($2 $+ .users.quakenet.org isin %ib.owners) && (!%flood-pm) { timer 1 0 msg $nick %color1 $+ %color3 $2 $+ .users.quakenet.org 0is already Owner %color2 | set -u2 %flood-pm 1 }
elseif ($1 == %b.sign $+ Add-O) || ($1 == %b.sign $+ Add-owner) && (!%flood-pm) { set %ib.owners %ib.owners $2 $+ .users.quakenet.org | msg $nick %color1 Done! the %color3 $+ $2 $+ .users.quakenet.org0 has been succesfully added from owners list %color2 }
elseif ($1 == %b.sign $+ Del-O) || ($1 == %b.sign $+ Del-owner) && ($2 $+ .users.quakenet.org !isin %ib.owners) && (!%flood-pm) { timer 1 1.5 msg $nick %color1 %color3 $+ Error!0 No Such Q account %color2 | set -u2 %flood-pm 1 }
elseif ($1 == %b.sign $+ del-o) || ($1 == %b.sign $+ Del-owners) && (!%flood-pm) { set %ib.owners $remove(%ib.owners,$2 $+ .users.quakenet.org) | timer 1 0 msg $nick %color1 Done! the %color3 $+ $2 $+ .users.quakenet.org 0has been successfully removed from owners list. %color2 | set -u2 %flood-pm 1 }
elseif ($1 == %b.sign $+ Owners) { msg $nick %color1 0( $+ %color3 $+ Total Owners0,1: $+ $numtok(%ib.owners,32) $+ $+ 0,1) %color2 | Show-Owners }
elseif ($1 == %b.sign $+ Notice) || ($1 == %b.sign $+ N) && (!%flood-pm) { //mode %ib.chan -N+m | msg %ib.chan %color1 $2- %color2 | //mode %ib.chan +N-m | msg $nick %color1 The notice sent for channel. %color2 | set -u2 %flood-pm 1 }
}
}
alias Commands {
msg $nick %color1 Bot Help By %color3 $+ Xronic %color2
msg $nick %color1 %color3 $+ %b.sign $+ 0Help/Commands ¬ %color3 $+ %b.sign $+ 0Invite/i (מזמין אנשים לערוץ) ¬ %color3 $+ %b.sign $+ 0I-adv/Invite-adv (מזמין אנשים לערוץ שהערוץ נעול +k) ¬ %color3 $+ %b.sign $+ 0Del/Remove (מוחק אנשים שהיה להם גישה בערוץ נעול +k) ¬ %color3 $+ %b.sign $+ 0Notice/N (שולח לערוץ נוטיס) ¬ %color3 $+ %b.sign $+ 0Del-O/Del-Owner (מוחק אוונרים אשר מרשימת האוונרים) ¬ %color3 $+ %b.sign $+ 0Add-O/Add-Owner (מוסיף אוונר לרשימת האוונרים) ¬ %color3 $+ %b.sign $+ 0Owners (מראה לך את כל האוונרים של הבוט) %color2
msg $nick %color1 %color3 $+ %b.sign $+ 0Set-chan (להגדיר את הערוץ) ¬ %color3 $+ %b.sign $+ 0Set-sign (להגדיר את הסימן עבור לבוט) ¬ %color3 $+ %b.sign $+ 0Delete-all-owners (מוחק את כל האוונרים) ¬ %color3 $+ %b.sign $+ 0Set-style1 (מגדיר צבע לסגנון מס' 1) ¬ %color3 $+ %b.sign $+ 0Set-style2 (מגדיר צבע לסגנון מס' 2) ¬ %color3 $+ %b.sign $+ 0Set-style3 (מגדיר צבע לסגנון מס' 3) ¬ %color3 $+ %b.sign $+ 0RestartBot (מוחק את כל המשתנים שהגדרתם) %color2
set -u2 %flood-pm 1
}
alias Invite-adv {
/invite $2 %ib.chan
msg $1 %color1 You are invited to %color3 $+ %ib.chan 0flags: %color3 $+ +k0 %color2
/k $1
msg $nick %color1 Done! %color2
set -u2 %flood-pm 1
}
alias Remove-adv {
/Remove $1
msg $1 %color1 You are removed from this %color3 $+ %ib.chan %color2
msg $nick %color1 Done! %color2
set -u2 %flood-pm 1
}
alias Invite-Normal {
/invite $2 %ib.chan
msg $1 %color1 You are invited to %color3 $+ %ib.chan %color2
msg $nick %color1 Done! %color2
set -u2 %flood-pm 1
}
alias k { /msg q chanlev %ib.chan $1 +k }
alias Remove { /msg q chanlev %ib.chan $1 -k }
alias Show-Owners {
msg $nick %color1 %color3 $+ Owners list0: %ib.owners %color2
set -u2 %flood-pm 1
}
alias on-load {
set %ib.chan #$$?="Enter your channel (Without '#') !" | timer 1 2 join %ib.chan | echo -a %color1 The Bot Channel set to $+ %color3 %ib.chan $+ 0 %color2
set %b.sign $$?="Enter sign channel." | echo -a %color1 The Bot Sign set to $+ %color3 %b.sign $+ 0 %color2
Set %ib.owners %owners $input(Q account?,e,Q Owner account?) $+ .users.quakenet.org
set %color1 0,114[11 « 12140 | set %color2 0,111 » 14 ] | set %color3 11 | echo -a %color1 Done! %color2
}
alias RestBot { unset %ib.chan %b.sign %ib.owners %color1 %color2 %color3 }
on *:load:{ on-load }
dialog I_B {
title "InviteBot By Xronic Dialog"
size -1 -1 158 136
option dbu
tab "InviteBot", 13, 6 4 146 122
text "Write Channel:", 1, 12 36 40 10, tab 13
edit "", 2, 56 37 51 10, tab 13
button "Set", 4, 112 36 34 12, tab 13
text "Write Sign (!):", 5, 10 56 40 10, tab 13
edit "", 6, 56 56 51 10, tab 13
button "Set", 8, 112 55 34 12, tab 13
button "RestartBot", 14, 58 71 40 10, tab 13
text "Bot Style", 10, 57 85 40 10, tab 13
button "Orange and black", 11, 17 98 50 12, tab 13
button "Blue and black", 12, 77 98 50 12, tab 13
link "ww.P51.co.il", 16, 11 117 42 6, tab 13
text "InviteBot Settings", 27, 56 22 44 6, tab 13
tab "Owners System", 15
button "Add", 19, 106 33 34 12, tab 15
button "Del", 23, 107 49 34 12, tab 15
link "www.P51.co.il", 24, 14 113 34 6, tab 15
text "End Dialog By Xronic", 28, 83 110 60 10, tab 15
text "Owners:", 7, 62 22 22 6, tab 15
edit "", 3, 43 32 60 12, tab 15
button "Del all owners", 17, 33 84 40 12, tab 15
edit "", 9, 43 50 60 12, tab 15
text "Add Owner:", 18, 8 34 30 6, tab 15
text "Del Owner:", 20, 12 52 26 6, tab 15
button "Show owners", 21, 84 85 34 12, tab 15
}
alias IB { dialog -m I_B I_B }
on *:dialog:I_B:sclick:*:{
if ($did == 4) { set %ib.chan $did(2) | echo -a Channel is: %ib.chan $+ . }
if ($did == 8) { set %b.sign $did(6) | echo -a Sign is: %b.sign $+ . }
if ($did == 16) || ($did == 24) { url www.p51.co.il }
if ($did == 14) { RestBot | echo -a Done! RestBot completed. }
if ($did == 11) { set %color1 0,114[7 « 12140 | set %color2 0,17 » 14] | set %color3 7 | echo -a %color1 Done! %color2 }
if ($did == 12) { set %color1 0,114[11 « 12140 | set %color2 0,111 » 14 ] | set %color3 11 | echo -a %color1 Done! %color2 }
if ($did == 19) { set %ib.owners %ib.owners $did(3) $+ .users.quakenet.org | echo -a Done! Owner added. }
if ($did == 23) { set %ib.owners $remtok(%ib.owners,$did($dname,9) $+ .users.quakenet.org,32) | did -r $dname 9 | echo -a Done! Owner removed. }
if ($did == 17) { unset %ib.owners | echo -a Done! All owners are removed. }
if ($did == 21) { $input(Owners List ( $+ $numtok(%ib.owners,32) $+ ) $+ : $crlf $+ $replace(%ib.owners,$chr(32),$crlf),o,Owners) }
}
Menu * {
InviteBot Dialog { IB }
}
