egghelp.org community :: View topic - Fix script Allakhazam

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

Fix script Allakhazam

egghelp.org community Forum Index -> Script Support & Releases

View previous topic :: View next topic

Author

Message

FarCry
Voice

Joined: 11 Jul 2007
Posts: 7

Posted: Thu Jul 12, 2007 11:53 am Post subject: Fix script Allakhazam

Please help fix problem with this script !!!
I don't know why he not work .

Sry for my bad english .

Code:

# Allakhazam item info v1.0.0 by Lopo
# based on the imdb info script released by phillie
#
# usage:
#
# !alla [-hl] <itemname>
#
# -h show help
#
# cookies for output format:
#
# bold = %bold
# underline = %uline
# colors = %color#,#
# new line = \n
#
# to reset colors, just use %color without any arguments.
#
# config:
# -------

# debug mode?
set DEBUG 0

set ALLAversion "1.0.0"

# proxy support. leave empty to disable
set ALLAhost ""
set ALLAport ""

# trigger you want to use
set ALLAtrigger "!alla"

# userflags needed to use this script
set ALLArights "-|-"

# use +imdb chan-mode
set ALLAperm 0

# 0 for response via notice to $nick, 1 for msg to $chan
set pub_or_not 1
#################################################################

setudef flag alla
package require http

bind pub $ALLArights $ALLAtrigger alla_proc

