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

convert to TCL

egghelp.org community Forum Index -> Script Requests

View previous topic :: View next topic

Author

Message

whiteshark
Halfop

Joined: 12 Jun 2005
Posts: 62
Location: netherlands

Posted: Sat Jan 21, 2006 2:57 pm Post subject: convert to TCL

who can covert this to tcl.
thnx

Code:

//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
Voice

Joined: 09 Jul 2005
Posts: 29

Posted: Sat Jan 21, 2006 4:31 pm Post subject:

Here my Script Smile

Code:

########################################
# 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
Halfop

Joined: 12 Jun 2005
Posts: 62
Location: netherlands

Posted: Sat Jan 21, 2006 8:54 pm Post subject:

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

spock
Master

Joined: 12 Dec 2002
Posts: 319

Posted: Sat Jan 21, 2006 10:57 pm Post subject:

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

Code:

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
}

_________________
photon?

Winters
Voice

Joined: 09 Jul 2005
Posts: 29

Posted: Sun Jan 22, 2006 6:13 am Post subject:

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

Display posts from previous:

	egghelp.org community Forum Index -> Script Requests	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