how do i make files

[monie089]

im trying to make a script when someone does
!add <game> <code>
it writes
the persons name and code and the game they added
like
[$nick]
<game>
<code>
like that

[darton]

That sould do it I hope:

Code: Select all

set gamefile "scripts/game.txt"
if {![file exists $gamefile]} {
   catch {close [open $gamefile w]}
}
bind pub - !add pub:add
proc 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>"
 }
}

[monie089]

Thanks

[monie089]

Code: Select all

##########################################################
#Friendcodes IRC script written by monie                 #
#email monie <xg.monie089@gmail.com>                     #
#monie @ Friendcodes #NintendoXG,#IRCsupport,#Friendcodes#
##########################################################
bind pub -|- !friendcodes pub:friendcodes

proc 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:add
proc 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

[Alchera]

Moved to: Scripting Help

[monie089]

Code: Select all

##########################################################
#Friendcodes IRC script written by monie                 #
#email monie <xg.monie089@gmail.com>                     #
#monie @ Friendcodes #NintendoXG,#IRCsupport,#Friendcodes#
##########################################################
bind pub -|- !friendcodes pub:friendcodes

proc 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:add
proc 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:find
proc 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

[monie089]

i edited that can anyone help

[darton]

Now it should work. I deleted some mistakes.

Code: Select all

set gamefile "scripts/game.txt"
if {![file exists $gamefile]} {
   catch {close [open $gamefile w]}
}
bind pub - !add pub:add
proc 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:nick
proc find:nick {nick uhost hand chan arg} {
global gamefile
set 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>"
 } 
}

[monie089]

everything works but the find it keeps saying name not found

[darton]

Forgot to replace a word.
I've edited my post. Copy it again and it will work. I also improved the !add script.

[monie089]

Thanks it worked nw thanks for helping me im still learning