Selasa, 4 Disember 2012

mIRC Script - Auto Jawab Salam

menu menubar {
  .$iif(%salam,$style(1)) &Auto Jawab  السلام :jwpsalam
}
alias jwpsalam {
  set %salam $iif(%salam,0,1)
}
on *:action:*:#: { $salam($1-)) }
on *:notice:*:#: { $salam($1-)) }
on *:TEXT:*:#: { $salam($1-)) }
alias salam {
  if (%salam == 1) {
    if ($regex($strip($1-),/as?[`'\54]?k[uo]m|s[a|e]mek[ou]m|assalam?m[uo]'?alaik[uo]m/i)) && (!%salam. [ $+ [ $nick ] ]) { inc -u160 %salam. [ $+ [ $nick ] ] | msg # $slm | return }
  }
}
alias slm {
  goto $rand(1,5)
  :1 | return W alaikumussalam W arrahmatullahi W abarakatuh $nick
  :2 | return W aalaikumusalam $nick
  :3 | return W 'salam W.B.T $nick
  :4 | return W 'salam $nick W b
  :5 | return W a'alaikummussalam W.B.T
}

Tiada ulasan:

Catat Ulasan