proc htmlcodes {tempfile} {
set mapfile [string map {" ' & & [ ( \ / ] ) { ( } ) £ Ј ¨ Ё © © « « ® ® } $tempfile]
set mapfile [string map {´ ґ · · ¹ № » » ¼ ј ½ Ѕ ¾ ѕ À А Á Б Â В } $mapfile]
set mapfile [string map {Ã Г Ä Д Å Е Æ Ж Ç З È И É Й Ê К Ë Л Ì М Í Н Î О Ï П Ð Р Ñ С Ò Т Ó У Ô Ф Õ Х Ö Ц } $mapfile]
set mapfile [string map {× Ч Ø Ш Ù Щ Ú Ъ Û Ы Ü Ь Ý Э Þ Ю ß Я à а á б â в ã г ä д å е æ ж ç з è и é й ê к } $mapfile]
set mapfile [string map {ë л ì м í н î о ï п ð р ñ с ò т ó у ô ф õ х ö ц ÷ ч ø ш ù щ ú ъ û ы ü ь ý э þ ю } $mapfile]
return $mapfile
}

proc channel_check { chan } {
foreach setting [channel info $chan] {
if {[regexp -- {^[\+-]} $setting]} {
if {![string compare "+alla" $setting]} {
set permission 1
} else {
set permission 0
}
}
}
return $permission
}

proc replacevar {strin what withwhat} {
set output $strin
set replacement $withwhat
set cutpos 0
while { [string first $what $output] != -1 } {
set cutstart [expr [string first $what $output] - 1]
set cutstop [expr $cutstart + [string length $what] + 1]
set output [string range $output 0 $cutstart]$replacement[string range $output $cutstop end]
}
return $output
}

proc alla_proc { nick uhost handle chan argv } {
global DEBUG ALLAtrigger announce pub_or_not ALLAperm allablow
# channel_check permission
if {$ALLAperm == 1} {
 set permission_result [channel_check $chan]
 if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG permission_result == $permission_result" }
 if { $permission_result == 0 } { return }
}
if {$pub_or_not == 1 } { set toput "PRIVMSG $chan" } else { set toput "NOTICE $nick" }
set start 0
set extended 1
set linkonly 0
if {$argv == ""} {
 if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG no argv passed, show help notice" }
 putserv "PRIVMSG $chan :\[\002Allakhazam\002\] try $ALLAtrigger -h"
 return
}
if {[lindex $argv 0] == "-h" || [lindex $argv 1] == "-h" || [lindex $argv 2] == "-h" || [lindex $argv 3] == "-h"} {
 if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG argv == help, show help" }
 putserv "PRIVMSG $nick :Allakhazam item info v$ALLAversion by Lopo"
 putserv "PRIVMSG $nick :----------------------------------------------------------------"
 putserv "PRIVMSG $nick :$ALLAtrigger \[-hl\] <itemname>"
 putserv "PRIVMSG $nick : "
 putserv "PRIVMSG $nick :\002options\002:"
 putserv "PRIVMSG $nick :\002-h\002 show help"
 putserv "PRIVMSG $nick :\002-l\002 show only http link"
 return
}

# check for commands
if {[lindex $argv 0] == "-l" || [lindex $argv 1] == "-l" || [lindex $argv 2] == "-l" || [lindex $argv 3] == "-l"} {
 incr start
 incr linkonly
 set moviename [lrange $argv $start end]
 }
# create moviename using $start
set moviename [lrange $argv $start end]
# initial search
set allaurl "http://wow.allakhazam.com"
set allasearchurl "http://wow.allakhazam.com/search.html?q="
set timeout 20000
set searchString [::http::formatQuery $moviename]
set searchString [string trimleft $searchString "+"]
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG searchString: \"$searchString\"" }
set page [::http::config -useragent "MSIE 6.0" -proxyhost $::ALLAhost -proxyport $::ALLAport]
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG ${allasearchurl}$searchString" }
if {[catch {::http::geturl ${allasearchurl}$searchString -timeout $timeout} page]} {
 putlog "\002ALLA Error\002: $page"
} elseif {[http::status $page] == "timeout"} {
 putlog "\002ALLA Error\002: Timeout after $timeout seconds"
}
set html [::http::data $page]
::http::Finish $page

if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG redirect 0" }
upvar 0 $page oldpage
set body $oldpage(body)
set pos [expr [string first ">0 items found.<" $body] + 0]
if {$pos != -1} {
 putserv "$toput :0 items found."
 return
 }
set pos [expr [string first "items found" $body] + 11]
set body [string range $body $pos end]
set lpole {}
set sname [string tolower [replacevar $searchString "+" " "]]
while {[string length $body] > 0} {
 set pos [expr [string first "/images/icons/" $body]]
 if {$pos == -1} {
 break
 }
 set body [string range $body $pos end]
 set pos [expr [string first "/db/item.html?witem=" $body] + 0]
 set body [string range $body $pos end]
 regexp {witem=[0-9]+} $body itemid
 set itemid [string range $itemid 6 end]
 if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG ItemID == $itemid" }
 set pos [expr [string first "name\">" $body] + 6]
 set body [string range $body $pos end]
 set pos1 [expr [string first < $body] - 1]
 set itemname [string range $body 0 $pos1]
 set pole($itemid) $itemname
 lappend lpole $itemid
 set itemname [string tolower $itemname]
 if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG Itemname == $itemname" }
 set exact [string compare $sname $itemname]
 if {$exact == 0} {
 break
 }
 }
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG lpole == $lpole" }
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG exact == $exact" }
if {$exact != 0 && [llength $lpole] > 1} {
 putserv "$toput :[llength $lpole] items found"
 foreach i $lpole {
 if {[llength $lpole] < 11} {
 putserv "$toput :http://wow.allakhazam.com/db/item.html?witem=$i - $pole($i)"
 } {
 putserv "PRIVMSG $nick :http://wow.allakhazam.com/db/item.html?witem=$i - $pole($i)"
 }
 }
 return
 }
set iid $itemid
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG redirect 0 iID == $iid" }
if {$linkonly>0} {
 putserv "$toput :http://wow.allakhazam.com/db/item.html?witem=$iid"
 return
 }
set newurl "$allaurl/dev/wow/item-xml.pl?witem=$iid"
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG redirect 0 = $newurl" }
unset html
set page [::http::config -useragent "MSIE 6.0" -proxyhost $::ALLAhost -proxyport $::ALLAport]
if {[catch {::http::geturl $newurl -timeout $timeout} page]} {
 putlog "\002ALLA Error\002: $page"
} elseif {[http::status $page] == "timeout"} {
 putlog "\002ALLA Error\002: Timeout after $timeout mseconds"
 if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG Timeout after $timeout mseconds"}
 return
}
set html [::http::data $page]
::http::Finish $page
# for bogus searches
if {[string length $newurl] == 0} {
 putserv "$toput :No no no! I can't find that!"
 if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG bogus searches" }
 return
}
set iname "N/A"; set idesc "N/A"
## get title
if [regexp {<name1>[^<]+} $html iname] {
 set pos [expr [string last > $iname] + 1]
 set iname [string range $iname $pos end]
 set iname [htmlcodes $iname]
}
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG iname == $iname" }
## full desc
set fhtml {}
set beg 0
foreach i $html {
 set pos [string first "<display_html>" $i]
 if {$pos>-1} {
 set fhtml [string range $i $pos end]
 set beg 1
 continue
 }
 set pos1 [string first "</display_html>" $i]
 if {$pos1>-1} {
 append fhtml " "
 append fhtml [string range $i 0 $pos1]
 break
 }
 append fhtml " "
 append fhtml $i
 }
set pos [expr [string first > $fhtml] + 1]
set pos1 [expr [string last < $fhtml] - 1]
set popis [string range $fhtml $pos $pos1]
set phtml [replacevar $popis "&nbsp;" " "]
set phtml [replacevar $phtml "<" "<"]
set phtml [replacevar $phtml ">" ">"]
set phtml [replacevar $phtml """ "\""]
set phtml [replacevar $phtml " <" "<"]
set phtml [replacevar $phtml "> " ">"]
set phtml [replacevar $phtml " " " "]
set pos [expr [string first "" $phtml] -1]
set dhtml [string range $phtml 0 $pos]
set pos [expr [string first $iname $dhtml] + [string length $iname]]
set icname [string range $dhtml 0 $pos]
set pos1 [expr [string last "\"" $icname] - 5]
set icname [string range $icname 0 $pos1]
set pos1 [expr [string last "\"" $icname] + 1]
set icname [string range $icname $pos1 end]
set dhtml [string range $dhtml $pos end]
set pos [expr [string first " " $dhtml] + 5]
set dhtml [string range $dhtml $pos end]
set dhtml [htmlcodes $dhtml]
set out {}
set len [expr [string length $dhtml]]
while {$len>0} {
 set pos [expr [string first < $dhtml]]
 if {$pos == -1} {
 lappend out $dhtml
 break;
 }
 if {$pos == 0} {
 set pos [expr [string first > $dhtml] + 1]
 set dhtml [string range $dhtml $pos end]
 continue
 }
 set pos1 [expr [string first < $dhtml] - 1]
 set line [string range $dhtml 0 $pos1]
 lappend out $line
 set dhtml [string range $dhtml $pos end]
 set len [string length $dhtml]
 }
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG out == $out" }
putserv "$toput : Item: $iname ($icname)"
foreach line $out {
 putserv "$toput :$line"
}
putserv "$toput :http://wow.allakhazam.com/db/item.html?witem=$iid"
}
putlog "alla info - v$ALLAversion loaded ..."

rosc2112
Revered One

Joined: 19 Feb 2006
Posts: 1454
Location: Northeast Pennsylvania

Posted: Thu Jul 12, 2007 7:10 pm Post subject:

No doubt the website changed.

FarCry
Voice

Joined: 11 Jul 2007
Posts: 7

Posted: Fri Jul 13, 2007 11:06 am Post subject:

rosc2112 wrote:

No doubt the website changed.

can u fix this Very Happy

FarCry
Voice

Joined: 11 Jul 2007
Posts: 7

Posted: Fri Jul 13, 2007 11:33 am Post subject: Allakhazam

SCRIPT FIXED SUCCESFULY

Code:

-( 18:50:23 )- <^ThE^> !item The Planar Edge
-( 18:50:45 )- <WoWWiki> Item: The Planar Edge (purple)
-( 18:50:47 )- <WoWWiki> Binds when picked up
-( 18:50:49 )- <WoWWiki> Unique
-( 18:50:51 )- <WoWWiki> Main Hand
-( 18:50:53 )- <WoWWiki> Axe
-( 18:50:55 )- <WoWWiki> 159 - 296 Damage
-( 18:50:57 )- <WoWWiki> Speed 2.70
-( 18:50:59 )- <WoWWiki> (84.3 damage per second)
-( 18:51:01 )- <WoWWiki> Requires Level 70
-( 18:51:03 )- <WoWWiki> Requires: Master Axesmith
-( 18:51:05 )- <WoWWiki> Equip:
-( 18:51:07 )- <WoWWiki> Increases attack power by 42.
-( 18:51:09 )- <WoWWiki> Equip: Improves critical strike rating by 20.
( 18:51:13 )- <WoWWiki> http://wow.allakhazam.com/db/item.html?source=live;witem=28431

Code:

####### Developers #######
# Allakhazam item info v1.0.0 by Lopo
#
# Allakhazam item info v1.0.1 Modifed by ^ThE^ // irc.lv
# Email: serj3@inbox.lv
# based on the imdb info script released by phillie
##########################
# Changes:
# 1 - Fixed all link to receive item
# 2 - Use now http 2.5.0
# 3 - TCL version 8.2
# 4 - Command !alla rename it to !item
# 5 - Fixed some bugs with http connections
# Usage:
#
# !item <itemname>
#
# -h show help
#
# cookies for output format:
#
# bold = %bold
# underline = %uline
# colors = %color#,#
# new line = \n
#
# to reset colors, just use %color without any arguments.
#
#########################
######## CONFIG #########

# debug mode?
set DEBUG 0

set ALLAversion "1.0.1"

# proxy support. leave empty to disable
set ALLAhost ""
set ALLAport ""

# trigger you want to use
set ALLAtrigger "!item"

# userflags needed to use this script
set ALLArights "-|-"

# use +imdb chan-mode
set ALLAperm 0

# 0 for response via notice to $nick, 1 for msg to $chan
set pub_or_not 1
#################################################################
####### HTTP/TCL ########
setudef flag alla
package require Tcl 8.2
package require http 2.5.0

####### Public Commands/Rights/Debug
bind pub $ALLArights $ALLAtrigger alla_proc
###### HTML CODES ######
proc htmlcodes {tempfile} {
set mapfile [string map {" ' & & [ ( \ / ] ) { ( } ) £ Ј ¨ Ё © © « « ® ® } $tempfile]
set mapfile [string map {´ ґ · · ¹ № » » ¼ ј ½ Ѕ ¾ ѕ À А Á Б Â В } $mapfile]
set mapfile [string map {Ã Г Ä Д Å Е Æ Ж Ç З È И É Й Ê К Ë Л Ì М Í Н Î О Ï П Ð Р Ñ С Ò Т Ó У Ô Ф Õ Х Ö Ц } $mapfile]
set mapfile [string map {× Ч Ø Ш Ù Щ Ú Ъ Û Ы Ü Ь Ý Э Þ Ю ß Я à а á б â в ã г ä д å е æ ж ç з è и é й ê к } $mapfile]
set mapfile [string map {ë л ì м í н î о ï п ð р ñ с ò т ó у ô ф õ х ö ц ÷ ч ø ш ù щ ú ъ û ы ü ь ý э þ ю } $mapfile]
return $mapfile
}

###### Channel Check ######
proc channel_check { chan } {
foreach setting [channel info $chan] {
if {[regexp -- {^[\+-]} $setting]} {
if {![string compare "+alla" $setting]} {
set permission 1
} else {
set permission 0
}
}
}
return $permission
}

proc replacevar {strin what withwhat} {
set output $strin
set replacement $withwhat
set cutpos 0
while { [string first $what $output] != -1 } {
set cutstart [expr [string first $what $output] - 1]
set cutstop [expr $cutstart + [string length $what] + 1]
set output [string range $output 0 $cutstart]$replacement[string range $output $cutstop end]
}
return $output
}

######################################### Conf ##########################################
proc alla_proc { nick uhost handle chan argv } {
global DEBUG ALLAtrigger announce pub_or_not ALLAperm allablow
# channel_check permission
if {$ALLAperm == 1} {
 set permission_result [channel_check $chan]
 if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG permission_result == $permission_result" }
 if { $permission_result == 0 } { return }
}
if {$pub_or_not == 1 } { set toput "PRIVMSG $chan" } else { set toput "NOTICE $nick" }
set start 0
set extended 1
set linkonly 0
if {$argv == ""} {
 if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG no argv passed, show help notice" }
 putserv "PRIVMSG $chan :\[\002Allakhazam\002\] try $ALLAtrigger -help"
 return
}
if {[lindex $argv 0] == "-help" || [lindex $argv 1] == "-help" || [lindex $argv 2] == "-help" || [lindex $argv 3] == "-help"} {
 if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG argv == help, show help" }
 putserv "PRIVMSG $nick :Item info v$ALLAversion"
 putserv "PRIVMSG $nick :----------------------------------------------------------------"
 putserv "PRIVMSG $nick :$ALLAtrigger : <itemname>"
 putserv "PRIVMSG $nick : "
 putserv "PRIVMSG $nick :\002options\002:"
 putserv "PRIVMSG $nick :\002-help\002 show help"
 putserv "PRIVMSG $nick :\002-l\002 show only http link"
 return
}
############################################################################################
# check for commands
if {[lindex $argv 0] == "-l" || [lindex $argv 1] == "-l" || [lindex $argv 2] == "-l" || [lindex $argv 3] == "-l"} {
 incr start
 incr linkonly
 set moviename [lrange $argv $start end]
 }
# create moviename using $start
set moviename [lrange $argv $start end]
# initial search
set allaurl "http://wow.allakhazam.com"
set allasearchurl "http://wow.allakhazam.com/search.html?q="
set timeout 20000
set searchString [::http::formatQuery $moviename]
set searchString [string trimleft $searchString "+"]
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG searchString: \"$searchString\"" }
set page [::http::config -useragent "MSIE 6.0" -proxyhost $::ALLAhost -proxyport $::ALLAport]
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG ${allasearchurl}$searchString" }
if {[catch {::http::geturl ${allasearchurl}$searchString -timeout $timeout} page]} {
 putlog "\002ALLA Error\002: $page"
} elseif {[http::status $page] == "timeout"} {
 putlog "\002ALLA Error\002: Timeout after $timeout seconds"
}
set html [::http::data $page]
::http::Finish $page

if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG redirect 0" }
upvar 0 $page oldpage
set body $oldpage(body)
set pos [expr [string first ">0 items found.<" $body] + 0]
if {$pos != -1} {
 putserv "$toput :0 items found."
 return
 }
set pos [expr [string first "items found" $body] + 11]
set body [string range $body $pos end]
set lpole {}
set sname [string tolower [replacevar $searchString "+" " "]]
while {[string length $body] > 0} {
 set pos [expr [string first "/images/icons/" $body]]
 if {$pos == -1} {
 break
 }
 set body [string range $body $pos end]
 set pos [expr [string first "/db/item.html?source=live;witem=" $body] + 0]
 set body [string range $body $pos end]
 regexp {witem=[0-9]+} $body itemid
 set itemid [string range $itemid 6 end]
 if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG ItemID == $itemid" }
 set pos [expr [string first "name\">" $body] + 6]
 set body [string range $body $pos end]
 set pos1 [expr [string first < $body] - 1]
 set itemname [string range $body 0 $pos1]
 set pole($itemid) $itemname
 lappend lpole $itemid
 set itemname [string tolower $itemname]
 if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG Itemname == $itemname" }
 set exact [string compare $sname $itemname]
 if {$exact == 0} {
 break
 }
 }
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG lpole == $lpole" }
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG exact == $exact" }
if {$exact != 0 && [llength $lpole] > 1} {
 putserv "$toput :[llength $lpole] items found"
 foreach i $lpole {
 if {[llength $lpole] < 11} {
 putserv "$toput :http://wow.allakhazam.com/db/item.html?source=live;witem=$i - $pole($i)"
 } {
 putserv "PRIVMSG $nick :http://wow.allakhazam.com/db/item.html?source=live;witem=$i - $pole($i)"
 }
 }
 return
 }
set iid $itemid
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG redirect 0 iID == $iid" }
if {$linkonly>0} {
 putserv "$toput :http://wow.allakhazam.com/db/item.html?source=live;witem==$iid"
 return
 }
set newurl "$allaurl/dev/wow/item-xml.pl?source=live;witem=$iid"
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG redirect 0 = $newurl" }
unset html
set page [::http::config -useragent "MSIE 6.0" -proxyhost $::ALLAhost -proxyport $::ALLAport]
if {[catch {::http::geturl $newurl -timeout $timeout} page]} {
 putlog "\002ALLA Error\002: $page"
} elseif {[http::status $page] == "timeout"} {
 putlog "\002ALLA Error\002: Timeout after $timeout mseconds"
 if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG Timeout after $timeout mseconds"}
 return
}
set html [::http::data $page]
::http::Finish $page
# for bogus searches
if {[string length $newurl] == 0} {
 putserv "$toput :No no no! I can't find that!"
 if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG bogus searches" }
 return
}
set iname "N/A"; set idesc "N/A"
## get title
if [regexp {<name1>[^<]+} $html iname] {
 set pos [expr [string last > $iname] + 1]
 set iname [string range $iname $pos end]
 set iname [htmlcodes $iname]
}
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG iname == $iname" }

## full desc
set fhtml {}
set beg 0
foreach i $html {
 set pos [string first "<display_html>" $i]
 if {$pos>-1} {
 set fhtml [string range $i $pos end]
 set beg 1
 continue
 }
 set pos1 [string first "</display_html>" $i]
 if {$pos1>-1} {
 append fhtml " "
 append fhtml [string range $i 0 $pos1]
 break
 }
 append fhtml " "
 append fhtml $i
 }
set pos [expr [string first > $fhtml] + 1]
set pos1 [expr [string last < $fhtml] - 1]
set popis [string range $fhtml $pos $pos1]
set phtml [replacevar $popis "&nbsp;" " "]
set phtml [replacevar $phtml "<" "<"]
set phtml [replacevar $phtml ">" ">"]
set phtml [replacevar $phtml """ "\""]
set phtml [replacevar $phtml " <" "<"]
set phtml [replacevar $phtml "> " ">"]
set phtml [replacevar $phtml " " " "]
set pos [expr [string first "" $phtml] -1]
set dhtml [string range $phtml 0 $pos]
set pos [expr [string first $iname $dhtml] + [string length $iname]]
set icname [string range $dhtml 0 $pos]
set pos1 [expr [string last "\"" $icname] - 5]
set icname [string range $icname 0 $pos1]
set pos1 [expr [string last "\"" $icname] + 1]
set icname [string range $icname $pos1 end]
set dhtml [string range $dhtml $pos end]
set pos [expr [string first " " $dhtml] + 5]
set dhtml [string range $dhtml $pos end]
set dhtml [htmlcodes $dhtml]
set out {}
set len [expr [string length $dhtml]]
while {$len>0} {
 set pos [expr [string first < $dhtml]]
 if {$pos == -1} {
 lappend out $dhtml
 break;
 }
 if {$pos == 0} {
 set pos [expr [string first > $dhtml] + 1]
 set dhtml [string range $dhtml $pos end]
 continue
 }
 set pos1 [expr [string first < $dhtml] - 1]
 set line [string range $dhtml 0 $pos1]
 lappend out $line
 set dhtml [string range $dhtml $pos end]
 set len [string length $dhtml]
 }
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG out == $out" }
putserv "$toput :Item: $iname Color: $icname "
foreach line $out {
 putserv "$toput :$line"
}
putserv "$toput :Item Link: http://wow.allakhazam.com/db/item.html?source=live;witem=$iid"
}
putlog "alla info - v$ALLAversion loaded ..."
]

