egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-08-13T17:46:21-04:00 https://forum.eggheads.org/app.php/feed/topic/12260 2006-08-11T11:48:44-04:00 2006-08-11T11:48:44-04:00 https://forum.eggheads.org/viewtopic.php?p=65388#p65388 <![CDATA[how do i make files]]> Statistics: Posted by monie089 — Fri Aug 11, 2006 11:48 am

]]> 2006-08-11T10:54:12-04:00 2006-08-11T10:54:12-04:00 https://forum.eggheads.org/viewtopic.php?p=65385#p65385 <![CDATA[how do i make files]]> I've edited my post. Copy it again and it will work. I also improved the !add script.

Statistics: Posted by darton — Fri Aug 11, 2006 10:54 am

]]> 2006-08-11T08:24:58-04:00 2006-08-11T08:24:58-04:00 https://forum.eggheads.org/viewtopic.php?p=65378#p65378 <![CDATA[how do i make files]]> Statistics: Posted by monie089 — Fri Aug 11, 2006 8:24 am

]]> 2006-08-11T11:40:27-04:00 2006-08-11T06:59:33-04:00 https://forum.eggheads.org/viewtopic.php?p=65377#p65377 <![CDATA[how do i make files]]>

Code: 

set gamefile "scripts/game.txt"if {![file exists $gamefile]} {   catch {close [open $gamefile w]}}bind pub - !add pub:addproc pub:add {nick uhost hand chan arg} {set game [lindex [split $arg] 0]set code [lindex [split $arg] 1] if {$game != "" && $code != ""} {  set fd [open $::gamefile 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 0     puts -nonewline $fd [join $list \n]     close $fd } else {   putserv "PRIVMSG $nick :Usage: !add <game> <code>" }} bind pub - !find find:nickproc find:nick {nick uhost hand chan arg} {global gamefileset name [lindex [split $arg] 0] if {$name != ""} {  set fd [open $::gamefile r]    while {![eof $fd]} {     lappend list [gets $fd]    }    close $fd    if {[set le [lsearch -glob $list "*$name*"]] != -1} {     set line [lindex $list $le]     set code [string map {< "" > ""} [lindex $line 2]]     putserv "NOTICE $nick :The code $code belongs to $name."    } else {     putserv "NOTICE $nick :Name not found."    } } else {   putserv "PRIVMSG $nick :Usage: !find <nick>" } }

Statistics: Posted by darton — Fri Aug 11, 2006 6:59 am

]]> 2006-08-10T20:57:10-04:00 2006-08-10T20:57:10-04:00 https://forum.eggheads.org/viewtopic.php?p=65371#p65371 <![CDATA[how do i make files]]> Statistics: Posted by monie089 — Thu Aug 10, 2006 8:57 pm

]]> 2006-08-10T14:27:26-04:00 2006-08-10T14:27:26-04:00 https://forum.eggheads.org/viewtopic.php?p=65359#p65359 <![CDATA[how do i make files]]>

Code: 

###########################################################Friendcodes IRC script written by monie                 ##email monie <xg.monie089@gmail.com>                     ##monie @ Friendcodes #NintendoXG,#IRCsupport,#Friendcodes###########################################################bind pub -|- !friendcodes pub:friendcodesproc pub:friendcodes {nickname hostname handle channel arguments } {putquick "PRIVMSG $nickname :$nickname Welcome ShadowBot Wifi Central"putquick "PRIVMSG $nickname :$nickname,To use WiFi Central"putquick "PRIVMSG $nickname :Games currently supported are"putquick "PRIVMSG $nickname :MKDS,MPH,LM,THAS,acww"putquick "PRIVMSG $nickname :Type !add <game> <code> "putquick "PRIVMSG $nickname :To find a friendcode type"putquick "PRIVMSG $nickname :!find <nick>"putquick "PRIVMSG $nickname :To Delete Your code type"putquick "PRIVMSG $nickname :!del <game>"putquick "PRIVMSG $nickname :Scripted by MÔnie"}set gamefile "scripts/game.txt"if {![file exists $gamefile]} {   catch {close [open $gamefile w]}}bind pub - !add pub:addproc pub:add { nick uhost hand chan arg} {set game [lindex [split $arg] 0]set code [lindex [split $arg] 1]if {$game && code != ""} {set fd open $::mphfile r+]while {![eof $fd]} {lappend list [gets $fd]}lappend list "[$nick] $game $code"puts -nonewline $fd [join $list \n]close $fd} else {putserv "PRIVMSG $nickname :Usage: !add <game> <code>"}}bind pub - !find pub:findproc pub:find {nick uhost hand chan arg} {}putlog "Monies custom Friendcodes script loaded"
thats the code but the add part doesnt work and for the find part how do i make it do
notice nickname $nicks code are
notice nickname mph:23232323
notice $nickname mkds:232343234
notice $nickname thas:232324323
notice $nickname acww:24334 name:blah town:blah
EDITED

