convert to TCL

[whiteshark]

who can covert this to tcl.
thnx

Code: Select all

//vsays:
//v1
on *:TEXT:v11:#:/msg $chan Path cleared
on *:TEXT:v12:#:/msg $chan The enemy is weakend!
on *:TEXT:v13:#:/msg $chan All clear.
on *:TEXT:v14:#:/msg $chan Incoming!
on *:TEXT:v15:#:/msg $chan Fire in the hole!
on *:TEXT:v16:#:/msg $chan I'm on defense!
on *:TEXT:v17:#:/msg $chan I'm on offense!
on *:TEXT:v18:#:/msg $chan Taking fire!
on *:TEXT:v19:#:/msg $chan Mines cleared
on *:TEXT:v10:#:/msg $chan Enemy in disguise!
//v2
on *:TEXT:v21:#:/msg $chan I need a medic!
on *:TEXT:v22:#:/msg $chan I need ammo! 
on *:TEXT:v23:#:/msg $chan I need backup!
on *:TEXT:v24:#:/msg $chan We need an engineer!
on *:TEXT:v25:#:/msg $chan Cover me!
on *:TEXT:v26:#:/msg $chan Hold your fire!
on *:TEXT:v27:#:/msg $chan Where to?
on *:TEXT:v28:#:/msg $chan Need covert ops!
//v3
on *:TEXT:v31:#:/msg $chan Follow me!
on *:TEXT:v32:#:/msg $chan Lets Go!
on *:TEXT:v33:#:/msg $chan Move!
on *:TEXT:v34:#:/msg $chan Clear the path!
on *:TEXT:v35:#:/msg $chan Defend our objective!
on *:TEXT:v36:#:/msg $chan Disarm the dynamite!
on *:TEXT:v37:#:/msg $chan Clear mines!
on *:TEXT:v38:#:/msg $chan Reinforce the offence
on *:TEXT:v39:#:/msg $chan Reinforce the defence
//v4
on *:TEXT:v41:#:/msg $chan Jawohl!
on *:TEXT:v42:#:/msg $chan Nein!
on *:TEXT:v43:#:/msg $chan Danke
on *:TEXT:v44:#:/msg $chan Bitte sehr
on *:TEXT:v45:#:/msg $chan Sorry
on *:TEXT:v46:#:/msg $chan Oops
//v5
on *:TEXT:v51:#:/msg $chan Affirmative!
on *:TEXT:v52:#:/msg $chan Negative!
on *:TEXT:v53:#:/msg $chan The enemy is weakend!
on *:TEXT:v54:#:/msg $chan Hi!
on *:TEXT:v55:#:/msg $chan Good bye!
on *:TEXT:v56:#:/msg $chan Great Shot!
on *:TEXT:v57:#:/msg $chan Woohoo!
on *:TEXT:v58:#:/msg $chan --> more globals (v581, v582, v583, v584, v585, v586)
on *:TEXT:v581:#:/msg $chan Thanks
on *:TEXT:v582:#:/msg $chan Your welcome
on *:TEXT:v583:#:/msg $chan Oops!
on *:TEXT:v584:#:/msg $chan Sorry!
on *:TEXT:v585:#:/msg $chan Hold your fire!
on *:TEXT:v586:#:/msg $chan Good game!

on *:TEXT:v54 *:#:/msg $chan Hi $2 $+ !
on *:TEXT:v55 *:#:/msg $chan Good bye $2 $+ !
//v6
on *:TEXT:v6:#:/msg $chan Im a quakenet'ter!
//v7
on *:TEXT:v71:#:/msg $chan Command Acknowledged
on *:TEXT:v72:#:/msg $chan Command Declined
on *:TEXT:v73:#:/msg $chan Command Completed
on *:TEXT:v74:#:/msg $chan Destroy Primary Objective!
on *:TEXT:v75:#:/msg $chan Destroy Secondairy Objective!
on *:TEXT:v76:#:/msg $chan Destroy Construction
on *:TEXT:v77:#:/msg $chan Commencing Construction
on *:TEXT:v78:#:/msg $chan Repair the vehicle!
on *:TEXT:v79:#:/msg $chan Disable the vehicle!
on *:TEXT:v70:#:/msg $chan Escort the vehicle!

[Winters]

Here my Script !

Code: Select all

########################################
# Enemy Territory Voice Chat Script 1.0#
# Scripted by Winters #Winters @ Qnet  #
########################################

set v51 { "Affirmitive!!!" "Jawohl!" "Yes!" "Ja!" }
set v52 { "Negative!!!" "Nein!" "No!" }
set v53 { "The Enemy is weakend." }
set v54 { "Hi!" "Hallo!" "Hello!" }
set v55 { "Bye." "Auf Wiedersehen!" "Good bye." }
set v56 { "Great Shot!" }
set v57 { "Hahaa!" "Alright!" "Yoohoo!" "Yes!" "Yeehaa!" "Yeah!" "Woo!" "\'\Atta way, baby!" "Sehr gut!" "Jahaa!" "Wunderbar!" "Excellent!" "Oh yes!" }
set v581 { "Danke!" "Thanks!" "Danke Sehr!" "Thank you!" }
set v582 { "No Problem!" "Kein Problem!" "You\'\re welcome!" "Bitte Sehr!" }
set v583 { "Oops!" }
set v584 { "Sorry!" }
set v585 { "Hold your Fire!" }
set v586 { "Good Game!" }
set v11 { "Path Cleared." }
set v12 { "The Enemy is weakend." }
set v13 { "All clear." }
set v14 { "Incoming!" }
set v15 { "Fire in the hole!" }
set v16 { "I'm on defense." }
set v17 { "I'm on offense." }
set v18 { "Taking Fire!" }
set v19 { "Mines cleared." }
set v10 { "Enemy in disguise." }
set v21 { "Need a Medic!" "I need a medic!" }
set v22 { "I need ammo!" }
set v23 { "I need backup!" }
set v24 { "We need an engineer!" }
set v25 { "Cover me!" }
set v26 { "Hold your fire!" }
set v27 { "Where to?" }
set v28 { "We need covert ops!" }
set v31 { "Follow me!" }
set v32 { "Let's go!" }
set v33 { "Move!" }
set v34 { "Clear the path!" }
set v35 { "Defend our objective!" }
set v36 { "Disarm the dynamite!" }
set v37 { "Clear the mines!" }
set v38 { "Reinforce the offense!" }
set v39 { "Reinforce the defense!" }
set v41 { "Affirmitive!!!" "Jawohl!" "Yes!" "Ja!" }
set v42 { "Negative!!!" "Nein!" "No!" }
set v43 { "Danke!" "Thanks!" "Danke Sehr!" "Thank you!" }
set v44 { "No Problem!" "Kein Problem!" "You\'\re welcome!" "Bitte Sehr!" }
set v45 { "Sorry!" }
set v46 { "Oops!" }
set v6 { "I'm a cheater!" "I'm a dirty bitch!" }
set v71 { "Right away!" "Command acknowledged!" }
set v72 { "No can do!" Command declined!" }
set v73 { "Command completed!" }
set v74 { "Destroy Primary Objective!" }
set v75 { "Destroy Secondary Objective!" }
set v76 { "Destroy construction!" }
set v77 { "I'm constructing!" }
set v78 { "Repair the vehicle!" }
set v79 { "Disable the vehicle!" }
set v70 { "Escort the vehicle!" }
set v91 { "You smell :P!" }
set v92 { "Putz dir mal die Zähne, morgen ist Pferderennen!" }
set v93 { "Kann ich ein Foto von dir bekommen ? Brechmittel ist so teuer geworden!" }


bind pub -|- v51 voice:v51
bind pub -|- v52 voice:v52
bind pub -|- v53 voice:v53
bind pub -|- v54 voice:v54
bind pub -|- v55 voice:v55
bind pub -|- v56 voice:v56
bind pub -|- v57 voice:v57
bind pub -|- v581 voice:v581
bind pub -|- v582 voice:v582
bind pub -|- v583 voice:v583
bind pub -|- v584 voice:v584
bind pub -|- v585 voice:v585
bind pub -|- v586 voice:v586
bind pub -|- v11 voice:v11
bind pub -|- v12 voice:v12
bind pub -|- v13 voice:v13
bind pub -|- v14 voice:v14
bind pub -|- v15 voice:v15
bind pub -|- v16 voice:v16
bind pub -|- v17 voice:v17
bind pub -|- v18 voice:v18
bind pub -|- v19 voice:v19
bind pub -|- v10 voice:v10
bind pub -|- v21 voice:v21
bind pub -|- v22 voice:v22
bind pub -|- v23 voice:v23
bind pub -|- v24 voice:v24
bind pub -|- v25 voice:v25
bind pub -|- v26 voice:v26
bind pub -|- v27 voice:v27
bind pub -|- v28 voice:v28
bind pub -|- v31 voice:v31
bind pub -|- v32 voice:v32
bind pub -|- v33 voice:v33
bind pub -|- v34 voice:v34
bind pub -|- v35 voice:v35
bind pub -|- v36 voice:v36
bind pub -|- v37 voice:v37
bind pub -|- v38 voice:v38
bind pub -|- v39 voice:v39
bind pub -|- v41 voice:v41
bind pub -|- v42 voice:v42
bind pub -|- v43 voice:v43
bind pub -|- v44 voice:v44
bind pub -|- v45 voice:v45
bind pub -|- v46 voice:v46
bind pub -|- v6 voice:v6
bind pub -|- v71 voice:v71
bind pub -|- v72 voice:v72
bind pub -|- v73 voice:v73
bind pub -|- v74 voice:v74
bind pub -|- v75 voice:v75
bind pub -|- v76 voice:v76
bind pub -|- v77 vioce:v77
bind pub -|- v78 voice:v78
bind pub -|- v79 voice:v79
bind pub -|- v70 voice:v70
bind pub -|- v91 voice:v91
bind pub -|- v92 voice:v93
bind pub -|- v94 voice:v94

proc voice:v51 {nick host hand chan rest} {
	global v51
	set voicetext1 "[lindex $v51 [rand [llength $v51]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext1"
}

proc voice:v52 {nick host hand chan rest} {
	global v52
	set voicetext2 "[lindex $v52 [rand [llength $v52]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext2"
}

proc voice:v53 {nick host hand chan rest} {
	global v53
	set voicetext3 "[lindex $v53 [rand [llength $v53]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext3"
}

proc voice:v54 {nick host hand chan rest} {
	global v54
	set voicetext4 "[lindex $v54 [rand [llength $v54]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext4"
}

proc voice:v55 {nick host hand chan rest} {
	global v55
	set voicetext5 "[lindex $v55 [rand [llength $v55]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext5"
}

proc voice:v56 {nick host hand chan rest} {
	global v56
	set voicetext6 "[lindex $v56 [rand [llength $v56]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext6"
}

proc voice:v57 {nick host hand chan rest} {
	global v57
	set voicetext7 "[lindex $v57 [rand [llength $v57]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext7"
}

proc voice:v581 {nick host hand chan rest} {
	global v581
	set voicetext8 "[lindex $v581 [rand [llength $v581]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext8"
}

proc voice:v582 {nick host hand chan rest} {
	global v582
	set voicetext9 "[lindex $v582 [rand [llength $v582]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext9"
}

proc voice:v583 {nick host hand chan rest} {
	global v583
	set voicetext10 "[lindex $v583 [rand [llength $v583]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext10"
}

proc voice:v584 {nick host hand chan rest} {
	global v584
	set voicetext11 "[lindex $v584 [rand [llength $v584]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext11"
}

proc voice:v585 {nick host hand chan rest} {
	global v585
	set voicetext12 "[lindex $v585 [rand [llength $v585]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext12"
}

proc voice:v586 {nick host hand chan rest} {
	global v586
	set voicetext13 "[lindex $v586 [rand [llength $v586]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext13"
}

proc voice:v11 {nick host hand chan rest} {
	global v11
	set voicetext14 "[lindex $v11 [rand [llength $v11]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext14"
}

proc voice:v12 {nick host hand chan rest} {
	global v12
	set voicetext15 "[lindex $v12 [rand [llength $v12]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext15"
}

proc voice:v13 {nick host hand chan rest} {
	global v13
	set voicetext16 "[lindex $v13 [rand [llength $v13]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext16"
}

proc voice:v14 {nick host hand chan rest} {
	global v14
	set voicetext17 "[lindex $v14 [rand [llength $v14]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext17"
}

proc voice:v15 {nick host hand chan rest} {
	global v15
	set voicetext18 "[lindex $v15 [rand [llength $v15]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext18"
}

proc voice:v16 {nick host hand chan rest} {
	global v16
	set voicetext19 "[lindex $v16 [rand [llength $v16]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext19"
}

proc voice:v17 {nick host hand chan rest} {
	global v17
	set voicetext20 "[lindex $v17 [rand [llength $v17]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext20"
}

proc voice:v18 {nick host hand chan rest} {
	global v18
	set voicetext21 "[lindex $v18 [rand [llength $v18]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext21"
}

proc voice:v19 {nick host hand chan rest} {
	global v19
	set voicetext22 "[lindex $v19 [rand [llength $v19]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext22"
}

proc voice:v10 {nick host hand chan rest} {
	global v10
	set voicetext23 "[lindex $v10 [rand [llength $v10]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext23"
}

proc voice:v21 {nick host hand chan rest} {
	global v21
	set voicetext24 "[lindex $v21 [rand [llength $v21]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext24"
}

proc voice:v22 {nick host hand chan rest} {
	global v22
	set voicetext25 "[lindex $v22 [rand [llength $v22]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext25"
}

proc voice:v23 {nick host hand chan rest} {
	global v23
	set voicetext26 "[lindex $v23 [rand [llength $v23]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext26"
}

proc voice:v24 {nick host hand chan rest} {
	global v24
	set voicetext27 "[lindex $v24 [rand [llength $v24]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext27"
}

proc voice:v25 {nick host hand chan rest} {
	global v25
	set voicetext28 "[lindex $v25 [rand [llength $v25]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext28"
}

proc voice:v26 {nick host hand chan rest} {
	global v26
	set voicetext29 "[lindex $v26 [rand [llength $v26]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext29"
}

proc voice:v27 {nick host hand chan rest} {
	global v27
	set voicetext30 "[lindex $v27 [rand [llength $v27]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext30"
}

proc voice:v28 {nick host hand chan rest} {
	global v28
	set voicetext31 "[lindex $v28 [rand [llength $v28]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext31"
}

proc voice:v31 {nick host hand chan rest} {
	global v31
	set voicetext32 "[lindex $v31 [rand [llength $v31]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext32"
}

proc voice:v32 {nick host hand chan rest} {
	global v32
	set voicetext33 "[lindex $v32 [rand [llength $v32]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext33"
}

proc voice:v33 {nick host hand chan rest} {
	global v33
	set voicetext34 "[lindex $v33 [rand [llength $v33]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext34"
}

proc voice:v34 {nick host hand chan rest} {
	global v34
	set voicetext35 "[lindex $v34 [rand [llength $v34]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext35"
}

proc voice:v35 {nick host hand chan rest} {
	global v35
	set voicetext36 "[lindex $v35 [rand [llength $v35]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext36"
}

proc voice:v36 {nick host hand chan rest} {
	global v36
	set voicetext37 "[lindex $v36 [rand [llength $v36]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext37"
}

proc voice:v37 {nick host hand chan rest} {
	global v37
	set voicetext38 "[lindex $v37 [rand [llength $v37]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext38"
}

proc voice:v38 { nick host hand chan rest} {
	global v38
	set voicetext39 "[lindex $v38 [rand [llength $v38]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext39"
}

proc voice:v39 { nick host hand chan rest} {
	global v39
	set voicetext40 "[lindex $v39 [rand [llength $v39]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext40"
}

proc voice:v41 { nick host hand chan rest} {
	global v41
	set voicetext41 "[lindex $v41 [rand [llength $v41]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext41"
}

proc voice:v42 { nick host hand chan rest} {
	global v42
	set voicetext42 "[lindex $v42 [rand [llength $v42]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext42"
}

proc voice:v43 { nick host hand chan rest} {
	global v43
	set voicetext43 "[lindex $v43 [rand [llength $v43]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext43"
}

proc voice:v44 { nick host hand chan rest} {
	global v44
	set voicetext44 "[lindex $v44 [rand [llength $v44]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext44"
}

proc voice:v45 {nick host hand chan rest} {
	global v45
	set voicetext45 "[lindex $v45 [rand [llength $v45]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext45"
}

proc voice:v46 {nick host hand chan rest} {
	global v46
	set voicetext46 "[lindex $v46 [rand [llength $v46]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext46"
}

proc voice:v6 {nick host hand chan rest} {
	global v6
	set voicetext47 "[lindex $v6 [rand [llength $v6]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext47"
}

proc voice:v71 { nick host hand chan rest } {
	global v71
	set voicetext48 "[lindex $v71 [rand [llength $v71]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext48"
}

proc voice:v72 {nick host hand chan rest} {
	global v72
	set voicetext49 "[lindex $v72 [rand [llength $v72]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext49"
}

proc voice:v73 {nick host hand chan rest} {
	global v73
	set voicetext50 "[lindex $v73 [rand [llength $v73]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext50"
}

proc voice:v74 {nick host hand chan rest} {
	global v74
	set voicetext51 "[lindex $v74 [rand [llength $v74]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext51"
}

proc voice:v75 {nick host hand chan rest} {
	global v75
	set voicetext52 "[lindex $v75 [rand [llength $v75]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext52"
}

proc voice:v76 {nick host hand chan rest} {
	global v76
	set voicetext53 "[lindex $v76 [rand [llength $v76]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext53"
}

proc voice:v77 {nick host hand chan rest} {
	global v77
	set voicetext54 "[lindex $v77 [rand [llength $v77]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext54"
}

proc voice:v78 {nick host hand chan rest} {
	global v78
	set voicetext55 "[lindex $v78 [rand [llength $v78]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext55"
}

proc voice:v79 {nick host hand chan rest} {
	global v79
	set voicetext56 "[lindex $v79 [rand [llength $v79]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext56"
}

proc voice:v70 {nick host hand chan rest} {
	global v70
	set voicetext57 "[lindex $v70 [rand [llength $v70]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext57"
}

proc voice:91 {nick host hand chan rest} {
	global v91
	set voicetext58 "[lindex $v91 [rand [llength $v91]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext58"
}

proc voice:92 {nick host hand chan rest} {
	global v92
	set voicetext59 "[lindex $v92 [rand [llength $v92]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext59"
}

proc voice:91 {nick host hand chan rest} {
	global v93
	set voicetext60 "[lindex $v93 [rand [llength $v93]]]"
	puthelp "privmsg $chan :$nick :10 $voicetext60"
}

[whiteshark]

can you send it to me whiteshark@xs4all.nl
Thnx m8

[spock]

just a tip for winters
instead of having all those binds and procs, you can do something like

Code: Select all

bind pubm -|- "% v%" v
proc v { n u h c t } {
  set t "::v[scan $t "v%d"]"
  if {![info exists $t]} { putlog "error: $t doesn't exist" ; return }
  putserv "PRIVMSG $c :$n : [lindex [set $t] [rand [llength [set $t]]]]"
  return
}

[Winters]

i wrote this script 1 year ago ^^ but ok i will change it immediately