egghelp.org community :: View topic

[ egghelp.org home | forum home ]

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

FAQ

Memberlist

Usergroups

Profile

error

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

View previous topic :: View next topic

Author

Message

pilouuu
Halfop

Joined: 26 Dec 2005
Posts: 82

Posted: Tue Jan 24, 2006 12:47 pm Post subject: error

Hi all and thx for help

tcl:

Code:

#
# gametiger.tcl par Ibu <ibu_lordaeron@yahoo.fr>
#

#
# ATTENTION !! CE TCL REQUIERT HTTP.TCL
#

#################
# Configuration #
#################

# aucun

########
# Motd #
########

putlog "\002gametiger.tcl\002 par \002Ibu\002 14<ibu_lordaeron@yahoo.fr>"
putlog " Tapez: .game ou !game (channel)"

################################
# Vérifier une ip sur un salon #
################################

bind pub - !game gametiger:pub:testip

proc gametiger:pub:testip { nick uhost handle channel arg } {
global encorebis

set encore [unixtime]
if {[info exists encorebis]} {
set trop [expr $encore - $encorebis]
if { $trop < 5 } {
putserv "PRIVMSG $channel :Désolé $nick, une demande d'IP toutes les 5 secondes"
return 0
} else {
set encorebis $encore
}
} else {
set encorebis $encore
}

set AddrIp [lindex $arg 0]

if { $AddrIp == "" } {
putserv "PRIVMSG $channel :Commande : \002!game\002 <ip>"
return 0
}

set token [http::geturl http://www.gametiger.net/search?address=$AddrIp]
set fv [open system/testip.txt w+]
puts $fv [http::data $token]
close $fv
http::Finish $token

set LectureFichierAcces "system/testip.txt"
if { [file exists $LectureFichierAcces] == 0 } {
set LectureTemp [open $LectureFichierAcces w+]
close $LectureTemp
}

set LectureTemp "[open $LectureFichierAcces r]"
while {![eof $LectureTemp]} {
set LectureTexteLu [nojoinhtml [gets $LectureTemp]]

if { [string match "*Server Name*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 340 end]"
set gt(server) "[join [gettext $i ">" " </td></tr>"]]"
} elseif { [string match "*Status<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 180 end]"
set gt(status) "[join [gettext $i "\">" "</td></tr>"]]"
} elseif { [string match "*IP:Port<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 90 end]"
set gt(ip) "[join [gettext $i "\">" "</td></tr>"]]"
} elseif { [string match "*>Engine</td>*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 100 end]"
set gt(engine) "[join [gettext $i "\">" "</td></tr>"]]"
} elseif { [string match "*Game<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 100 end]"
set gt(game) "[join [gettext $i "\">" " </td></tr>"]]"
} elseif { [string match "*Map<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 100 end]"
set gt(map) "[join [gettext $i "\">" " </td></tr>"]]"
} elseif { [string match "*Last Map Change<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 130 end]"
set gt(lastmapchange) "[join [gettext $i "\">" " ago</td></tr>"]] ago"
} elseif { [string match "*Protocol Version<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 130 end]"
set gt(protocol) "[join [gettext $i "\">" "</td></tr>"]]"
} elseif { [string match "*Type of Server<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 130 end]"
set gt(type) "[join [gettext $i "\">" "</td></tr>"]]"
} elseif { [string match "*OS<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 110 end]"
set gt(os) "[join [gettext $i "\">" "</td></tr>"]]"
} elseif { [string match "*Password required<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 130 end]"
set gt(password) "[join [gettext $i "\">" "</td></tr>"]]"
} elseif { [string match "*Active*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 240 end]"
set gt(players) "[join [gettext $i "\">" "</td></tr>"]]"

set i [string first "/" $gt(players)]
set i1 [string range $gt(players) 0 [expr $i-1]]
set i2 [string range $gt(players) [expr $i+1] end]

if { $i1 == $i2 } {
set gt(players) "4$i1/$i2 (FULL)"
} else {
set gt(players) "3$i1/$i2"
}
} elseif { [string match "*Last Check<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 130 end]"
set gt(lastcheck) "[join [gettext $i "\">" " ago</td></tr>"]] ago"
} elseif { [string match "*Bogo Ping<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 120 end]"
set gt(ping) "[join [gettext $i "\">" "</td></tr>"]]"
}

}
close $LectureTemp
if { [info exist gt(ip)] } {
putserv "PRIVMSG $channel :\[ Server Name: 7$gt(server) \] \[ OS: $gt(os) \] \[ Type Server: $gt(type) \] \[ IP: 10$gt(ip) \] \[ Password Required: $gt(password) \] \[ Engine: $gt(engine) \] \[ Game: $gt(game) \] \[ Bogo Ping: $gt(ping) \] \[ Map: 5$gt(map) ($gt(lastmapchange)) \] \[ Players: $gt(players) (last check $gt(lastcheck)) \]"
} else {
putserv "PRIVMSG $channel :Ce serveur n'est pas enregistré par www.GameTiger.Net"
}
unset LectureTexteLu

return 0
}

################################
# Vérifier une ip en partyline #
################################