Statistics: Posted by monie089 — Thu Aug 10, 2006 2:27 pm

]]> 2006-08-09T22:13:09-04:00 2006-08-09T22:13:09-04:00 https://forum.eggheads.org/viewtopic.php?p=65341#p65341 <![CDATA[how do i make files]]> Moved to: Scripting Help

Statistics: Posted by Alchera — Wed Aug 09, 2006 10:13 pm

]]> 2006-08-09T18:53:34-04:00 2006-08-09T18:53:34-04:00 https://forum.eggheads.org/viewtopic.php?p=65338#p65338 <![CDATA[how do i make files]]>

Code: 

###########################################################Friendcodes IRC script written by monie                 ##email monie <xg.monie089@gmail.com>                     ##monie @ Friendcodes #NintendoXG,#IRCsupport,#Friendcodes###########################################################bind pub -|- !friendcodes pub:friendcodesproc pub:friendcodes {nickname hostname handle channel arguments } {putquick "PRIVMSG $nickname :$nickname Welcome ShadowBot Wifi Central"putquick "PRIVMSG $nickname :$nickname,To use WiFi Central"putquick "PRIVMSG $nickname :Games currently supported are"putquick "PRIVMSG $nickname :MKDS,MPH,LM,THAS,DSAIR,StarFox"putquick "PRIVMSG $nickname :Type !add <game> <code> "putquick "PRIVMSG $nickname :To find a friendcode type"putquick "PRIVMSG $nickname :!find <nick>"putquick "PRIVMSG $nickname :To Delete Your code type"putquick "PRIVMSG $nickname :!del <game>"putquick "PRIVMSG $nickname :Scripted by MÔnie"}set gamefile "scripts/game.txt"if {![file exists $gamefile]} {   catch {close [open $gamefile w]}}bind pub - !add pub:addproc pub:add {nick uhost hand chan arg} {set game [lindex [split $arg] 0]set code [lindex [split $arg] 1] if {$game && $code != ""} {  set fd [open $::gamefile r+]      while {![eof $fd]} {         lappend list [gets $fd]               }      lappend list "[$nick] <$game> <$code>"    puts -nonewline $fd [join $list \n]    close $fd    } else {    putserv "PRIVMSG $chan :Usage: !add <game> <code>" }}putlog "Monies custom Friendcodes script loaded"
thats what i have so far but how do i make it find someones name and displays there code, also how do i do !del if someone wants to delete there code

Statistics: Posted by monie089 — Wed Aug 09, 2006 6:53 pm

]]> 2006-08-09T18:14:04-04:00 2006-08-09T18:14:04-04:00 https://forum.eggheads.org/viewtopic.php?p=65336#p65336 <![CDATA[how do i make files]]> Statistics: Posted by monie089 — Wed Aug 09, 2006 6:14 pm

]]> 2006-08-13T17:46:21-04:00 2006-08-09T17:36:01-04:00 https://forum.eggheads.org/viewtopic.php?p=65333#p65333 <![CDATA[how do i make files]]>

Code: 

set gamefile "scripts/game.txt"if {![file exists $gamefile]} {   catch {close [open $gamefile w]}}bind pub - !add pub:addproc pub:add {nick uhost hand chan arg} {set game [lindex [split $arg] 0]set code [lindex [split $arg] 1] if {$game != "" && $code != ""} {  set fd [open $::gamefile 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 0     puts -nonewline $fd [join $list \n]     close $fd } else {   putserv "PRIVMSG $nick :Usage: !add <game> <code>" }}

Statistics: Posted by darton — Wed Aug 09, 2006 5:36 pm

]]> 2006-08-09T17:27:20-04:00 2006-08-09T17:27:20-04:00 https://forum.eggheads.org/viewtopic.php?p=65331#p65331 <![CDATA[how do i make files]]> !add <game> <code>
it writes
the persons name and code and the game they added
like
[$nick]
<game>
<code>
like that

Statistics: Posted by monie089 — Wed Aug 09, 2006 5:27 pm

]]>