egghelp/eggheads community

user profile script

2021-03-28T00:06:56-04:00

I'm newbie in using TCL's script but i found it to be very intresting
I found this cool script but I got below error:-
Hope someone can help me out on this.
Thanks.

[21:58:38] Tcl error [int_proc_setup]: putdccraw is deprecated. Please use putdcc/putnow instead.

Statistics: Posted by vam2u — Sun Mar 28, 2021 12:06 am

user profile script

2018-12-10T15:11:46-04:00

Also... the output profile's nick is given in all lowercase. I tried the fix you gave originally, but that didn't seem to work...

I am using the original code provided (changed only the chan name and "location" or "orientation").

Statistics: Posted by crymsun — Mon Dec 10, 2018 3:11 pm

user profile script

2018-12-09T18:24:41-04:00

Got it!!! Thank you.

I wondered... is there any way to add an !editprofile feature? (Currently have it as !addprofile instead of !setup).

Rather than the user having to go through all the steps again... upon !editprofile the bot would bring up that nick's profile and the user could edit it?

Statistics: Posted by crymsun — Sun Dec 09, 2018 6:24 pm

user profile script

2018-12-09T05:34:26-04:00

Basically, all you have to do is to run this script.
It will create new directory for user data.

Statistics: Posted by tomekk — Sun Dec 09, 2018 5:34 am

user profile script

2018-12-09T00:29:40-04:00

I have loaded the script below... but I'm not sure what kind of files/folders I'm supposed to set up in the eggdrop directory...

I created a "Profiles" folder in the directory... but not sure how the script links to it... do I need to set up text files, or does the script create them?

Any help would be appreciated. Here is the code I used:

Code:

