| View previous topic :: View next topic |
| Author |
Message |
whiteshark
Halfop
Joined: 12 Jun 2005
Posts: 62
Location: netherlands
|
 Posted: Tue Sep 13, 2005 3:01 pm Post subject: who can make this script for me |
 |
|
when i typ !pcw 5on5 have server skill high
then relay the bot this
[ pcw 5on5 etc etc etc ] [ time ] [ /msg $nick ] in every channel where the bot is
thanks |
|
| Back to top |
|
 |
Dizzle
Op
Joined: 28 Apr 2005
Posts: 109
|
| Posted: Tue Sep 13, 2005 3:24 pm Post subject: |
|
|
Thats a pretty easy script, found will i was googling TRY IT 
| Code: |
set available(maps) {
"de_dust" "de_dust2" "de_aztec" "de_nuke" "de_inferno"
"de_cbble" "de_cpl_mill" "de_cpl_fire" "de_any" "de_?"
"de_only" "de_prodigy" "de_train" "de_storm"
"de_piranesi" de_cpl_strike"
}
set available(serverstatus) {
"on" "off" "serveron" "serveroff" "yes" "no"
}
set except(channels) {
""
}
set available(skill) {
"low" "low/med" "med" "med/high" "high"
}
bind PUB -|- "!pcw" create:newgame
proc create:newgame { nickname hostname handle channel arguments } {
global lastbind available except
set arguments [split $arguments " "]
set team [lindex $arguments 0]
set map [string tolower [lindex $arguments 1]]
set server [string tolower [lindex $arguments 2]]
set skill [string tolower [lindex $arguments 3]]
set information [join [lrange $arguments 4 end]]
if {[llength $information] == "0"} {
set information n/a
}
if {[llength $arguments] < 3} {
putserv "NOTICE $nickname :Wrong Syntax, please use: $lastbind \037team\037 \037map\037 \037server status\037 \037Skill\037 \037information?\037"
} elseif {[lsearch [string tolower $available(maps)] $map] == "-1"} {
putserv "NOTICE $nickname :Unkwown Counterstrike Map, Plz use one of the maps in the list"
putserv "NOTICE $nickname :[join [string tolower $available(maps)] ", "]"
} elseif {[lsearch [string tolower $available(serverstatus)] $server] == "-1"} {
putserv "NOTICE $nickname :Invalid server status specified, use: [join $available(serverstatus) ", "]"
} elseif {[lsearch [string tolower $available(skill)] $skill] == "-1"} {
putserv "NOTICE $nickname : Unkwown Skills : try these [join $available(skill) ", "]"
} else {
set nopost ""
set post ""
foreach post-channel [channels] {
if {[lsearch [string tolower $except(channels)] [string tolower ${post-channel}]] == "-1"} {
lappend post ${post-channel}
} else {
lappend nopost ${post-channel}
}
}
if {[llength $nopost] == "0"} {
set nopost n/a
}
putserv "NOTICE $nickname :Done. Message was relayed succesfully, have a nice day"
putquick "PRIVMSG [join $post ","] PCW !! Team : $team Map : $map $server : Skill : $skill : Extra info : $information :.: /q $nickname"
}
}
putlog "PCW Script Loaded"
|
i recall this script was already made by someone, i found it in this status, i know there is a author. Butt the author wasnt written in the script
_________________
What's this real life ppl keep talking about ??? And where can I download it ??? |
|
| Back to top |
|
|
whiteshark
Halfop
Joined: 12 Jun 2005
Posts: 62
Location: netherlands
|
| Posted: Tue Sep 13, 2005 3:36 pm Post subject: |
|
|
Thnx  |
|
| Back to top |
|
|
whiteshark
Halfop
Joined: 12 Jun 2005
Posts: 62
Location: netherlands
|
| Posted: Tue Sep 13, 2005 5:10 pm Post subject: |
|
|
when i typ this !pcw 4on4 de_nuke serveron high TESTTEST
the bot answer this ^Triv-Security^ 4on4 Map : de_nuke serveron : Skill : high : Extra info : TESTTEST :.: /q Amstelbier
thats work good.
But he must show de channel to like this ^Triv-Security^ 4on4 Map : de_nuke serveron : Skill : high : Extra info : TESTTEST :.: /q Amstelbier #trivia.nl
can somebody fix it thnx |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Tue Sep 13, 2005 6:53 pm Post subject: |
|
|
Replace
| Code: | | putquick "PRIVMSG [join $post ","] PCW !! Team : $team Map : $map $server : Skill : $skill : Extra info : $information :.: /q $nickname" |
with
| Code: | | putquick "PRIVMSG [join $post ","] PCW !! Team : $team Map : $map $server : Skill : $skill : Extra info : $information :.: /q $nickname $channel" |
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
whiteshark
Halfop
Joined: 12 Jun 2005
Posts: 62
Location: netherlands
|
| Posted: Thu Sep 15, 2005 1:52 pm Post subject: |
|
|
| thnx its work |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