bind dcc - game gametiger:dcc:testip

proc gametiger:dcc:testip { hand idx arg } {

global encorebis

set encore [unixtime]
if {[info exists encorebis]} {
set trop [expr $encore - $encorebis]
if { $trop < 5 } {
putdcc $idx "Désolé $hand, une demande d'IP toutes les 5 secondes"
return 0
} else {
set encorebis $encore
}
} else {
set encorebis $encore
}

set AddrIp [lindex $arg 0]

if { $AddrIp == "" } {
putdcc $idx "Commande : \002.ip\002 <ip>"
return 0
}

set token [http::geturl http://www.gametiger.net/search?address=$AddrIp]
set fv [open system/testip.txt w+]
puts $fv [http::data $token]
close $fv
http::Finish $token

set LectureFichierAcces "system/testip.txt"
if { [file exists $LectureFichierAcces] == 0 } {
set LectureTemp [open $LectureFichierAcces w+]
close $LectureTemp
}

set LectureTemp "[open $LectureFichierAcces r]"
while {![eof $LectureTemp]} {
set LectureTexteLu [nojoinhtml [gets $LectureTemp]]

if { [string match "*Server Name*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 340 end]"
set gt(server) "[join [gettext $i ">" " </td></tr>"]]"
} elseif { [string match "*Status<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 180 end]"
set gt(status) "[join [gettext $i "\">" "</td></tr>"]]"
} elseif { [string match "*IP:Port<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 90 end]"
set gt(ip) "[join [gettext $i "\">" "</td></tr>"]]"
} elseif { [string match "*>Engine</td>*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 100 end]"
set gt(engine) "[join [gettext $i "\">" "</td></tr>"]]"
} elseif { [string match "*Game<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 100 end]"
set gt(game) "[join [gettext $i "\">" " </td></tr>"]]"
} elseif { [string match "*Map<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 100 end]"
set gt(map) "[join [gettext $i "\">" " </td></tr>"]]"
} elseif { [string match "*Last Map Change<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 130 end]"
set gt(lastmapchange) "[join [gettext $i "\">" " ago</td></tr>"]] ago"
} elseif { [string match "*Protocol Version<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 130 end]"
set gt(protocol) "[join [gettext $i "\">" "</td></tr>"]]"
} elseif { [string match "*Type of Server<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 130 end]"
set gt(type) "[join [gettext $i "\">" "</td></tr>"]]"
} elseif { [string match "*OS<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 110 end]"
set gt(os) "[join [gettext $i "\">" "</td></tr>"]]"
} elseif { [string match "*Password required<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 130 end]"
set gt(password) "[join [gettext $i "\">" "</td></tr>"]]"
} elseif { [string match "*Active*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 240 end]"
set gt(players) "[join [gettext $i "\">" "</td></tr>"]]"

set i [string first "/" $gt(players)]
set i1 [string range $gt(players) 0 [expr $i-1]]
set i2 [string range $gt(players) [expr $i+1] end]

if { $i1 == $i2 } {
set gt(players) "4$i1/$i2 (FULL)"
} else {
set gt(players) "3$i1/$i2"
}
} elseif { [string match "*Last Check<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 130 end]"
set gt(lastcheck) "[join [gettext $i "\">" " ago</td></tr>"]] ago"
} elseif { [string match "*Bogo Ping<*" "$LectureTexteLu"] } {
set i [string range "$LectureTexteLu" 120 end]"
set gt(ping) "[join [gettext $i "\">" "</td></tr>"]]"
}

}
close $LectureTemp
if { [info exist gt(ip)] } {
putlog " "
putlog "Server Name: 7$gt(server) OS: $gt(os) Type Server: $gt(type)"
putlog "IP: 10$gt(ip) Password Required: $gt(password)"
putlog "Engine: $gt(engine) Game: $gt(game) Bogo Ping: $gt(ping)"
putlog "Map: 5$gt(map) ($gt(lastmapchange)) Players: $gt(players) (last check $gt(lastcheck))"
putlog " "
} else {
putlog " "
putlog "Ce serveur n'est pas enregistré par www.GameTiger.Net"
putlog " "
}
unset LectureTexteLu

return 1
}

#################
# commmande !sith #
#################

bind pub - !sith gametiger:pub:sith

proc gametiger:pub:sith { nick uhost handle channel arg } {
gametiger:pub:testip $nick $uhost $handle $channel 62.212.74.121:27135
}

##############
# sous-procs #
##############

proc gettext { data start end } {
set index0 [string first $start $data]
set index1 [expr $index0 + [string length $start]]
set index2 [string first $end $data]
set index2 [expr $index2 - 1]
set index [expr $index2 + [string length $end]]

return [string range $data $index1 $index2]
}

