egghelp/eggheads community

[Solved] Love Marriage Command

2006-10-02T00:47:57-04:00

the bot sets files as

nick1
nick2

now, and i want it to remove nick1 & nick2, so ill read that site

Statistics: Posted by kris — Mon Oct 02, 2006 12:47 am

[Solved] Love Marriage Command

2006-10-01T06:52:35-04:00

Just go up one level up to http://www.tcl.tk/man/tcl8.4/TclCmd/contents.htm and read about split and join, I am pretty sure this is what you are looking for, although the way you wrote it, it would be impossible, because if "nick1" and "nick2" are directly concated together without a seperating character like in your example, it would be impossible for the bot to seperate them (unless they are in alphabethical order and are all in another list like online on a channel).

Statistics: Posted by De Kus — Sun Oct 01, 2006 6:52 am

ok..

2006-10-01T05:18:50-04:00

SO does that website say anything about deleting text from a file?

Statistics: Posted by kris — Sun Oct 01, 2006 5:18 am

[Solved] Love Marriage Command

2006-09-29T08:57:56-04:00

We help those that help themselves.

The error i get is: [14:41] Tcl error [msg_propose]: wrong # args: extra words after "else" clause in "if" command

Read and learn.

You were given a link to assist in your education.

Fix one error before ignoring and trying to sort another (which you have not tried to fix yourself).

A hint for your second "problem"; ever thought of a carriage return?

Statistics: Posted by Alchera — Fri Sep 29, 2006 8:57 am

Ergh?

2006-09-29T05:14:31-04:00

How is that ment to help?, also i need help with another part.

Code:

bind msg "-|-" !femaleaccept msg_acceptfproc msg_acceptf { nick userhost handle text } {set mrryrole "/home/kris/Love/eggdrop/marriage.role"global msg_acceptf    set stripped  $text    set qot_fd [open $mrryrole a+]    puts $qot_fd $stripped    close $qot_fdputhelp "PRIVMSG #Chapel :$nick has said yes!"puthelp "MODE #chapel -o $nick"return}bind msg "-|-" !maleaccept msg_acceptmproc msg_acceptm { nick userhost handle text } {set mrryrole "/home/kris/Love/eggdrop/marriage.role"global msg_acceptm    set stripped $text    set qot_fd [open $mrryrole a+]    puts $qot_fd $stripped    close $qot_fdputhelp "PRIVMSG #Chapel :$nick has said yes!"puthelp "MODE #chapel -o $nick"return}

the file goes as
nick1nick2

how do i get it as

nick1
nick2

any idea's?

Statistics: Posted by kris — Fri Sep 29, 2006 5:14 am

[Solved] Love Marriage Command

2006-09-29T03:47:13-04:00

Tcl uses the same convention as C regarding conditional expressions.

example:

Code:

if expr1 ?then? body1 elseif expr2 ?then? body2 elseif ... ?else? ?bodyN?

if manual page

Statistics: Posted by Alchera — Fri Sep 29, 2006 3:47 am

Spelling error

2006-09-29T01:56:34-04:00

exsists? we fixed that, my admins found it and showed me it.

Code:

set mrryrole "/home/kris/Love/eggdrop/marriage.role"bind msg "-|-" propose msg_proposeproc msg_propose { nick userhost handle text } {if {![file exists $mrryrole]} {puthelp "NOTICE $nick :Error: #3001 Please email kris0089@gmail.com for more help."return} else {set found 0#set text 0set fs [open $file r]while {![eof $fs]} {gets $fs lineif {$line == $nick} { set found 1 }#if {$line == $text} { set text 1 }}}close $fsif {$found} {puthelp "NOTICE $nick :You are allready married, please join #Chapel to get a divorce."} else {if {$text} {puthelp "NOTICE $Nick :$text is allready married, please both join #Chapel to get a divorce."}} else {puthelp "NOTICE $nick :Congragulations, a Proposal has been sent to $text please wait in #Chapel for a response"puthelp "NOTICE $text :$nick would like you to marry her, to agree type: /msg Love agree $nick to agree, to them and a notice will be sent to them. or type:$"puthelp "PRIVMSG #Chapel :Marriage Proposal has been sent from $nick to $text lets see what they say."}}}

Thats the whole code..

Statistics: Posted by kris — Fri Sep 29, 2006 1:56 am

[Solved] Love Marriage Command

2006-09-28T10:50:57-04:00

there is also a typo in the condition expression.

PS: if you used proper formating with the

Code:

, missing braces would be obvious already while posting.

Statistics: Posted by De Kus — Thu Sep 28, 2006 10:50 am

[Solved] Love Marriage Command

2006-09-28T10:46:35-04:00

the procedure isn't closed, its missing a curly bracket right at the end.

Statistics: Posted by deadite66 — Thu Sep 28, 2006 10:46 am

[Solved] Love Marriage Command

2006-10-02T08:35:16-04:00

Code:

set mrryrole "/home/kris/Love/eggdrop/marriage.role"bind msg "-|-" propose msg_propose proc msg_propose { nick userhost handle text } {if {![file exsits $mrryrole]} { puthelp "NOTICE $nick :Error: #3001 Please email kris0089@gmail.com for more help." return} else {set found 0#set text 0set fs [open $file r]while {![eof $fs]} {gets $fs lineif {$line == $nick} { set found 1 }#if {$line == $text} { set text 1 }}}

The error i get is: [14:41] Tcl error [msg_propose]: wrong # args: extra words after "else" clause in "if" command

so any help is greatly appreciated

Statistics: Posted by kris — Thu Sep 28, 2006 12:51 am