PasteBIN
תגיות
התחבר
הרשמה
למה מירק?
עמוד ראשי
5678 הודעות
3399 נושאים
4466 רשומים
448 מחוברים כרגע
הערות לגבי הקוד יתקבלו בשמחה...
הקוד:
http://lidor.net/p/?p=S317d
או
קוד: בחר הכל
dialog dialogIGO {
title "IGOnline Servers By: Qwiwi"
size -1 -1 289 201
option dbu
button "Connect", 2, 241 16 37 12
link "www.IGOnline.co.il", 3, 225 192 55 8
edit "Server Ip", 6, 12 16 82 12, multi autohs autovs center
edit "Password", 7, 97 16 139 12, multi autohs autovs center
check "Auto Login On Details", 8, 13 67 60 11
combo 9, 12 53 118 92, size drop
edit "Password", 10, 132 52 103 12, multi autohs autovs center
button "Connect", 11, 240 52 37 12
list 12, 12 109 224 59, size
button "Connect", 13, 241 109 37 59
edit "Enter server name", 14, 12 90 117 13, center
button "Add Server", 15, 241 90 37 13
box "Favorite System:", 16, 6 82 277 107
edit "Enter server ip", 18, 132 90 104 13, center
button "Delete Server", 19, 13 173 82 12
button "Clear Servers", 20, 154 173 82 12
box "Connect To Servers:", 21, 7 3 277 33
box "Gather Bot System:", 22, 6 40 277 42
text "By: Qwiwi", 23, 6 191 61 8, center
}
menu * {
-
Qwiwi Servers
.Open Dialog { dialog -m dialogIGO dialogIGO }
.Open Dialog Setting { dialog -m QwigoSetting QwigoSetting }
-
}
on *:dialog:dialogIGO:init:*: {
SetCombo
SetFavorite
SetAuto
SetQBots
SetServers
}
on *:dialog:dialogIGO:sclick:*: {
if ( $did == 2 ) {
if ( $did(6).text ) && (*.*.*.*:* iswm $did(6).text) {
run steam://connect/ $+ $did(6).text $+ / $+ $did(7).text
}
elseif ( $did(6).text ) && (*.*.*.*:* !iswm $did(6).text) && ($input(Please Type Legal Ip,o,Invild Ip)) {
did -r $dname 6
}
}
elseif ( $did == 3 ) {
url www.IGOnline.co.il
}
elseif ( $did == 8 ) {
set %Qwigo.AutoLogin $did(8).state
}
elseif ( $did == 11 ) {
if ( $did(9) ) {
GatherNum
run steam://connect/ $+ %Qwigo.GNum $+ / $+ $did(10).text
}
}
elseif ( $did == 13 ) {
var %Qwigo.fs $did(12).seltext
var %Qwigo.nfs $numtok(%Qwigo.fs,32)
var %Qwigo.FConnect $gettok(%Qwigo.fs,%Qwigo.nfs,32)
if ( $did(12).sel ) {
$?="Type Server Password (if has):"
run steam://connect/ $+ %Qwigo.FConnect $+ / $+ $!
}
}
elseif ( $did == 15 ) {
if ( $did(14).text ) && ( $did(18).text ) && (*.*.*.*:* iswm $did(18).text) && ($did(18).text !isin %Qwigo.SList) {
did -a $dname 12 Server Name: $did(14).text $chr(124) Server Ip: $did(18).text
Set %Qwigo.SList %Qwigo.SList $did(18).text
writeini Qwigo.ini Servers $did(18).text $did(14).text
did -r $dname 14
did -r $dname 18
}
elseif (*.*.*.*:* !iswm $did(18).text) && ($input(Please Type Legal Ip,o,Invild Ip)) {
did -r $dname 18
}
elseif ($did(18).text isin %Qwigo.SList) && ($input(This server is already in your favorite servers,o,Error)) {
did -r $dname 18
}
}
elseif ( $did == 19 ) {
var %Qwigo.N $did(12).seltext
var %Qwigo.Num $numtok(%Qwigo.N,32)
var %Qwigo.Del $gettok(%Qwigo.N,%Qwigo.Num,32)
remini Qwigo.ini Servers %Qwigo.Del
Set %Qwigo.SList $remtok(%Qwigo.SList,%Qwigo.Del,1,32)
did -d $dname 12 $did(12).sel
}
elseif ( $did == 20 ) {
did -r $dname 12
unset %Qwigo.SList
remini Qwigo.ini Servers
}
}
alias -l SetCombo {
did -a $dname 9 Gather 1 (!)
did -a $dname 9 Gather 2 (@)
did -a $dname 9 Gather 3 (+)
did -a $dname 9 Gather 4 (*)
did -a $dname 9 Gather 5 (-)
did -a $dname 9 Gather 6 (^)
did -a $dname 9 Gather 7 (.)
did -a $dname 9 Gather 8 (&)
}
alias -l GatherNum {
if ( $did(9) ) {
var %Qwigo.gn $did(9).text
var %Qwigo.Numcheck $gettok(%Qwigo.gn,2,32)
Set %Qwigo.GNum $gettok(%Qwigo.GServers,%Qwigo.Numcheck,32)
}
}
alias -l SetFavorite {
var %Qwigo.n 1
var %Qwigo.cn $numtok(%Qwigo.SList,32)
while ( %Qwigo.n <= %Qwigo.cn ) {
var %Qwigo.Ips $gettok(%Qwigo.SList,%Qwigo.n,32)
did -a $dname 12 Server Name: $readini(Qwigo.ini,Servers,%Qwigo.Ips) Server Ip: %Qwigo.Ips
inc %Qwigo.n
}
}
alias -l SetAuto {
if (%Qwigo.AutoLogin == 1) {
did -c dialogIGO 8
}
}
alias -l SetQBots {
if (!%Qwigo.Qbots) {
set %Qwigo.Qbots *!*@IGOnlineRank.users.quakenet.org,*!*@IGOnlineCrew.users.quakenet.org,*!*@IGOnlineDetail.users.quakenet.org,*!*@IGOnlineDe2.users.quakenet.org
}
}
alias -l SetServers {
if (!%Qwigo.GServers) {
Set %Qwigo.GServers 188.64.99.112:20308 188.64.99.112:20309 188.64.99.112:20310 188.64.99.112:20311 188.64.99.112:20312 188.64.99.112:20313 188.64.99.112:20379 188.64.99.112:20380
}
}
on *:text:*:?: {
if ($wildsite isin %Qwigo.Qbots) && (%Qwigo.AutoLogin == 1) {
var %Qwigo.DServer $strip($gettok($1-,6,32))
var %Qwigo.DPass $gettok($1-,8,32)
run steam://connect/ $+ %Qwigo.DServer $+ / $+ %Qwigo.DPass
}
}
dialog QwigoSetting {
title "Qwiwi Servers Setting"
size -1 -1 205 78
option dbu
box "Gather Bot System Setting:", 1, 2 1 200 69
combo 2, 8 13 72 60, size drop
edit "Enter New Server Ip", 3, 84 12 74 11, center
button "Set New Ip", 4, 161 11 37 12
edit "Enter New Address", 5, 8 49 150 11, center
button "Add Address", 6, 161 48 37 12
link "www.IGOnline.co.il", 7, 155 70 46 8
text "By: Qwiwi", 8, 3 70 24 8
text "Add Q For Gather Bot:", 9, 9 41 54 8
}
on *:dialog:QwigoSetting:init:*: {
SetComboSetting
}
on *:dialog:QwigoSetting:sclick:*: {
if ( $did == 4 ) {
var %Qwigo.rep $did(3).text
var %Qwigo.nrep $did(2).text
var %Qwigo.gnum $gettok(%Qwigo.nrep,2,32)
var %Qwigo.replace $gettok(%Qwigo.GServers,%Qwigo.gnum,32)
if (*.*.*.*:* iswm %Qwigo.rep) && ( $did(2).text ) && ($input(Done,o,Done!)) {
Set %Qwigo.GServers $reptok(%Qwigo.GServers,%Qwigo.replace,%Qwigo.rep,1,32)
did -r $dname 3
}
elseif (*.*.*.*:* !iswm %Qwigo.rep) && ($input(Type Legal Ip,o,Invild Ip)) {
did -r $dname 3
}
}
elseif ( $did == 6 ) {
if (*@* iswm $did(5).text) && ($input(Done,o,Done!)) {
Set %Qwigo.Qbots %Qwigo.Qbots $did(5).text
did -r $dname 5
}
elseif (*@* !iswm $did(5).text) && ($input(Type Legal Address,o,Invilde Address)) {
did -r $dname 5
}
}
elseif ( $did == 7 ) {
url www.IGOnline.co.il
}
}
alias -l SetComboSetting {
did -a $dname 2 Gather 1 (!)
did -a $dname 2 Gather 2 (@)
did -a $dname 2 Gather 3 (+)
did -a $dname 2 Gather 4 (*)
did -a $dname 2 Gather 5 (-)
did -a $dname 2 Gather 6 (^)
did -a $dname 2 Gather 7 (.)
did -a $dname 2 Gather 8 (&)
}
