| qeweSe | 31 Aralık 2011 10:01 |
Cevap: Global mesaj
Alıntı:
asilsoy Nickli Üyeden Alıntı
(Mesaj 1040979457)
Kod için tşk ederim .Bunu nereye eklicem. değiştirmem gereken yer var mı?
| PHP- Kodu:
if {![string match "*global_mesaj*" [timers]]} {
timer [rand 20] global_mesaj
}
proc global_mesaj {} {
global rgolo
set meth [rand 11]
switch -- $meth {
1 {
set msj selam
putserv "PRIVMSG operserv : global $msj"
}
2 {
set msj slm
putserv "PRIVMSG operserv : global $msj"
}
3 {
set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
putserv "PRIVMSG operserv : global $msj"
}
4 {
set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
putserv "PRIVMSG operserv : global $msj"
}
5 {
set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
putserv "PRIVMSG operserv : global $msj"
}
6 {
set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
putserv "PRIVMSG operserv : global $msj"
}
7 {
set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
putserv "PRIVMSG operserv : global $msj"
}
8 {
set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
putserv "PRIVMSG operserv : global $msj"
}
9 {
set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
putserv "PRIVMSG operserv : global $msj"
}
10 {
set msj [string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]][string index $rgolo [rand 171]]
putserv "PRIVMSG operserv : global $msj"
}
}
timer [rand 20] global_mesaj
return 1
}
bu kodları yerine benım verdiklerimi koy | 