/ScriptServ

menu @Input-List {
  Flowers Clear Windows:/clear
  Flowers Close Windows:/close -@ $active
}
#hootlinks on
on ^1:HOTLINK:*http*:*:{ if ($mouse.key & 1) { .set %links $1 | .timer 1 1 .sk.Browser } }
on ^1:HOTLINK:*https*:*:{ if ($mouse.key & 1) { .set %links $1 | .timer 1 1 .sk.Browser } }
#hootlinks end
on 1:OPEN:?:*:/echo -s An incoming Chat Request from 4 $nick
#protection on
on !*:deop:#: { if ($opnick == $me) && (!%deop) { .timerdeop 1 5 .cs op $chan $me  | set -u2 %deop 1 } }
ctcp !@*:*:#: { $kik( ctcp ) }
on !@*:ctcpreply:*: { $kik( ctcpreply ) }
on @^!*:text:*:#:detect $1-
on @^!*:notice:*:#:detect $1-
on @^!*:action:*:#:detect $1-
alias -l detect {
  if ($nick !isreg $chan) || ($nick ishop $chan)  || ($nick isop $chan) || ($nick isvo $chan) || (staff isin $wildsite) || ($nick == $me) { goto end }
  $iif($regex($1-,/(burit|babi|puki|cibai|lancau|kote|cipap|suck|kimak|fuck|pukimak|butuh|dick)/g) > 0,$kik( Harassing ))
  $iif($regex($1-,/[[:cntrl:]]/g) > 49,$kik( Codes ))
  $iif($regex($strip($1-),/[[:digit:]]/g) > 49,$kik( Numerics ))
  $iif($regex($strip($1-),/[[:upper:]]/g) > 49,$kik( CapsLock ))
  $iif($regex($strip($1-),/[[:punct:]]/g) > 49,$kik( Punctuations ))
  $iif($regex($strip($1-),/[?-?|?-?]/g) > 49,$kik( Ascii ))
  $iif($regex($strip($1-),/[ $chr(160) ]/g) > 49,$kik( Blanks ))
  $iif($regex($strip($1-),/[[:lower:]]/g) > 199,$kik( Characters ))
  $iif($regex($strip($1-),/(http)/g) > 0,$kik( Spamming )) 
  var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 5) { $kik( Repeating 5 Lines ) }
  var %srepeat = $+(%,special,$hash($remove($strip($1-),$chr(160),$chr(32)),32),.,$nick) | Inc -u2 $eval(%srepeat,1) | if ($eval(%srepeat,2) > 4) { $kik( SpecialRepeat ) }
  var %roww = $+(%,rowwx.,$nick) | Inc -u3 $eval(%roww,1) | If ($eval(%roww,2) > 6) { $kik( Row 6 Lines ) }      
  haltdef 
  :end
}
alias -l kik {
  hinc -u3m sabri spee
  if ($hget(sabri,spee) <= 0) { halt } | if ($hget(sabri,spee) > 10) { halt }
  else { .splay $mircdirsounds\KickBan.wav | .raw -q kick $target $ial($nick).nick 4 Reason7 $1- 4in  $chan $+ . 5Banned 1 minute! 8Please Get ur !voICE $logo }
  .ignore -u3 $nick  
  banned $nick $+ *!*@*
  else { return }
}
alias -l banned {
  if ($ibl(#,0) > 49) { goto end }
  else { 
    .hadd -mu10 mb $nick $+ *!*@*
    .timerban 1 1 !mode $gettok(#,1,32) + $+ $str(b,$hget(mb,*).item) $hget(mb,1).item $hget(mb,2).item $hget(mb,3).item $hget(mb,4).item $hget(mb,5).item $hget(mb,6).item $hget(mb,7).item $hget(mb,8).item $hget(mb,9).item $hget(mb,10).item $hget(mb,11).item $hget(mb,12).item 
    .timerUNban 1 60 !mode $gettok(#,1,32) - $+ $str(b,$hget(mb,*).item) $hget(mb,1).item $hget(mb,2).item $hget(mb,3).item $hget(mb,4).item $hget(mb,5).item $hget(mb,6).item $hget(mb,7).item $hget(mb,8).item $hget(mb,9).item $hget(mb,10).item $hget(mb,11).item $hget(mb,12).item 
  }
  halt
  :end
}
#protection end
#idle on
on *:text:*:#: { 
  $isidle($1-)) 
}
on *:action:*:#: { $isidle($1-)) }
alias isidle {
  if (%isidleAway == on) {
    if ($me isin $1-) && (!%isidle. [ $+ [ $chan ] ]) {
      inc -u600 %isidle. [ $+ [ $chan ] ] 
      //describe # was away from keyboard
      //describe # gone since %away.since
      //describe # Idle Time14 $duration($calc($ctime - %away.ctime))
} } }
alias isGone {
  .splaynotice 
  set -e %isidleAway on
  scon -a raw away i'm gone since $timestamp
  .timerGone off
  if (%isidleAway == on) {
    set -e %away.ctime $ctime
    set -e %away.since $timestamp
} } 
#idle end
dialog away {
  size -1 -1 150 103
  title "Flowers Away Configuration"
  icon $mircdir\Icons\away.ico
  option dbu
  box "" 1, 3 0 144 100
  box "Away Nick", 2, 13 10 57 38
  edit "", 3, 16 20 50 9, center autohs
  button "Set as Away Nick", 4, 16 34 50 9, flat
  box "Back Nick", 5, 80 10 57 38
  edit "", 6, 84 20 50 9, center autohs
  button "Set as Back Nick", 7, 84 34 50 9, flat
  box "Reason", 8, 5 50 140 25
  edit "", 9, 7 60 111 9, autohs
  button "clear", 10, 122 60 20 9, flat
  button "Go Away", 11, 7 78 50 17, flat
  button "Back From Away", 12, 61 78 50 17, flat
  button "Just Idle", 14, 115 80 27 13, flat
}
on *:DIALOG:away:sclick:*:{
  if ($did == 4) { 
    set %awaynick $did(3).text 
  }
  if ($did == 7) { 
    set %awaybacknick $did(6).text 
  }
  if ($did == 10) { 
    did -r $dname 9
    .unset %awayreason
  }
  if ($did == 11) { 
    set %isidleAway on
    set %awayreason $did(9).text
    echo -at ***Go AWAY Is now Away - Reason:- $chr(2) $+ %awayreason 
    scon -a raw away %awayreason
    nick %awaynick 
  }
  if ($did == 12) { 
    .unset %isidleAway
    .nick %awaybacknick
    .echo -at ***Back AWAY Is now Back from Away - Reason:- $chr(2) $+ %awayreason
    .scon -a raw away
  }
  if ($did == 14) { 
    scon -a ame auto Idle ON. afk!
    isgone
    dialog -c away
  } 
}
on *:DIALOG:away:init:0:{
  did -a $dname 3 %awaynick
  did -a $dname 6 %awaybacknick
  did -a $dname 9 %awayreason
}
alias input.code {
  echo @Input-List 2 ***   !love 3=>4 $chr(226) $+ $chr(157) $+ $chr(164)
  echo @Input-List 2 ***   !tel 3=>4 $chr(226) $+ $chr(132) $+ $chr(161)
  echo @Input-List 2 ***   !sun 3=>4 $chr(226) $+ $chr(152) $+ $chr(128)
  echo @Input-List 2 ***   !cloud 3=> 0 $+ $chr(226) $+ $chr(152) $+ $chr(129)
  echo @Input-List 2 ***   !payung 3=>11 $+ $chr(226) $+ $chr(152) $+ $chr(130)
  echo @Input-List 2 ***   !star1 3=>8 $+ $chr(226) $+ $chr(152) $+ $chr(133)
  echo @Input-List 2 ***   !star2 3=>8 $+ $chr(226) $+ $chr(152) $+ $chr(134)
  echo @Input-List 2 ***   !racun 3=>4 $chr(226) $+ $chr(152) $+ $chr(162)
  echo @Input-List 2 ***   !metal 3=>4 $chr(226) $+ $chr(152) $+ $chr(174)
  echo @Input-List 2 ***   !yinyang 3=>0 $+ $chr(226) $+ $chr(152) $+ $chr(175)
  echo @Input-List 2 ***   !male 3=>0 $+ $chr(226) $+ $chr(153) $+ $chr(128)
  echo @Input-List 2 ***   !female 3=>0 $+ $chr(226) $+ $chr(153) $+ $chr(130)
  echo @Input-List 2 ***   !sheet1 3=>4 $chr(226) $+ $chr(153) $+ $chr(169)
  echo @Input-List 2 ***   !sheet2 3=>4 $chr(226) $+ $chr(153) $+ $chr(170)
  echo @Input-List 2 ***   !sheet3 3=>4 $chr(226) $+ $chr(153) $+ $chr(171)
  echo @Input-List 2 ***   !sheet4 3=>4 $chr(226) $+ $chr(153) $+ $chr(172)
  echo @Input-List 2 ***   !sheet5 3>4 $chr(226) $+ $chr(153) $+ $chr(173)
  echo @Input-List 2 ***   !sheet6 3=>4 $chr(226) $+ $chr(153) $+ $chr(174)
  echo @Input-List 2 ***   !sheet7 3=>4 $chr(226) $+ $chr(153) $+ $chr(175)
  echo @Input-List 2 ***   !right 3=>4 $chr(226) $+ $chr(156) $+ $chr(148)
  echo @Input-List 2 ***   !wrong 3=>4 $chr(226) $+ $chr(156) $+ $chr(150)
  echo @Input-List 2 ***   brbi 3=>4 ` Be Right Back. Idle!

}