PasteBIN
תגיות
התחבר
הרשמה
למה מירק?
עמוד ראשי
5678 הודעות
3399 נושאים
4465 רשומים
532 מחוברים כרגע
יוצר: Xronic
גירסא: 3.2
תיאור: זה מעניין, בדיאלוג יש 4 לשוניות, כאשר בלשונית ראשונה מופיע: Newbot Settings.
ולשונית שניה מופיע: Owners. ובלשונית שלישית מופיע: Styles ובלשונית האחרונה מופיע: News Links
הסבר על כל לשונית ולשונית:
לשונית 1: ניתן להגדיר ערוץ (צ'אנל), ניתן להגדיר סימן כמו למשל: !, ו-3 הודעות רגילות שהבוט ירצה לרשום בערוץ.
לשונית 2: אוונרים, פה ניתן לך לראות את האוונרים להוסיף אוונר ולמחוק אוונר על הבוט.
לשונית 3: פה ניתן לך להגדיר צבעים לבוט.
לשונית 4: פה ניתן לך אפשרות לשים לינקים בשביל שהבוט יפרסם בכל 10 דק' את הלינקים שהגדרתה.
וזהו.
הפעלה:: קליק ימני<NewsBot By Xronic
או:
קוד: בחר הכל
/NBתמונה:
קוד:
קוד: בחר הכל
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Please Dont Change Credits
;; its one version by Xronic
;;Have Bug? Do /q [P51]`Xronic
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:load:{ on-load }
on *:connect: {
if (%News == ON) {
timer 0 600 /News
if (%NewsLinks == ON) {
timer 0 600 /News-Links
}
}
}
dialog N_B {
title "Newsbot by Xronic"
size -1 -1 160 112
option dbu
tab "Newsbot settigs", 1, 4 8 148 99
text "Channel:", 2, 13 30 22 8, tab 1
text "Sign:", 3, 12 44 22 8, tab 1
button "Set chan", 6, 96 30 30 10, tab 1
button "Set sign", 7, 96 43 30 10, tab 1
text "Msg1:", 10, 32 62 22 6, tab 1
button "Set msg1", 12, 70 60 30 10, tab 1
text "Msg2:", 13, 32 78 22 6, tab 1
button "Set msg2", 15, 70 76 30 10, tab 1
text "Msg3:", 16, 32 92 22 7, tab 1
button "Set msg3", 18, 70 90 30 10, tab 1
edit "", 9, -168 72 52 10, tab 1
edit "", 8, 40 43 52 10, tab 1
edit "", 11, 40 30 52 10, tab 1
text "Xronic Dialog", 48, 107 96 41 9, tab 1
tab "Owners", 4
text "Owners add: ", 19, 8 38 34 6, tab 4
text "Owners del: ", 20, 8 65 34 6, tab 4
button "Add", 23, 107 37 30 10, tab 4
button "Show owners", 24, 52 82 47 13, tab 4
button "Del", 25, 108 64 30 10, tab 4
edit "", 14, 50 62 52 10, tab 4
edit "", 21, 49 37 52 10, tab 4
tab "Styles", 5
button "Blue and black", 26, 63 31 50 10, tab 5
button "Orange and black", 27, 63 50 50 10, tab 5
button "Red and black", 28, 63 70 50 10, tab 5
button "Green and black", 29, 63 89 50 10, tab 5
text "Style1:", 30, 34 33 22 6, tab 5
text "Style2:", 31, 33 52 22 6, tab 5
text "Style3:", 32, 33 72 22 6, tab 5
text "Style4:", 33, 33 91 22 6, tab 5
tab "News Links", 17
text "Msg1:", 22, 10 30 22 8, tab 17
text "Msg2:", 34, 11 46 22 7, tab 17
text "Msg3:", 35, 11 62 22 7, tab 17
button "Set Link1", 36, 105 29 30 10, tab 17
edit "", 37, 42 29 52 10, tab 17
edit "", 38, 41 45 52 10, tab 17
edit "", 40, 41 62 52 10, tab 17
button "Set Link3", 41, 103 61 30 10, tab 17
text "Msg5:", 42, 13 96 22 6, tab 17
edit "", 43, 40 76 52 10, tab 17
button "Set Link4", 44, 104 76 30 10, tab 17
button "Set Link5", 45, 103 93 30 10, tab 17
text "Msg4:", 46, 12 80 22 6, tab 17
edit "", 47, 41 93 52 10, tab 17
button "Set Link2", 39, 105 45 30 10, tab 17
}
on *:dialog:N_B:sclick:*:{
if ($did == 6) { set %n.chan $did(11) | echo -a %stl1 Channel is: %n.chan $+ . %stl2 }
elseif ($did == 7) { set %n.sign $did(8) | echo -a %stl1 sign is: %n.sign $+ . %stl2 }
elseif ($did == 12) { set %msg1 $input(set msg:,e,msg?) | set %news ON | echo -a %stl1 msg1 is: %msg1 %stl2 }
elseif ($did == 15) { set %msg2 $input(set msg:,e,msg?) | echo -a %stl1 msg2 is: %msg2 %stl2 }
elseif ($did == 18) { set %msg3 $input(set msg:,e,msg?) | echo -a %stl1 msg3 is: %msg3 %stl2 }
elseif ($did == 23) { set %owners %owners $did(21) $+ .users.quakenet.org | echo -a %stl1 owners is added: $did(21) $+ .users.quakenet.org %stl2 }
elseif ($did == 25) { set %owners $remtok(%owners,$did($dname,14) $+ .users.quakenet.org,32) | did -r $dname 14 | echo -a %stl1 Done! Owner removed! %stl2 }
elseif ($did == 24) { $input(Owners List ( $+ $numtok(%owners,32) $+ ) $+ : $crlf $+ $replace(%owners,$chr(32),$crlf),o,Owners) }
elseif ($did == 26) { set %stl1 0,114[7 « 12140 | set %stl2 0,17 » 14] | set %stl3 7 | echo -a %stl1 Done! %stl2 }
elseif ($did == 27) { set %stl1 0,114[11 « 12140 | set %stl2 0,111 » 14 ] | set %stl3 11 | echo -a %stl1 Done! %stl2 }
elseif ($did == 28) { set %stl1 0,114[4 « 12140 | set %stl2 0,14 » 14] | set %stl3 4 | echo -a %stl1 Done! %stl2 }
elseif ($did == 29) { set %stl1 0,114[9 « 12140 | set %stl2 0,19 » 14 ] | set %stl3 9 | echo -a %stl1 Done! %stl2 }
elseif ($did == 36) {
set %msg-link1 $did(37) | set %lenmsglink-1 $len(%msg-link1) | echo -a %stl1 MSG-link1: %msg-link1 %stl2 | set %NewsLinks ON
if (%lenmsglink-1 isnum 17-19) { echo -a %stl1 Error! %stl2 | unset %msg-link1 | set %msg-link1 $input(לכן שים מחדש את הלינק:,e,שגיאה: מספר האותיות תואם לספרה 18/17) }
}
elseif ($did == 39) {
set %msg-link2 $did(38) | set %lenmsglink-2 $len(%msg-link2) | echo -a %stl1 MSG-link2: %msg-link2 %stl2
if (%lenmsglink-2 isnum 16-20) { echo -a %stl1 Error! %stl2 | unset %msg-link2 | set %msg-link2 $input(לכן שים מחדש את הלינק:,e,שגיאה: מספר האותיות תואם לספרה 18/17) }
}
elseif ($did == 41) {
set %msg-link3 $did(40) | set %lenmsglink-3 $len(%msg-link3) | echo -a %stl1 MSG-link3: %msg-link3 %stl2
if (%lenmsglink-3 isnum 16-20) { echo -a Error! | unset %msg-link3 | set %msg-link3 $input(לכן שים מחדש את הלינק:,e,שגיאה: מספר האותיות תואם לספרה 18/17) }
}
elseif ($did == 44) {
set %msg-link4 $did(43) | set %lenmsglink-4 $len(%msg-link4) | echo -a %stl1 MSG-link4: %msg-link4 %stl2
if (%lenmsglink-4 isnum 16-20) { echo -a Error! | unset %msg-link4 | set %msg-link4 $input(לכן שים מחדש את הלינק:,e,שגיאה: מספר האותיות תואם לספרה 18/17) }
}
elseif ($did == 45) {
set %msg-link5 $did(47) | set %lenmsglink-5 $len(%msg-link5) | echo -a %stl1 MSG-link5: %msg-link5 %stl2
if (%lenmsglink-5 isnum 16-20) { echo -a Error! | unset %msg-link5 | set %msg-link5 $input(לכן שים מחדש את הלינק:,e,שגיאה: מספר האותיות תואם לספרה 18/17) }
}
}
on *:text:*:%n.chan:{
if ($1 == %n.sign $+ news) && ($nick isop %n.chan) && (!%flood) { News }
elseif ($1 == %n.sign $+ news-links) && ($nick isop %n.chan) && (!%flood) { news-links }
elseif ($1 == %n.sign $+ commands) || ($1 == %n.sign $+ Help) && (!%flood) { msg %n.chan %stl1 %stl3 $+ Commands are0: %stl3 $+ %n.sign $+ 0Help/Commands ¬ %stl3 $+ %n.sign $+ 0News/News-Links %stl3 $+ %n.sign $+ 0Credits %stl2 }
elseif ($1 == %n.sign $+ Credits) { msg %n.chan %stl1 NewsBot was creadted by %stl3 $+ Xronic 0v.3.5 %stl2 }
}
on *:text:*:?: {
if ($istok(%owners,$gettok($address($nick,2),2,64),32)) {
if ($1 == %n.sign $+ Help) || ($1 == $n.sign $+ Commands) && (!%flood-pm) { Help }
elseif ($1 == %n.sign $+ Owners) { msg $nick %stl1 Owners are: %stl3 $+ %owners %stl2 }
elseif ($1 == %n.sign $+ Add-o) || ($1 == %n.sign $+ Add-owner) && ($2 $+ .users.quakenet.org isin %owners) && (!%flood-pm) { timer 1 0 msg $nick %stl1 $+ %stl3 $2 $+ .users.quakenet.org 0is already Owner %stl2 | set -u2 %flood-pm 1 }
elseif ($1 == %n.sign $+ Add-O) || ($1 == %n.sign $+ Add-owner) && (!%flood-pm) { set %owners %owners $2 $+ .users.quakenet.org | msg $nick %stl1 Done! the %stl3 $+ $2 $+ .users.quakenet.org0 has been succesfully added from owners list %stl2 }
elseif ($1 == %n.sign $+ Del-O) || ($1 == %n.sign $+ Del-owner) && ($2 $+ .users.quakenet.org !isin %owners) && (!%flood-pm) { timer 1 1.5 msg $nick %stl1 %stl3 $+ Error!0 No Such Q account %stl2 | set -u2 %flood-pm 1 }
elseif ($1 == %n.sign $+ Del-o) || ($1 == %n.sign $+ Del-owner) && (!%flood-pm) { set %owners $remove(%owners,$2 $+ .users.quakenet.org) | timer 1 0 msg $nick %stl1 Done! the %stl3 $+ $2 $+ .users.quakenet.org 0has been successfully removed from owners list. %stl2 }
elseif ($1 == %n.sign $+ Set-chan) && (!%flood-pm) { set %n.chan $2 | msg $nick %stl1 Done! %stl2 | set -u2 %flood-pm 1 }
elseif ($1 == %n.sign $+ Set-sign) && (!%flood-pm) { set %n.sign $2 | msg $nick %stl1 Done! %stl2 | set -u2 %flood-pm 1 }
elseif ($1 == %n.sign $+ Set-msg1) && (!%flood-pm) { set %msg1 $2 | msg $nick %stl1 Done! %stl2 | set -u2 %flood-pm 1 }
elseif ($1 == %n.sign $+ Set-msg2) && (!%flood-pm) { set %msg2 $2 | msg $nick %stl1 Done! %stl2 | set -u2 %flood-pm 1 }
elseif ($1 == %n.sign $+ Set-msg3) && (!%flood-pm) { set %msg3 $2 | msg $nick %stl1 Done! %stl2 | set -u2 %flood-pm 1 }
elseif ($1 == %n.sign $+ Set-Link1) && (!%flood-pm) { set %msg-link1 $2 | msg $nick %stl1 Done! %stl2 | set -u2 %flood-pm 1 }
elseif ($1 == %n.sign $+ Set-Link2) && (!%flood-pm) { set %msg-link2 $2 | msg $nick %stl1 Done! %stl2 | set -u2 %flood-pm 1 }
elseif ($1 == %n.sign $+ Set-Link3) && (!%flood-pm) { set %msg-link3 $2 | msg $nick %stl1 Done! %stl2 | set -u2 %flood-pm 1 }
elseif ($1 == %n.sign $+ Set-Link4) && (!%flood-pm) { set %msg-link4 $2 | msg $nick %stl1 Done! %stl2 | set -u2 %flood-pm 1 }
elseif ($1 == %n.sign $+ Set-Link5) && (!%flood-pm) { set %msg-link5 $2 | msg $nick %stl1 Done! %stl2 | set -u2 %flood-pm 1 }
}
}
alias Help {
msg $nick %stl1 %stl3 $+ %n.sign $+ 0Help/Commands ¬ %stl3 $+ %n.sign $+ 0Set-chan/sing/msg1/msg2/msg3/link1/link2/link3/link4/link5 ¬ %stl3 $+ %n.sign $+ 0Del-Owner ¬ %stl3 $+ %n.sign $+ 0Owners ¬ %stl3 $+ %n.sign $+ 0Add-Owners %stl2
set -u2 %flood-pm 1
}
alias News {
mode %n.chan +m
timer 1 1 msg %n.chan %stl1 (1) %stl3 $+ »0 %MSG1 %stl2
timer 1 3 msg %n.chan %stl1 (2) %stl3 $+ »0 %MSG2 %stl2
timer 1 5 msg %n.chan %stl1 (3) %stl3 $+ »0 %MSG3 %stl2
timer 1 7 mode %n.chan -m
set -u3 %flood 1
}
alias News-links {
mode %n.chan +m
timer 1 1 msg %n.chan %stl1 (1) %stl3 $+ »0 %MSG-link1 %stl2
timer 1 3 msg %n.chan %stl1 (2) %stl3 $+ »0 %MSG-link2 %stl2
timer 1 5 msg %n.chan %stl1 (3) %stl3 $+ »0 %MSG-link3 %stl2
timer 1 7 msg %n.chan %stl1 (4) %stl3 $+ »0 %MSG-link4 %stl2
timer 1 9 msg %n.chan %stl1 (5) %stl3 $+ »0 %MSG-link5 %stl2
timer 1 11 mode %n.chan -m
set -u3 %flood 1
}
alias NB { dialog -m N_B N_B }
alias on-load {
set %n.chan $input(set chan:,e,channel?)
set %n.sign $input(set sign:,e,sign?)
set %owners %owners $input(set owner,e,owner?) $+ .users.quakenet.org
set %stl1 0,114[9 « 12140 | set %stl2 0,19 » 14 ] | set %stl3 9 | echo -a %stl1 Done! %stl2
}
menu * {
NewsBot By Xronic { dialog -m N_B N_B }
}
