Statistics: Posted by incith — Sun Aug 20, 2006 11:12 pm

Statistics: Posted by Alchera — Tue Aug 15, 2006 6:36 pm

Code:

if {[lindex $list end == ""]} {

Statistics: Posted by nml375 — Tue Aug 15, 2006 4:32 pm

Code:

#########################################100% made by monie                    ##tested to work on windrop             ##v1.0 soon to be more updated          ##email me for comments ,hate , or help ##monie @ XG.Monie089@gmail.com         #########################################set wififile "wifi/wifi.txt"set mphfile "wifi/mph.txt"set mkdsfile "wifi/mkds.txt"set acwwfile "wifi/acww.txt"set thasfile "wifi/thas.txt"set starfoxfile "wifi/starfox.txt"bind pub -|- &wifi pub:wifiproc pub:wifi {nickname uhost hostname  arguments handle  } {putquick "PRIVMSG $nickname :Welcome to The WiFi Gaming Center"putquick "PRIVMSG $nickname :Games Currently supported are"putquick "PRIVMSG $nickname :MKDS MPH THAS ACWW STARFOX More coming soon"putquick "PRIVMSG $nickname :Commands are as Following"putquick "PRIVMSG $nickname :&list - lists the current games open"putquick "PRIVMSG $nickname :&join <name> - Joins the game thats open"putquick "PRIVMSG $nickname :&create <name> -creates a game"putquick "PRIVMSG $nickname :&leave <name> - Parts you from that game"putquick "PRIVMSG $nickname :&add - adds your code for any game"putquick "PRIVMSG $nickname :&find - finds you or a friends code"}bind pub -|- &add pub:addproc pub:add { nick uhost text channel arg } {global mphfile mkdsfile thasfile acwwfile starfoxfileset game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game !="mph"&& $code !=""} {set fd [open $::mphfile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end == ""]} {set list [lreplace $list end end]}lappend list "\[$nick\] $game $code"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &add game code"}set game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game !="mkds"&& $code !=""} {set fd [open $::mkdsfile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end == ""]} {set list [lreplace $list end end]}lappend list "\[$nick\] $game $code"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &add game code"}set game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game !="acww"&& $code !=""} {set fd [open $::acwwfile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end == ""]} {set list [lreplace $list end end]}lappend list "\[$nick\] $game $code"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &add game code"}set game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game !="thas"&& $code !=""} {set fd [open $::thasfile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end == ""]} {set list [lreplace $list end end]}lappend list "\[$nick\] $game $code"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &add game code"}set game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game !="starfox"&& $code !=""} {set fd [open $::starfoxfile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end == ""]} {set list [lreplace $list end end]}lappend list "\[$nick\] $game $code"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &add game code"}}bind pub -|- &find pub:findproc pub:find {nick uhost hand chan arg} {global mphfile mkdsfile thasfile acwwfile starfoxfileset name [lindex [split $arg] 0]if {$name != ""} {set fd [open $::mphfile r]while {! [eof $fd]} {lappend list [gets $fd]}close $fdif {[set le [lsearch -glob $list "*$name*"]] != -1} {set line [lindex $list $le]set code [string map {"" ""} [lindex $line 2]]putserv "NOTICE $nick :$names mphcode is $code"} else { putserv "NOTICE $nick :Name not found."}} else {putserv "NOTICE $nick :Usage: &find nick"}set name [lindex [split $arg] 0]if {$name != ""} {set fd [open $::mkdsfile r]while {! [eof $fd]} {lappend list [gets $fd]}close $fdif {[set le [lsearch -glob $list "*$name*"]] != -1} {set line [lindex $list $le]set code [string map {"" ""} [lindex $line 2]]putserv "NOTICE $nick :$names mkdscode is $code"} else { putserv "NOTICE $nick :Name not found."}} else {putserv "NOTICE $nick :Usage: &find nick"}set name [lindex [split $arg] 0]if {$name != ""} {set fd [open $::thasfile r]while {! [eof $fd]} {lappend list [gets $fd]}close $fdif {[set le [lsearch -glob $list "*$name*"]] != -1} {set line [lindex $list $le]set code [string map {"" ""} [lindex $line 2]]putserv "NOTICE $nick :$names thascode is $code"} else { putserv "NOTICE $nick :Name not found."}} else {putserv "NOTICE $nick :Usage: &find nick"}set name [lindex [split $arg] 0]if {$name != ""} {set fd [open $::acwwfile r]while {! [eof $fd]} {lappend list [gets $fd]}close $fdif {[set le [lsearch -glob $list "*$name*"]] != -1} {set line [lindex $list $le]set code [string map {"" ""} [lindex $line 2]]putserv "NOTICE $nick :$names acwwcode is $code"} else { putserv "NOTICE $nick :Name not found."}} else {putserv "NOTICE $nick :Usage: &find nick"}set name [lindex [split $arg] 0]if {$name != ""} {set fd [open $::starfoxfile r]while {! [eof $fd]} {lappend list [gets $fd]}close $fdif {[set le [lsearch -glob $list "*$name*"]] != -1} {set line [lindex $list $le]set code [string map {"" ""} [lindex $line 2]]putserv "NOTICE $nick :$names starfoxcode is $code"} else { putserv "NOTICE $nick :Name not found."}} else {putserv "NOTICE $nick :Usage: &find nick"}}bind pub -|- &create pub:createproc pub:create { nick uhost hand chan arg } {set table [lindex [split $arg] 0]if {$table != ""} {set fd [open $::wififile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end] == ""} {set list [lreplace $list end end]}lappend list "\[$table\]"seek $fd 0puts -nonewline $fd [join $list \n]close $fdputquick "PRIVMSG $chan :$table was created"} else {putserv "PRIVMSG $nick :Usage: &create game."}}bind pub - &join pub:joinproc pub:join { nick chan hand arg text} {set join [lindex [split $arg] 0]if {$join != ""} {set fd [open $::wififile r+]While {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end] = ""} {set list [lreplace $list end end]}lappend list "\[$join\] $nick"seek $fd 0puts -nonewline $fd [join $list \n]close $fdputquick "PRIVMSG $nick :You have joined $join"} else {putserv "PRIVMSG $nick :Usage: &join name"}}

Statistics: Posted by monie089 — Tue Aug 15, 2006 4:22 pm

bind pub -|- &add pub:addproc pub:add {nick uhost hostname text arg handle channel} {  global mphfile mkdsfile thasfile acwwfile starfoxfile  set game [lindex [split $arg] 0]  set code [lindex [split $arg] 1]  if {$game !="mph"&& $code !=""} { [...]  }}

Statistics: Posted by caesar — Mon Aug 14, 2006 3:50 pm

Statistics: Posted by rosc2112 — Mon Aug 14, 2006 3:29 pm

Statistics: Posted by monie089 — Mon Aug 14, 2006 12:40 pm

bind pub -|- &add pub:addproc pub:add {nick uhost hostname text arg handle channel } {global mphfile mkdsfile thasfile acwwfile starfoxfileset game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game !="mph"&& $code !=""} {set fd [open $::mphfile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end == ""} {set list [lreplace $list end end]}lappend list "\[$nick\] $game $code"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &add game code"}set game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game !="mkds"&& $code !=""} {set fd [open $::mkdsfile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end == ""} {set list [lreplace $list end end]}lappend list "\[$nick\] $game $code"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &add game code"}set game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game !="acww"&& $code !=""} {set fd [open $::acwwfile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end == ""} {set list [lreplace $list end end]}lappend list "\[$nick\] $game $code"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &add game code"}set game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game !="thas"&& $code !=""} {set fd [open $::thasfile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end == ""} {set list [lreplace $list end end]}lappend list "\[$nick\] $game $code"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &add game code"}set game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game !="starfox"&& $code !=""} {set fd [open $::starfoxfile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end == ""} {set list [lreplace $list end end]}lappend list "\[$nick\] $game $code"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &add game code"}}

Statistics: Posted by monie089 — Mon Aug 14, 2006 11:26 am

Statistics: Posted by demond — Mon Aug 14, 2006 11:04 am

Statistics: Posted by metroid — Mon Aug 14, 2006 10:15 am

Code:

#########################################tested to work on windrop             ##v1.0 soon to be more updated          ##email me for comments ,hate , or help ##monie @ XG.Monie089@gmail.com         #########################################set wififile "wifi/wifi.txt"set mphfile "wifi/mph.txt"set mkdsfile "wifi/mkds.txt"set acwwfile "wifi/acww.txt"set thasfile "wifi/thas.txt"set starfoxfile "wifi/starfox.txt"if {![file exists $wififile]} {   catch {close [open $wififile w]}}if {![file exists $mphfile]} {   catch {close [open $mphfile w]}}if {![file exists $mkdsfile]} {   catch {close [open $mkdsfile w]}}if {![file exists $acwwfile]} {   catch {close [open $acwwfile w]}}if {![file exists $thasfile]} {   catch {close [open $thasfile w]}}if {![file exists $starfoxfile]} {   catch {close [open $starfoxfile w]}}bind pub -|- &wifi pub:wifiproc pub:wifi {nickname uhost hostname  arguments handle  } {putquick "PRIVMSG $nickname :Welcome to The WiFi Gaming Center"putquick "PRIVMSG $nickname :Games Currently supported are"putquick "PRIVMSG $nickname :MKDS MPH THAS ACWW STARFOX More coming soon"putquick "PRIVMSG $nickname :Commands are as Following"putquick "PRIVMSG $nickname :&list - lists the current games open"putquick "PRIVMSG $nickname :&join <name> - Joins the game thats open"putquick "PRIVMSG $nickname :&create <name> -creates a game"putquick "PRIVMSG $nickname :&leave <name> - Parts you from that game"putquick "PRIVMSG $nickname :&add - adds your code for any game"putquick "PRIVMSG $nickname :&find - finds you or a friends code"}bind pub -|- &add pub:addproc pub:add {nick uhost hostname text arg handle channel } {global mphfile mkdsfile thasfile acwwfile starfoxfileset game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game !="mph"&& $code !=""} {set fd [open $::mphfile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end == ""} {set list [lreplace $list end end]}lappend list "\[$nick\] $game $code"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &add game code"}set game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game !="mkds"&& $code !=""} {set fd [open $::mkdsfile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end == ""} {set list [lreplace $list end end]}lappend list "\[$nick\] $game $code"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &add game code"}set game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game !="acww"&& $code !=""} {set fd [open $::acwwfile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end == ""} {set list [lreplace $list end end]}lappend list "\[$nick\] $game $code"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &add game code"}set game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game !="thas"&& $code !=""} {set fd [open $::thasfile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end == ""} {set list [lreplace $list end end]}lappend list "\[$nick\] $game $code"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &add game code"}set game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game !="starfox"&& $code !=""} {set fd [open $::starfoxfile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end == ""} {set list [lreplace $list end end]}lappend list "\[$nick\] $game $code"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &add game code"}}bind pub -|- &find pub:findproc pub:find {nick uhost hand chan arg} {global mphfile mkdsfile thasfile acwwfile starfoxfileset name [lindex [split $arg] 0]if {$name != ""} {set fd [open $::mphfile r]while {! [eof $fd]} {lappend list [gets $fd]}close $fdif {[set le [lsearch -glob $list "*$name*"]] != -1} {set line [lindex $list $le]set code [string map {"" ""} [lindex $line 2]]putserv "NOTICE $nick :$names mphcode is $code"} else { putserv "NOTICE $nick :Name not found."}} else {putserv "NOTICE $nick :Usage: &find nick"}set name [lindex [split $arg] 0]if {$name != ""} {set fd [open $::mkdsfile r]while {! [eof $fd]} {lappend list [gets $fd]}close $fdif {[set le [lsearch -glob $list "*$name*"]] != -1} {set line [lindex $list $le]set code [string map {"" ""} [lindex $line 2]]putserv "NOTICE $nick :$names mkdscode is $code"} else { putserv "NOTICE $nick :Name not found."}} else {putserv "NOTICE $nick :Usage: &find nick"}set name [lindex [split $arg] 0]if {$name != ""} {set fd [open $::thasfile r]while {! [eof $fd]} {lappend list [gets $fd]}close $fdif {[set le [lsearch -glob $list "*$name*"]] != -1} {set line [lindex $list $le]set code [string map {"" ""} [lindex $line 2]]putserv "NOTICE $nick :$names thascode is $code"} else { putserv "NOTICE $nick :Name not found."}} else {putserv "NOTICE $nick :Usage: &find nick"}set name [lindex [split $arg] 0]if {$name != ""} {set fd [open $::acwwfile r]while {! [eof $fd]} {lappend list [gets $fd]}close $fdif {[set le [lsearch -glob $list "*$name*"]] != -1} {set line [lindex $list $le]set code [string map {"" ""} [lindex $line 2]]putserv "NOTICE $nick :$names acwwcode is $code"} else { putserv "NOTICE $nick :Name not found."}} else {putserv "NOTICE $nick :Usage: &find nick"}set name [lindex [split $arg] 0]if {$name != ""} {set fd [open $::starfoxfile r]while {! [eof $fd]} {lappend list [gets $fd]}close $fdif {[set le [lsearch -glob $list "*$name*"]] != -1} {set line [lindex $list $le]set code [string map {"" ""} [lindex $line 2]]putserv "NOTICE $nick :$names starfoxcode is $code"} else { putserv "NOTICE $nick :Name not found."}} else {putserv "NOTICE $nick :Usage: &find nick"}}bind pub -|- &create pub:createproc pub:create { nick uhost hand chan arg } {set table [lindex [split $arg] 0]if {$table != ""} {set fd [open $::wififile r+]while {![eof $fd]} {lappend list [gets $fd]}if {[lindex $list end] == ""} {set list [lreplace $list end end]}lappend list "\[$table\]"seek $fd 0puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nick :Usage: &create game."}}

Statistics: Posted by monie089 — Mon Aug 14, 2006 10:00 am