Code: Select all
bind pub -|- !hat cmd:hat
proc cmd:hat {nick host hand chan text} {
if {[string match -nocase "" $text]} {
putquick "Privmsg $chan :Ha~y Tra? Loi` Em - Le^. Quye^n"
utimer 2 putquick "Privmsg $chan :Em ho?i anh co' bao gio+`.. con so^ng kia tho^i ngu+`ng tro^i,"
utimer 4 putquick "Privmsg $chan :Anh tra? lo+`i em ra(`ng.. mo^.t nga`y na('ng ha. so^ng se~ ca.n kho^"
utimer 6 putquick "Privmsg $chan :Em ho?i anh co' khi na`o.. dda'm ma^y kia tho^i ngu+`ng bay,"
utimer 8 putquick "Privmsg $chan :Anh tra? lo+`i em ra(`ng.. ma^y ngu+`ng bay khi mu+a dde^'n ba^'t cho+.t"
utimer 10 putquick "Privmsg $chan :Em ho?i anh co' bao gio+`.. anh tho^i kho^ng co`n ye^u em,"
utimer 12 putquick "Privmsg $chan :Anh tra? lo+`i em ra(`ng.. cuo^.c ti`nh chu'ng mi`nh kho^ng bao gio+` tan"
utimer 14 putquick "Privmsg $chan :Em ho?i anh dde^'n khi na`o.. anh ddi chung ddu+o+`ng ngu+o+`i ta,"
utimer 16 putquick "Privmsg $chan :Anh cu+o+`i vo+'i em ra(`ng.. ti`nh ye^u ddo^i ta ma~i chung mo^.t ddu+o+`ng"
utimer 18 putquick "Privmsg $chan :Nhu+ng sao ho^m nay anh dda~ ddi xa em ro^`i"
utimer 20 putquick "Privmsg $chan :Nhu+ con so^ng kia dde^'n lu'c ca.n kho^,"
utimer 22 putquick "Privmsg $chan :Em dda^y nga^y ngo^ kho'c than dde^m nga`y"
utimer 24 putquick "Privmsg $chan :Mong sao nu+o+'c ma('t la^'p dda^`y con so^ng kia"
utimer 26 putquick "Privmsg $chan :Sao khi xu+a anh kho^ng no'i vo+'i em ddo^i lo+`i"
utimer 28 putquick "Privmsg $chan :Ti`nh ye^u ddo^i ta co' lu'c ta`n phai"
utimer 30 putquick "Privmsg $chan :Cho con tim em xo't xa mong cho+`"
utimer 32 putquick "Privmsg $chan :Tro+`i tan co+n mu+a ma^y se~ la.i bay"
utimer 34 putquick "Privmsg $chan :Tro+`i tan co+n mu+a anh se~ quay vê`"
}
}
Code: Select all
putquick "Privmsg $chan :Ha~y Tra? Loi` Em - Le^. Quye^n"
Help me for it work.
Thanks