# Author: tomekk # e-mail:  tomekk/@/oswiecim/./eu/./org # home page: http://tomekk.oswiecim.eu.org/ # # Version 0.1 # # This file is Copyrighted under the GNU Public License. # http://www.gnu.org/copyleft/gpl.html # channels for !setup set setup_chans {#channel1 #channel2} # dir with profile files set profiles_dir "profiles" # location msg set location_msg "Thanks for taking the time to set up a profile so we may better know you. For the first step you do !location (and area you live)" # sex msg set sex_msg "you are ready for the next step which is !SEX-OR type in your sex (male/female) and your D/s position (Top/Bottom, Dom/sub, Master/slave, Sadist, masochist, switch)" # age msg set age_msg "you are ready for the next step which is !age" # describe msg set describe_msg "now you are ready for the next step which is !describeME type info you want all on one line" # likes msg set likes_msg "Great all you have left is likes and limits .... type !mylikes and your likes all on one line." # limits msg set limits_msg " Fantastic, now you are ready for the last step which is !mylimits type info you want all on one line" # end msg set end_msg "Wonderful and thank you!!!!!! You have completed the last step of your profile. If you would like to view what you entered do !desc NICK , Thanks, have fun!" ############################################################## bind pub - !setup setup_proc bind pub - !desc desc_proc bind msgm - "*" pm_proc set new_profiles_nicks [list] if {![file exists $profiles_dir]} {    file mkdir $profiles_dir } proc add_entry_to_profile { nick data } {    global profiles_dir    set small_nick [string tolower $nick]    set new_entry [open $profiles_dir/$small_nick a]    puts $new_entry $data    close $new_entry } proc lines_number { nick } {    global profiles_dir    set lines_counter 0        set small_nick [string tolower $nick]    if {[file exist $profiles_dir/$small_nick]} {       set fetch_data [open $profiles_dir/$small_nick r]       set lines_counter [llength [split [read $fetch_data] "\n"]]       close $fetch_data    }    if {$lines_counter > 0} {       set lines_counter [expr $lines_counter - 1]    }    return $lines_counter } proc setup_proc { nick uhost hand chan arg } {    global new_profiles_nicks location_msg profiles_dir setup_chans    if {[lsearch $setup_chans $chan] == -1} {       return    }    putquick "PRIVMSG $nick :$location_msg"    if {[lsearch $new_profiles_nicks $nick] == -1} {       lappend new_profiles_nicks $nick    }    set small_nick [string tolower $nick]    set new_profile_db [open $profiles_dir/$small_nick w]    close $new_profile_db } proc desc_proc { nick uhost hand chan arg } {    global new_profiles_nicks profiles_dir setup_chans    if {[lsearch $setup_chans $chan] == -1} {       return    }    set split_args [split $arg]    set input_nick [string tolower [lindex $split_args 0]]    if {$input_nick != ""} {       if {[file exists $profiles_dir/$input_nick]} {          set read_profile [open $profiles_dir/$input_nick r]          set full_data [read $read_profile]          close $read_profile          set desc_line_by_line [split $full_data "\n"]          putquick "PRIVMSG $nick :$input_nick\'s location is: [lindex $desc_line_by_line 0]"          putquick "PRIVMSG $nick :$input_nick is a: [lindex $desc_line_by_line 1]"          putquick "PRIVMSG $nick :$input_nick\'s age is: [lindex $desc_line_by_line 2]"          putquick "PRIVMSG $nick :$input_nick\'s description: [lindex $desc_line_by_line 3]"          putquick "PRIVMSG $nick :$input_nick\'s likes are: [lindex $desc_line_by_line 4]"          putquick "PRIVMSG $nick :$input_nick\'s limits are: [lindex $desc_line_by_line 5]"       } {          putquick "PRIVMSG $chan :$nick: sorry, $input_nick profile doesn't exist"       }    } {       putquick "PRIVMSG $chan :$nick: use, !desc "    } } proc pm_proc { nick uhost hand arg } {    global new_profiles_nicks sex_msg age_msg describe_msg likes_msg limits_msg end_msg    set split_args [split $arg]    set cmd_name [string tolower [lindex $split_args 0]]    set cmd_data [join [lrange $split_args 1 end]]    set available_cmds {"!location" "!sex-or" "!age" "!describeme" "!mylikes" "!mylimits"}    if {[lsearch $available_cmds $cmd_name] == -1} {       return    }    if {[lsearch $new_profiles_nicks $nick] != -1} {       switch -- $cmd_name {          "!location" {             if {$cmd_data != ""} {                if {[lines_number $nick] == 0} {                   add_entry_to_profile $nick $cmd_data                   putquick "PRIVMSG $nick :$sex_msg"                }             } {                putquick "PRIVMSG $nick :use, !location "             }          }          "!sex-or" {             if {$cmd_data != ""} {                if {[lines_number $nick] == 1} {                   add_entry_to_profile $nick $cmd_data                   putquick "PRIVMSG $nick :$age_msg"                }             } {                putquick "PRIVMSG $nick :use, !sex-or "             }          }          "!age" {             if {$cmd_data != ""} {                if {[lines_number $nick] == 2} {                   add_entry_to_profile $nick $cmd_data                   putquick "PRIVMSG $nick :$describe_msg"                }             } {                putquick "PRIVMSG $nick :use, !age "             }          }          "!describeme" {             if {$cmd_data != ""} {                if {[lines_number $nick] == 3} {                   add_entry_to_profile $nick $cmd_data                   putquick "PRIVMSG $nick :$likes_msg"                }             } {                putquick "PRIVMSG $nick :use, !describeme "             }          }          "!mylikes" {             if {$cmd_data != ""} {                if {[lines_number $nick] == 4} {                   add_entry_to_profile $nick $cmd_data                   putquick "PRIVMSG $nick :$limits_msg"                }             } {                putquick "PRIVMSG $nick :use, !mylikes "             }          }          "!mylimits" {             if {$cmd_data != ""} {                if {[lines_number $nick] == 5} {                   add_entry_to_profile $nick $cmd_data                   set temp_new_profiles_nicks [list]                   foreach profile_nick [split $new_profiles_nicks] {                      if {($profile_nick != "") && ($profile_nick != $nick)} {                         lappend temp_new_profiles_nicks $profile_nick                      }                   }                   set new_profiles_nicks $temp_new_profiles_nicks                   putquick "PRIVMSG $nick :$end_msg"                }             } {                putquick "PRIVMSG $nick :use, !mylimits "                }          }       }    } {       putquick "PRIVMSG $nick :You need to type !setup on channel at first"    } } putlog "profile.tcl ver 0.1 by tomekk loaded"

Statistics: Posted by crymsun — Sun Dec 09, 2018 12:29 am

user profile script

2009-11-27T13:36:18-04:00

an addition:

is it possible that when a user who has a profile setup, the bot will greet him when he joins by his name, like Hi Tommy
but will also greet him by the bot's local time clock
like between 0-6: Good night Tommy. 6-12: good morning Tommy
12-17: good afternon Tommy and 17-24: good evening Tommy?