aLca
Voice

Joined: 07 Oct 2007
Posts: 1

Posted: Sun Oct 07, 2007 4:29 pm Post subject:

Hey guys, when im start this command "!item xyz" get im this Error Message on the Partyline.

Code:

Tcl error [alla_proc]: can't read "exact": no such variable

Any Ideas? Sorry for my Bad eng. Smile

speechles
Revered One

Joined: 26 Aug 2006
Posts: 1398
Location: emerald triangle, california (coastal redwoods)

Posted: Wed Oct 10, 2007 1:27 pm Post subject:

aLca wrote:

Hey guys, when im start this command "!item xyz" get im this Error Message on the Partyline.

Code:

Tcl error [alla_proc]: can't read "exact": no such variable

Any Ideas? Sorry for my Bad eng. Smile

Code:

while {[string length $body] > 0} {
# .. Snipped irrelevant code ..
set exact [string compare $sname $itemname]
if {$exact == 0} {
break
}
}
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG lpole == $lpole" }
if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG exact == $exact" }
if {$exact != 0 && [llength $lpole] > 1} {

You can see above, if the BODY of the html length is greater than 0, exact will be set inside this while loop. If you enter some itemname that doesn't exist, it won't set exact correctly because the body of the html length is 0. It will fail to qualify to process the while loop where exact is set and instead will fall into those 2 conditionals at the very bottom of the code above, which require having exact set. This is your problem. The easiest fix would be to have something like this: if {![info exists exact]} { set exact 0 } just before this line: if {$DEBUG == 1} { putserv "NOTICE $nick :DEBUG exact == $exact" }

Code:

proc replacevar {strin what withwhat} {
set output $strin
set replacement $withwhat
set cutpos 0
while { [string first $what $output] != -1 } {
set cutstart [expr [string first $what $output] - 1]
set cutstop [expr $cutstart + [string length $what] + 1]
set output [string range $output 0 $cutstart]$replacement[string range $output $cutstop end]
}
return $output
}

This is the most redundant and stupid part of this script, alot of this kludgey bullshit should be removed by whoever next attempts to fix this pile of spaghetti code. The guy never thought splitting the string into a list and using lreplace would be faster? Instead he writes kludgey tcl proc to "act like it".. not smart, not fast.. Seems alot of the time that replacevar proc is called as well, a simple string map could've done better. I'm assuming this script was written whilst humans still rode dinosaurs.. YABBA DABBA DOO!

Display posts from previous:

	egghelp.org community Forum Index -> Script Support & Releases	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum