Thread: [Request script] TCL Script Pt Testerii
View Single Post
Old 16-11-2005, 03:35   #8 (permalink)
Freezed
Member
 
Freezed's Avatar
 
Join Date: Oct 2004
Age: 20
Posts: 171
Rep Power: 0
Freezed is on a distinguished road
Default

Eu am facut un script prin care BOTul da test automat. Am zis sa nu fiu rau si sa-l impart si cu voi. Eventual sa imi dati idei cum as putea sa il fac mai simplu, ca arata urat de tot, si e complicat
Code:
a:command -add test       pub:test      0000 000 n

proc pub:test {hand chan args x mix} {
	global botnick
	set who1 	[lindex $args 0]
	set who2	[lindex $args 1]
	set test(chan) 	"#Mtest"
	
	logfile pjk $test(chan) "logs/test.log" 

	if { ($who1 == "") || ($who2 == "") } {a:usage $x test ; return "FAILED: someone is missing"}

set welcome	"mesajul de intampinare"
set regula1 	"regula 1"
set regula2 	"regula 2"
set regula3 	"regula 3"
set regula4 	"regula 4"
set intr1  	"intrebare"
set intr2  	"intrebare"
set intr3  	"intrebare"
set intr4  	"intrebare"
set intr5  	"intrebare"
set intr6  	"intrebare"
set intr7  	"intrebare"
set intr8  	"intrebare"
set intr9  	"intrebare"
set intr10 	"intrebare"
set intr11 	"intrebare"
set intr12 	"intrebare"
set intr13 	"intrebare"
set intr14 	"intrebare"
set final       "intrebare"

	if { $chan == $test(chan) } {

		putquick "MODE $chan +m" ; puthelp "PRIVMSG $chan :$welcome" ; puthelp "PRIVMSG $chan :$regula1" ; puthelp "PRIVMSG $chan :$regula2" ; puthelp "PRIVMSG $chan :$regula3" ; puthelp "PRIVMSG $chan :$regula4"

		utimer 140[list puthelp "PRIVMSG $chan :Intrebarea $intr1"]  ; utimer 145[list putquick "MODE $chan -m"] ; utimer 270[list putquick "MODE $chan +m"]
		utimer 280[list puthelp "PRIVMSG $chan :Intrebarea $intr2"]  ; utimer 285[list putquick "MODE $chan -m"] ; utimer 410[list putquick "MODE $chan +m"]
		utimer 420[list puthelp "PRIVMSG $chan :Intrebarea $intr3"]  ; utimer 425[list putquick "MODE $chan -m"] ; utimer 550[list putquick "MODE $chan +m"]
		utimer 560[list puthelp "PRIVMSG $chan :Intrebarea $intr4"]  ; utimer 565[list putquick "MODE $chan -m"] ; utimer 690[list putquick "MODE $chan +m"]
		utimer 700[list puthelp "PRIVMSG $chan :Intrebarea $intr5"]  ; utimer 705[list putquick "MODE $chan -m"] ; utimer 830[list putquick "MODE $chan +m"]
		utimer 840[list puthelp "PRIVMSG $chan :Intrebarea $intr6"]  ; utimer 845[list putquick "MODE $chan -m"] ; utimer 970[list putquick "MODE $chan +m"]
		utimer 980[list puthelp "PRIVMSG $chan :Intrebarea $intr7"]  ; utimer 985[list putquick "MODE $chan -m"] ; utimer 1110[list putquick "MODE $chan +m"]
		utimer 1120[list puthelp "PRIVMSG $chan :Intrebarea $intr8"]  ; utimer 1125[list putquick "MODE $chan -m"] ; utimer 1250[list putquick "MODE $chan +m"]
		utimer 1260[list puthelp "PRIVMSG $chan :Intrebarea $intr9"]  ; utimer 1265[list putquick "MODE $chan -m"] ; utimer 1390[list putquick "MODE $chan +m"]
		utimer 1400[list puthelp "PRIVMSG $chan :Intrebarea $intr10"] ; utimer 1405[list putquick "MODE $chan -m"] ; utimer 1530[list putquick "MODE $chan +m"]
		utimer 1540[list puthelp "PRIVMSG $chan :Intrebarea $intr11"] ; utimer 1545[list putquick "MODE $chan -m"] ; utimer 1670[list putquick "MODE $chan +m"]
		utimer 1680[list puthelp "PRIVMSG $chan :Intrebarea $intr12"] ; utimer 1685[list putquick "MODE $chan -m"] ; utimer 1810[list putquick "MODE $chan +m"]
		utimer 1820[list puthelp "PRIVMSG $chan :Intrebarea $intr13"] ; utimer 1825[list putquick "MODE $chan -m"] ; utimer 1950[list putquick "MODE $chan +m"]
		utimer 1960[list puthelp "PRIVMSG $chan :Intrebarea $intr14"] ; utimer 1965[list putquick "MODE $chan -m"] ; utimer 2090[list putquick "MODE $chan +m"]
		utimer 2100[list puthelp "PRIVMSG $chan :Intrebarea $intr15"] ; utimer 2105[list putquick "MODE $chan -m"]
		
		utimer 2110[list puthelp "PRIVMSG $chan :$final"]
		

	} else { puthelp "PRIVMSG $chan :Invalid channel to give command on." ; return "FAILED: invalid channel" }

	return "for $who1 & $who2 started."
}
Scriptul lucreaza cam astfel:
  • Este facut pentru a fi dat la 2 persoane o data.
  • Se foloseste comanda !test persoana1 persoana2.
  • Botul ii intampina pe amandoi (ex la welcome: Salut $who1 & $who2. Eu sunt $botnick, unul dintre BOTii #Mythic. Astazi veti da testul cu mine. Dar inainte sa incepem, cateva reguli bla bla).
  • Se seteaza regulile testului, in caz ca aveti mai multe mai adaugati o variabila si un puthelp in script (in care sa apara $regula5).
  • Botul pune modul +m pe canal cat timp el pune intrebarea, apoi scoate +m si ii lasa pe useri 2 minute sa raspunde la intrebare, dupa care pune iarasi +m si trece la urmatoarea intrebare. Apoi pasul se tot repeta.
  • Ce sa zica botul la sfarsit textului se seteaza in variabila final.
Sper sa va fie de folos, daca sunt probleme/sugestii postati aici

PS: intre fiecare cifra si [ list este un spatiu, sa nu uitati sa il puneti
Freezed is offline   Reply With Quote