proc nojoinhtml { text } {
regsub -all -- {\\} $text {\\\\} text
regsub -all -- {\{} $text {\{} text
regsub -all -- {\}} $text {\}} text
regsub -all -- {\[} $text {\[} text
regsub -all -- {\]} $text {\]} text
regsub -all -- {\"} $text {\"} text
return "$text"
}

Error:

!game 213.251.146.23:27015

the bot say:

[ Server Name: ] [ OS: ] [ Type Server: ] [ IP: ] [ Password Required: ] [ Engine: ] [ Game: ] [ Bogo Ping: ] [ Map: ( ago) ] [ Players: / (FULL) (last check ago) ]

Not info o_O. The testip.txt is good

Quote:

<html>
<head>
<title>Gametiger Address Search : 213.251.146.23:27015</title>
<meta name="pragma" content="no-cache">
<meta name="robots" content="NOARCHIVE">
<link rel='stylesheet' type='text/css' href='gametiger.css'>
</head>
<body onload="if(parent.frames.length!=0)top.location='http://www.gametiger.net/index.html'; ">
<center>


<a href="http://griffinrun.com/cgi-bin/refer?id=hierle&h=fullregister.shtml" target=_blank><img src="http://griffinrun.com/affiliates/buttons/gt_deal.gif" border=0></a> 
$39 server special at GriffinRUN for GameTiger visitors
Get a 12 player private, low ping Counter-Strike game server for only $39 / month, 
for every month for the lifetime of your account with them. Just order on
their site and use the coupon code: fullregister ... For more info go to: 
<a href="http://griffinrun.com/cgi-bin/refer?id=hierle&h=fullregister.shtml">http://griffinrun.com/</a>

 

<script> win=window.open("http://advnt03.com/popsend.asp?id=33214",'PoP',',left=5000,top=0,width=590,height=380,scrollbars=1,resizable=1,status=1,menubar=0'); window.focus(); </script>

 
<table><tr class="dark"><td colspan=2><center>Server Details</td></tr><tr><td bgcolor=ccccdd>Server Name</td><td>FR - NitroServ.com - [#Jet-7] </td></tr>
<tr><td bgcolor=ccccdd>Status</td><td><img src=/images/up.gif border=0 width=15 height=15 align=left valign=bottom>up</td></tr>
<tr><td bgcolor=ccccdd>IP:Port</td><td>213.251.146.23:27015</td></tr>
<tr><td bgcolor=ccccdd>Engine</td><td>Half-Life 1.6 </td></tr>
<tr><td bgcolor=ccccdd>Game</td><td>cstrike </td></tr>
<tr><td bgcolor=ccccdd>Map</td><td>de_dust2 </td></tr>
<tr><td bgcolor=ccccdd>Last Map Change</td><td>00:03:51 ago</td></tr>
<tr><td bgcolor=ccccdd>Protocol Version</td><td>47</td></tr>
<tr><td bgcolor=ccccdd>Type of Server</td><td>dedicated</td></tr>
<tr><td bgcolor=ccccdd>OS</td><td>Linux</td></tr>
<tr><td bgcolor=ccccdd>Password required</td><td>yes</td></tr>
<tr><td bgcolor=ccccdd>Active/Max Players  </td><td><img src=/images/up.gif border=0 width=15 height=15 align=left valign=bottom>0/12</td></tr>
<tr><td bgcolor=ccccdd>Last Check</td><td>00:00:26 ago</td></tr>
<tr><td bgcolor=ccccdd>Bogo Ping</td><td>10</td></tr>
</table> 
<a href="/connect?address=213.251.146.23:27015&game=cstrike">connect now!</a>
 
 
<table><tr class="dark"><td align=right> ID </td><td> Player Name </td><td align=right> Frags </td><td align=right> In Game </td></tr>

</table>


<table class="dark"><tbody><tr class="dark">
<form method="GET" action="/search" name="f">
<td> Address Search  </td>

<td align=center><input type="text" name="address" size=25 value="213.251.146.23:27015"></td>
<td> </td>
<td align=center><input type="submit" value=" search " border=0></td>
<td align=center>  in <select name="game"><option selected value="all">all Games</option><option value=cstrike>Counter Strike</option><option value=h2>CS:Source (HL2)</option><option value=tfc>Team Fortress</option><option value=dod>Day of Defeat</option><option value=q3>Quake3</option><option value=bf>Bfield1942</option><option value=u3>UT2003</option><option value=u4>UT2004</option></select></td>
<td align=center>     
 <a href="/search?address=">address</a> |
 <a href="/search?map=">map</a> |
 <a href="/search?mod=">mod</a> |
 <a href="/search?player=">player</a> |
 <a href="/search?server=">server</a> 
</td>
</tr>
</form>
</table>




<img src="http://www.gametiger.de/" width=1 height=1>
<img src="http://www.gametiger.net/images/c.gif" width=1 height=1>
</body>
</html>

thx

caesar
Mint Rubber

Joined: 14 Oct 2001
Posts: 3741
Location: Mint Factory

Posted: Tue Jan 24, 2006 1:22 pm Post subject:

Have you first (before posting) attempted to contact the author and telling him/her about this? As far as I know people on this forum tend not to debug other people scripts but maybe you will be lucky. _________________ Once the game is over, the king and the pawn go back in the same box.

pilouuu
Halfop

Joined: 26 Dec 2005
Posts: 82

Posted: Tue Jan 24, 2006 2:11 pm Post subject:

:] espere that I would have chance then because the author does not answer. The staff in egghelp is very good

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