PasteBIN
תגיות
התחבר
הרשמה
למה מירק?
עמוד ראשי
5678 הודעות
3399 נושאים
4466 רשומים
457 מחוברים כרגע
יוצר הקוד: Xronic
הסבר על הקוד:
יש לשים את הקוד ב Alt+R בלשונית Remote.
וללחוץ באיזה שהוא ערוץ לא משנה קליק ימני ולהכנס ל Open QACC By Xronic.
ולעשות מה שכתוב שם!
*מומלץ למתחילים.
קוד:
קוד: בחר הכל
dialog O_P {
title "Open QACC & AUTH By Xronic"
size -1 -1 164 92
option dbu
tab "Open QACC ", 1, 2 6 156 76
text "Open QACC Settings:", 3, 54 26 52 8, tab 1
text "Write Nick:", 4, 6 44 30 6, tab 1
edit "", 5, 42 42 72 8, tab 1
button "Change ", 6, 120 42 30 10, tab 1
text "Write Email:", 7, 6 58 30 6, tab 1
edit "", 8, 42 56 72 8, tab 1
button "Open QACC", 9, 119 54 32 10, tab 1
link "www.P51.co.il", 10, 6 72 36 6, tab 1
link "Xronic@Script", 11, 118 72 34 6, tab 1
tab "Auto Login", 2
text "Auto Login Settings:", 12, 56 24 48 6, tab 2
text "Write UserName:", 13, 5 36 42 6, tab 2
edit "", 14, 52 37 68 8, tab 2
button "Set", 15, 124 36 30 10, tab 2
text "Write Password:", 16, 6 54 42 6, tab 2
edit "", 17, 52 52 68 8, tab 2
button "Set", 18, 123 52 30 10, tab 2
link "www.P51.co.il", 19, 8 74 36 6, tab 2
link "Xronic@Script", 20, 120 73 34 6, tab 2
}
alias OP { dialog -m O_P O_P }
on *:dialog:O_P:sclick:*:{
if ($did == 6) { /nick $did(5) }
if ($did == 9) { set %email $did(8) | echo -a My email is: %email | /msg q hello %email %email }
if ($did == 10) || ($did == 20) { url www.p51.co.il }
if ($did == 15) { set %QACC $encode($did(14),m) }
if ($did == 18) { set %QPASS $encode($did(17),m) }
}
on *:notice:*created successfully*:?:{
echo -d תכנס לאיימל שלך לקבלת הפרטים לפתיחת QACC
}
on 1:CONNECT:{
if ($network == quakenet) {
/msg Q@CServe.quakenet.org AUTH $decode(%QACC,m) $decode(%Qpass,m) | echo -s are u now login to QACC!
//mode $me +x
}
}
on *:load:{
set %nick $input(Nick-Q?,e,Example: Xronic-Q
set %email $input(Email?,e,Example: Xronic@email.com | /msg q hello %email %email
Set %QACC $input(Q account?,e,Q account?)
Set %QPASS $input(Q Pass?,e,QPass?)
//mode $me +x
}
Menu * {
Open QACC + Auth By Xronic Dialog { OP }
}