aswell as adding an option for defining his name?

* Can you paste the full scripts as they are fixed?

the date addon was the last addon which i've made for this script, sorry mate

Statistics: Posted by tomekk — Fri Nov 27, 2009 1:36 pm

user profile script

2009-11-19T09:10:40-04:00

an addition:

is it possible that when a user who has a profile setup, the bot will greet him when he joins by his name, like Hi Tommy
but will also greet him by the bot's local time clock
like between 0-6: Good night Tommy. 6-12: good morning Tommy
12-17: good afternon Tommy and 17-24: good evening Tommy?

aswell as adding an option for defining his name?

* Can you paste the full scripts as they are fixed?

Statistics: Posted by Football — Thu Nov 19, 2009 9:10 am

user profile script

2009-11-06T05:55:12-04:00

Thanks Sir Tomekk, For Ur help.. so far ur script working gr8.. even the birthhay msg in the channel aslo showing properly.. Good luck

Statistics: Posted by sk-4 — Fri Nov 06, 2009 5:55 am

user profile script

2009-11-04T10:21:10-04:00

bro Tomek.. How to check if the bot msg the channel when their is birthday..

i set sk's birthday: 03-11-1979 ..but there is no respond. any idea how to check the date or maybe any public to command to check which birthday is coming 1st..

ahh.. i didn't see this..

date format is in "MONTH-DAY-YEAR" MM-DD-YYYY
then, you should write "11-03-1979"

23:40:21 -!- botty [tomekk@10.0.1.10] has joined #thechan
23:45:03 < botty> tomekk birthday is today and he/she is 69

and should be 'tomekk's'... my mistake...
profile.tcl -> profile_check_birthday proc
change:

Code:

putquick "PRIVMSG $output_channel :$profile birthday is today and he/she is [expr $current_clock_year - $birth_year]"

to:

Code:

putquick "PRIVMSG $output_channel :$profile\'s birthday is today and he/she is [expr $current_clock_year - $birth_year]"

Statistics: Posted by tomekk — Wed Nov 04, 2009 10:21 am

user profile script

2009-11-04T09:37:33-04:00

# bind for birthday date checks
# 0 - disable
# 1 - enable, bot sohuld checks dates every day
set profile_birth_checks 1

# if profile_birth_checks is set to 1,
# you can set here on which hour/minute bot will check the birth dates (hour in 24clock format, hours/minutes in format like: 02, 03, 04, 11, 22 etc)
set profile_birth_hour 23
set profile_birth_minute 45

# birthday entry position in profile datafile
# default 3rd position, after 'from' and 'sex' fields
set profile_birth_file_pos 3

# all these five lists must have the same number of elements
# headers for !view
set profile_view_headers {
"&n location:"
"&n sex:6"
"&n birthday:"
"&n description:"
"&n favourite:"
"&n quote:"
}

# questions lists, one by one
set int_questions_list {
"Thanks for taking the time to set up a profile so we may better know you. For the first step you setup ur 4location .. ex: California "
"Are you ready for the next step which is SEX..Type in your sex (male/female/gay/lesbian/bot/alien)..Check ur spelling 10ex: bot"
"For the next step which is Birthday.. ex: 12-30-1980, 02-03-1975"
"Next step which is describe about me.. ex: The Chatter Bot"
"Great next Question is likes .. ex: I love Chatting,Flirting,Dating"
"Fantastic, now you are ready for the last step which is favourite quote ex: No one is guaranteed happiness. Life just gives each person time and space. It's up to us to fill it with joy "
}

# uniq key of each question
# some short uniq word, without spaces will be better
set int_questions_key {
"location"
"sex"
"birth"
"desc"
"likes"
"quote"
}

# questions regexps, one by one
# if you don't know how to build regexp, use {.*} and pray (.* any chars ;p)
set int_questions_regexp {
{.*}
{^(male|Male|Female|female|gay|lesbian|bot|alien)$}
{^[0-9]{2}\-[0-9]{2}\-[0-9]{4}$}
{.*}
{.*}
{.*}
}

i only changed the name "&n limits:" to "&n quote:".. anything mistake there ?

Statistics: Posted by sk-4 — Wed Nov 04, 2009 9:37 am

user profile script

2009-11-04T07:02:53-04:00

show me your:

Code:

# bind for birthday date checks # 0 - disable # 1 - enable, bot sohuld checks dates every day set profile_birth_checks 1 # if profile_birth_checks is set to 1, # you can set here on which hour/minute bot will check the birth dates (hour in 24clock format, hours/minutes in format like: 02, 03, 04, 11, 22 etc) set profile_birth_hour 10 set profile_birth_minute 05 # birthday entry position in profile datafile # default 3rd position, after 'from' and 'sex' fields set profile_birth_file_pos 3

and:

Code:

# all these five lists must have the same number of elements # headers for !view set profile_view_headers {    "&n location:"    "&n sex:"    "&n birthday:"    "&n description:"    "&n likes:"    "&n limits:" } # questions lists, one by one set int_questions_list {    "your location ;>"    "your sex ;>"    "your birthday date ;>"    "your description ;>"    "your likes ;>"    "your limits ;>" } # uniq key of each question # some short uniq word, without spaces will be better set int_questions_key {    "location"    "sex"    "birth"    "desc"    "likes"    "limits" } # questions regexps, one by one # if you don't know how to build regexp, use {.*}  and pray (.* any chars ;p) set int_questions_regexp {    {.*}    {^(male|female)$}    {^[0-9]{2}\-[0-9]{2}\-[0-9]{4}$}    {.*}    {.*}    {.*} }

Statistics: Posted by tomekk — Wed Nov 04, 2009 7:02 am

user profile script

2009-11-03T06:04:52-04:00

bro Tomek.. How to check if the bot msg the channel when their is birthday..

i set sk's birthday: 03-11-1979 ..but there is no respond. any idea how to check the date or maybe any public to command to check which birthday is coming 1st..

Statistics: Posted by sk-4 — Tue Nov 03, 2009 6:04 am

user profile script

2009-11-02T06:28:35-04:00

thanks bro ..the keygen is working properly as i want it..

the sample
HeRe iS YouR KeYGeN: 52195

Statistics: Posted by sk-4 — Mon Nov 02, 2009 6:28 am

user profile script

2009-11-01T07:43:03-04:00

wc back bro..yup this key 4c4712a4141d261ec0ca8f9037950685 etc etc is to long any way u can make it shorter like 12345 or ab123

interviewer-addon-0.1.tcl ver. for profile-0.5.tcl

Code:

