Saturday, January 3, 2015

MiRC : Auto islamic greeting

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
}


How to use :
1. Open MiRC
2. Go to Tool -> Script Editor (or using Alt+R shortcut key)
3. Paste the above script on Remote tab
4. Close to save
5. Open Command menu and choose click "Auto Jawab" to activate or deactivate

No comments:

Post a Comment