# Author: tomekk                                                                                    # e-mail:  tomekk/@/oswiecim/./eu/./org                                                             # home page: http://tomekk.oswiecim.eu.org/                                                         #                                                                                                   # Version 0.1## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html# config header and procs moved to profile-0.*.tcl################################ high wizardry begins ##################################################################################################################################if {[string match "*s*" $int_proc_bind]} {bind pub -|- $int_bind(setup) int_proc_setup}if {[string match "*u*" $int_proc_bind]} {bind pub -|- $int_bind(updatee) int_proc_update}if {[string match "*d*" $int_proc_bind]} {bind pub -|- $int_bind(delete) int_proc_remove}if {[string match "*r*" $int_proc_bind]} {bind pub -|- $int_bind(release) int_proc_release}if {[string match "*e*" $int_proc_bind]} {bind pub o|o $int_bind(sessions) int_proc_sessions}if {[string match "*f*" $int_proc_bind]} {bind pub o|o $int_bind(flussh) int_proc_flush}if {[string match "*p*" $int_proc_bind]} {bind msgm -|- "*" int_proc_msgm}if {[string match "*a*" $int_proc_bind]} {bind part -|- "*" int_proc_part}if {[string match "*i*" $int_proc_bind]} {bind sign -|- "*" int_proc_sign}if {[string match "*l*" $int_proc_bind]} {bind splt -|- "*" int_proc_splt}if {[string match "*k*" $int_proc_bind]} {bind kick -|- "*" int_proc_kick}if {[string match "*n*" $int_proc_bind]} {bind nick -|- "*" int_proc_nick}setudef flag intaddset int_global_nicks [list]set int_global_uhosts [list]set int_global_pnames [list]set int_global_questions_idx [list]set int_global_answers_mode [list]set int_global_modes [list]set int_global_update_mode [list]proc putnq { data } {putdccraw 0 [string length "$data\n"] "$data\n"}proc int_check_global_n_u { nick uhost } {global int_global_nicks int_global_uhostsset new_n_u_state 0if {([lsearch $int_global_nicks $nick] > -1) && \([lsearch $int_global_uhosts $uhost] > -1)} {set new_n_u_state 1}return $new_n_u_state}proc int_check_global_pn { profile_name } {global int_global_pnamesset new_pn_state 0if {[lsearch $int_global_pnames $profile_name] > -1} {set new_pn_state 1}return $new_pn_state}proc int_nick_to_profile { nick } {global int_global_nicks int_global_pnamesset profile_name ""set nick_idx [lsearch $int_global_nicks $nick]set profile_name [lindex $int_global_pnames $nick_idx]return $profile_name}proc int_nick_to_idx { nick } {global int_global_nicksset nick_idx [lsearch $int_global_nicks $nick]return $nick_idx}proc int_nick_to_answer_mode { nick } {global int_global_answers_modeset nick_answer_mode ""set nick_global_idx [int_nick_to_idx $nick]set nick_answer_mode [lindex $int_global_answers_mode $nick_global_idx]return $nick_answer_mode}proc int_nick_to_update_mode { nick } {global int_global_update_modeset nick_update_mode ""set nick_global_idx [int_nick_to_idx $nick]set nick_update_mode [lindex $int_global_update_mode $nick_global_idx]return $nick_update_mode}proc int_nick_to_mode { nick } {global int_global_modesset nick_int_mode ""set nick_global_idx [int_nick_to_idx $nick]set nick_int_mode [lindex $int_global_modes $nick_global_idx]return $nick_int_mode}proc int_switch_answer_mode { nick } {global int_global_answers_modeset nick_global_idx [int_nick_to_idx $nick]set user_answer_mode [lindex $int_global_answers_mode $nick_global_idx]if {$user_answer_mode == 0} {set int_global_answers_mode [lreplace $int_global_answers_mode $nick_global_idx $nick_global_idx 1]} {set int_global_answers_mode [lreplace $int_global_answers_mode $nick_global_idx $nick_global_idx 0]}}proc int_switch_update_mode { nick } {global int_global_update_modeset nick_global_idx [int_nick_to_idx $nick]set user_update_mode [lindex $int_global_update_mode $nick_global_idx]if {$user_update_mode == 0} {set int_global_update_mode [lreplace $int_global_update_mode $nick_global_idx $nick_global_idx 1]} {set int_global_update_mode [lreplace $int_global_update_mode $nick_global_idx $nick_global_idx 0]}}proc int_incr_nick_idx { nick } {global int_global_questions_idxset nick_global_idx [int_nick_to_idx $nick]set nick_question_idx [expr [lindex $int_global_questions_idx $nick_global_idx] + 1]set int_global_questions_idx [lreplace $int_global_questions_idx $nick_global_idx $nick_global_idx $nick_question_idx]}proc int_set_nick_idx { nick new_idx } {global int_global_questions_idxset nick_global_idx [int_nick_to_idx $nick]set int_global_questions_idx [lreplace $int_global_questions_idx $nick_global_idx $nick_global_idx $new_idx]}proc int_nick_for_delete { nick } {global int_global_nicks int_global_uhosts int_global_pnames int_global_questions_idx int_global_answers_mode int_global_modes int_global_update_modeset nick_global_idx [int_nick_to_idx $nick]set int_global_nicks [lreplace $int_global_nicks $nick_global_idx $nick_global_idx]set int_global_uhosts [lreplace $int_global_uhosts $nick_global_idx $nick_global_idx]set int_global_pnames [lreplace $int_global_pnames $nick_global_idx $nick_global_idx]set int_global_questions_idx [lreplace $int_global_questions_idx $nick_global_idx $nick_global_idx]set int_global_answers_mode [lreplace $int_global_answers_mode $nick_global_idx $nick_global_idx]set int_global_modes [lreplace $int_global_modes $nick_global_idx $nick_global_idx]set int_global_update_mode [lreplace $int_global_update_mode $nick_global_idx $nick_global_idx]}proc int_proc_setup { nick uhost hand chan arg } {global int_bind int_msg int_global_nicks int_global_uhosts int_global_pnames int_global_questions_idx int_global_answers_mode int_global_modes int_global_update_mode int_bind_regexp int_questions_auto_start int_random_generator int_questions_listif {![channel get $chan intadd]} {return}set profile_name [lindex [split $arg] 0]if {$profile_name != ""} {if {![regexp $int_bind_regexp $profile_name]} {putnq "PRIVMSG $nick :$int_msg(bind_help)"return}if {[int_check_if_profile_exists $nick $uhost $profile_name $chan] == 0} {if {([int_nick_to_mode $nick] != "update") && ([int_nick_to_mode $nick] != "remove")} {if {[int_check_global_n_u $nick $uhost] == 0} {if {[int_check_global_pn $profile_name] == 0} {lappend int_global_nicks $nicklappend int_global_uhosts $uhostlappend int_global_pnames $profile_namelappend int_global_questions_idx 0lappend int_global_answers_mode 0lappend int_global_modes "setup"lappend int_global_update_mode 0#if {$int_random_generator == 0} {#set open_dev [open "/dev/urandom" r]#set get_bytes [read $open_dev 16]   #close $open_dev                     #} {#set some_numbers [expr floor(rand() * [clock seconds])]#set some_string [lindex $int_questions_list [rand [llength $int_questions_list]]]#set some_char [string index $some_string [expr [rand [string length $some_string]] - 1]]#set get_bytes "$some_numbers $some_char"#}#set md5_key [md5 $get_bytes]set action_time [clock seconds]set md5_key [rand 999999]int_new_profile_event $nick $uhost $chan $profile_name $md5_key $action_timeset key_msg $int_msg(int_key)regsub -all "&k" $key_msg $md5_key key_msgputnq "PRIVMSG $nick :$int_msg(int_start)"putnq "PRIVMSG $nick :$key_msg"if {$int_questions_auto_start == 1} {int_proc_msgm $nick $uhost $hand $int_bind(questions_start)}} {putnq "PRIVMSG $nick :$int_msg(setup_profile_name_already_in_use)"}} {putnq "PRIVMSG $nick :$int_msg(setup_already_in_use)"}} {putnq "PRIVMSG $nick :$int_msg(just_one_command)"}} {putnq "PRIVMSG $nick :$int_msg(profile_exists)"}} {putnq "PRIVMSG $nick :$int_msg(setup_help)"}}proc int_proc_update { nick uhost hand chan arg } {global int_msg int_global_nicks int_global_uhosts int_global_pnames int_global_questions_idx int_global_answers_mode int_global_modes int_global_update_mode int_bind_regexpif {![channel get $chan intadd]} {return}set profile_name [lindex [split $arg] 0]if {$profile_name != ""} {if {![regexp $int_bind_regexp $profile_name]} {putnq "PRIVMSG $nick :$int_msg(bind_help)"return}if {[int_check_if_profile_exists $nick $uhost $profile_name $chan] == 1} {if {([int_nick_to_mode $nick] != "setup") && ([int_nick_to_mode $nick] != "remove")} {if {[int_check_global_n_u $nick $uhost] == 0} {if {[int_check_global_pn $profile_name] == 0} {lappend int_global_nicks $nicklappend int_global_uhosts $uhostlappend int_global_pnames $profile_namelappend int_global_questions_idx 0lappend int_global_answers_mode 0lappend int_global_modes "update"lappend int_global_update_mode 0putnq "PRIVMSG $nick :$int_msg(update_start)"} {putnq "PRIVMSG $nick :$int_msg(update_profile_name_already_in_use)"}} {putnq "PRIVMSG $nick :$int_msg(update_already_in_use)"}} {putnq "PRIVMSG $nick :$int_msg(just_one_command)"}} {putnq "PRIVMSG $nick :$int_msg(profile_not_exists)"}} {putnq "PRIVMSG $nick :$int_msg(update_help)"}}proc int_proc_remove { nick uhost hand chan arg } {global int_msg int_global_nicks int_global_uhosts int_global_pnames int_global_questions_idx int_global_answers_mode int_global_modes int_global_update_mode int_bind_regexpif {![channel get $chan intadd]} {return}set profile_name [lindex [split $arg] 0]if {$profile_name != ""} {if {![regexp $int_bind_regexp $profile_name]} {putnq "PRIVMSG $nick :$int_msg(bind_help)"return}if {[int_check_if_profile_exists $nick $uhost $profile_name $chan] == 1} {if {([int_nick_to_mode $nick] != "setup") && ([int_nick_to_mode $nick] != "update")} {if {[int_check_global_n_u $nick $uhost] == 0} {if {[int_check_global_pn $profile_name] == 0} {lappend int_global_nicks $nicklappend int_global_uhosts $uhostlappend int_global_pnames $profile_namelappend int_global_questions_idx 0lappend int_global_answers_mode 0lappend int_global_modes "remove"lappend int_global_update_mode 0putnq "PRIVMSG $nick :$int_msg(remove_start)"} {putnq "PRIVMSG $nick :$int_msg(remove_profile_name_already_in_use)"}} {putnq "PRIVMSG $nick :$int_msg(remove_already_in_use)"}} {putnq "PRIVMSG $nick :$int_msg(just_one_command)"}} {putnq "PRIVMSG $nick :$int_msg(profile_not_exists)"}} {putnq "PRIVMSG $nick :$int_msg(remove_help)"}}proc int_proc_release { nick uhost hand chan arg } {global int_global_nicks int_msgif {![channel get $chan intadd]} {return}if {[lsearch $int_global_nicks $nick] > -1} {int_nick_for_delete $nickputnq "PRIVMSG $nick :$int_msg(release_done)"} {putnq "PRIVMSG $nick :$int_msg(release_empty)"}}proc int_proc_msgm { nick uhost hand arg } {global int_bind int_msg int_questions_list int_global_questions_idx int_questions_key int_questions_regexp int_question_helpset arg [string trim $arg]if {[int_check_global_n_u $nick $uhost] == 1} {set profile_name [int_nick_to_profile $nick]set nick_global_idx [int_nick_to_idx $nick]set nick_answer_mode [int_nick_to_answer_mode $nick]set nick_update_mode [int_nick_to_update_mode $nick]set questions_counter [expr [llength $int_questions_list] - 1]set action_time [clock seconds]set nick_question_idx [lindex $int_global_questions_idx $nick_global_idx]set nick_int_mode [int_nick_to_mode $nick]if {$nick_int_mode == "setup"} {if {$nick_answer_mode == 0} {if {$int_bind(questions_start) == $arg} {putnq "PRIVMSG $nick :[lindex $int_questions_list $nick_question_idx]"int_switch_answer_mode $nick}} {if {[lindex $int_global_questions_idx $nick_global_idx] < $questions_counter} {if {[regexp [lindex $int_questions_regexp $nick_question_idx] $arg]} {int_incr_nick_idx $nickint_answer_event $nick $uhost $profile_name $arg $action_time [lindex $int_questions_key $nick_question_idx]putnq "PRIVMSG $nick :[lindex $int_questions_list [expr $nick_question_idx + 1]]"} {putnq "PRIVMSG $nick :[lindex $int_question_help $nick_question_idx]"}} {if {[regexp [lindex $int_questions_regexp $nick_question_idx] $arg]} {int_answer_event $nick $uhost $profile_name $arg $action_time [lindex $int_questions_key $nick_question_idx]int_nick_for_delete $nickputnq "PRIVMSG $nick :$int_msg(int_end)"} {putnq "PRIVMSG $nick :[lindex $int_question_help $nick_question_idx]"}}}} elseif {$nick_int_mode == "update"} {set question_list [list]set question_idx 1foreach question $int_questions_list {if {$question != ""} {lappend question_list "$question_idx\) $question"incr question_idx 1}}set question_list [join $question_list ", "]if {$nick_answer_mode == 0} {if {[int_check_if_key_is_correct $nick $uhost $profile_name $arg] == 1} {putnq "PRIVMSG $nick :$int_msg(update_welcome)"putnq "PRIVMSG $nick :$int_msg(update_question_list) $question_list"int_switch_answer_mode $nick} {int_nick_for_delete $nickputnq "PRIVMSG $nick :$int_msg(update_wrong_key)"}} {if {$nick_update_mode == 0} {if {[regexp {^[0-9]+$} $arg]} {if {($arg > 0) && ($arg <= [expr $questions_counter + 1])} {putnq "PRIVMSG $nick :[lindex $int_questions_list [expr $arg - 1]]"int_switch_update_mode $nickint_set_nick_idx $nick [expr $arg - 1]} {putnq "PRIVMSG $nick :$int_msg(update_question_number_range)"}} {putnq "PRIVMSG $nick :$int_msg(update_question_number)"}} {if {[regexp [lindex $int_questions_regexp $nick_question_idx] $arg]} {int_update_event $nick $uhost $profile_name $arg $action_time [lindex $int_questions_key $nick_question_idx]putnq "PRIVMSG $nick :$int_msg(update_done)"putnq "PRIVMSG $nick :$int_msg(update_question_list) $question_list"int_switch_update_mode $nickint_set_nick_idx $nick 0} {putnq "PRIVMSG $nick :[lindex $int_question_help $nick_question_idx]"}}}} elseif {$nick_int_mode == "remove"} {if {[int_check_if_key_is_correct $nick $uhost $profile_name $arg] == 1} {int_nick_for_delete $nickint_remove_profile_event $nick $uhost $profile_name $action_timeputnq "PRIVMSG $nick :$int_msg(remove_end)"} {int_nick_for_delete $nickputnq "PRIVMSG $nick :$int_msg(remove_wrong_key)"}}}}proc int_proc_sessions { nick uhost hand chan arg } {global int_msg int_global_nicks int_global_uhosts int_global_pnames int_global_questions_idx int_global_answers_mode int_questions_key int_global_modes int_global_update_modeif {![channel get $chan intadd]} {return}set sess_len [llength $int_global_nicks]if {$sess_len > 0} {putnq "PRIVMSG $nick :nick   |   uhost   |   profile   |   qidx   |   qkey   |   amode   |   imode   |   umode"for {set i 0} {$i < $sess_len} {incr i 1} {putnq "PRIVMSG $nick :[lindex $int_global_nicks $i]   |   [lindex $int_global_uhosts $i]   |   [lindex $int_global_pnames $i]   |   [lindex $int_global_questions_idx $i]   |   [lindex $int_questions_key [lindex $int_global_questions_idx $i]]   |   [lindex $int_global_answers_mode $i]   |   [lindex $int_global_modes $i]   |   [lindex $int_global_update_mode $i]"}} {putnq "PRIVMSG $nick :$int_msg(sessions_list_empty)"}}proc int_proc_flush { nick uhost hand chan arg } {global int_global_nicks int_msg int_bind_regexp int_global_nicks int_global_uhosts int_global_pnames int_global_questions_idx int_global_answers_mode int_global_modes int_global_update_modeif {![channel get $chan intadd]} {return}set nick_to_flush [lindex [split $arg] 0]if {$nick_to_flush != ""} {if {![regexp $int_bind_regexp $nick_to_flush]} {putnq "PRIVMSG $nick :$int_msg(bind_help)"return}if {[lsearch $int_global_nicks $nick_to_flush] > -1} {int_nick_for_delete $nick_to_flushputnq "PRIVMSG $nick :$int_msg(session_destroyed)"} {putnq "PRIVMSG $nick :$int_msg(session_n_exists)"}} {set int_global_nicks [list]set int_global_uhosts [list]set int_global_pnames [list]set int_global_questions_idx [list]set int_global_answers_mode [list]set int_global_modes [list]set int_global_update_mode [list]putnq "PRIVMSG $nick :$int_msg(all_sessions_destroyed)"}}proc int_proc_part { nick uhost hand chan msg } {global int_global_nicks if {![channel get $chan intadd]} {return}if {[lsearch $int_global_nicks $nick] > -1} {int_nick_for_delete $nick}}proc int_proc_sign { nick uhost hand chan msg } {global int_global_nicksif {![channel get $chan intadd]} {return}if {[lsearch $int_global_nicks $nick] > -1} {int_nick_for_delete $nick}}proc int_proc_splt { nick uhost hand chan } {global int_global_nicksif {![channel get $chan intadd]} {return}if {[lsearch $int_global_nicks $nick] > -1} {int_nick_for_delete $nick}}proc int_proc_kick { nick uhost hand chan target rsn } {global int_global_nicks if {![channel get $chan intadd]} {return}if {[lsearch $int_global_nicks $target] > -1} {int_nick_for_delete $target}}proc int_proc_nick { nick uhost hand chan newnick } {global int_global_nicksif {![channel get $chan intadd]} {return        }set nick_global_idx [int_nick_to_idx $nick]if {$nick_global_idx > -1} {set int_global_nicks [lreplace $int_global_nicks $nick_global_idx $nick_global_idx $newnick]}}putlog "interviewer-addon.tcl ver 0.1 by tomekk loaded"# end of magic ;)

try it...

Statistics: Posted by tomekk — Sun Nov 01, 2009 7:43 am

user profile script

2009-10-31T15:02:40-04:00

wc back bro..yup this key 4c4712a4141d261ec0ca8f9037950685 etc etc is to long any way u can make it shorter like 12345 or ab123

Statistics: Posted by sk-4 — Sat Oct 31, 2009 3:02 pm