;==============================================;
;                Nick Completer                ;
;              Made By You-And-I               ;
;   join #helpdesk in arabchat.org for help    ;
;                  email me                    ;
;             nawal_28@yahoo.com               ;
;          webmaster@GulfTeam.com.com          ;
;  www.Gulfteam.com and http://go.to/nawal_28  ;
           
;                       ;
;==============================================;
on *:input:*: {
  set %colr $r(1,6)
  set %colrss $r(1,4)
  set %colrsn $r(1,4)
  if ($left($1,1) != /) && ($1 ison $active)  set %araboing 
  if ($len($1) >= 3) && ($1 !isop $chan) && ($1 !isvo $chan) && ($1 ison $chan) && (%colr == 1) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say %covo $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ %covo $+ $right($1,1)  $+ $2- 
      unset %arabo*
      halt
    }
  }
  if ($len($1) >= 3) && ($1 !isop $chan) && ($1 !isvo $chan) && ($1 ison $chan) && (%colr == 2) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say %covo $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ $chr(31) $+ %covo $+ $right($1,1) $+  $2- 
      unset %arabo* 
      halt 
    }
  }
  if ($len($1) >= 3) && ($1 !isop $chan) && ($1 !isvo $chan) && ($1 ison $chan) && (%colr == 3) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ 0, $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say %covo $+ $left($1,1) $+ 0,78 $+ $mid($1,2,$calc($len($1) - 2)) $+ %covo $+ $right($1,1) $+  $2- 
      unset %arabo* 
      halt 
    }
  }
  if ($len($1) >= 3) && ($1 !isop $chan) && ($1 !isvo $chan) && ($1 ison $chan) && (%colr == 4) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ 0, $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say 0,78 $+ $left($1,1) $+ %covo $+ $mid($1,2,$calc($len($1) - 2)) $+ 0,78 $+ $right($1,1) $+  $2- 
      unset %arabo* 
      halt 
    }
  }
  if ($len($1) >= 3) && ($1 !isop $chan) && ($1 !isvo $chan) && ($1 ison $chan) && (%colr == 5) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ 0, $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say 0,78 $+ $left($1,1) $+ %covo $+ $chr(31) $+ $mid($1,2,$calc($len($1) - 2)) $+ $chr(31) $+ 0,78 $+ $right($1,1) $+  $2- 
      unset %arabo* 
      halt 
    }
  }
  if ($len($1) >= 3) && ($1 !isop $chan) && ($1 !isvo $chan) && ($1 ison $chan) && (%colr == 6) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ 0, $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say %covo $+ $chr(31) $+ $left($1,1) $+ $chr(31) $+ 0,78 $+ $mid($1,2,$calc($len($1) - 2)) $+ %covo $+ $chr(31) $+ $right($1,1) $+  $2- 
      unset %arabo* 
      halt 
    }
  }
  if ($len($1) == 2) && ($1 !isop $chan) && ($1 !isvo $chan) && ($1 ison $chan) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say %covo $+ $left($1,1) $+ 78 $+ $right($1,-1) $+  $2- 
      unset %arabo* 
      halt 
    }
  }
  if ($len($1) == 1) && ($1 !isop $chan) && ($1 !isvo $chan) && ($1 ison $chan) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say %covo $+ $nick $+  $2- 
      unset %arabo* 
      halt 
    }
  }
  ;;;;;;;;;;;;
  if ($len($1) >= 3) && ($1 ison $chan) && ($1 isop $chan) && (%colrss == 1) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say <10@ $+ %covo $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ %covo $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($len($1) >= 3) && ($1 ison $chan) && ($1 isop $chan) && (%colrss == 2) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say <4@78 $+ $left($1,1) $+ %covo $+ $mid($1,2,$calc($len($1) - 2)) $+ 78 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($len($1) >= 3) && ($1 ison $chan) && ($1 isop $chan) && (%colrss == 3) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say <3@ $+ %covo $+ $left($1,1) $+ 78 $+ $chr(31) $+ $mid($1,2,$calc($len($1) - 2)) $+ $chr(31) $+ %covo $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($len($1) >= 3) && ($1 ison $chan) && ($1 isop $chan) && (%colrss == 4) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say <6@78 $+ $chr(31) $+ $left($1,1) $+ %covo $+ $chr(31) $+ $mid($1,2,$calc($len($1) - 2)) $+ $chr(31) $+ 78 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($len($1) == 2) && ($1 ison $chan) && ($1 isop $chan) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say <10@ $+ %covo $+ $left($1,1) $+ 78 $+ $right($1,-1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($len($1) == 1) && ($1 ison $chan) && ($1 isop $chan) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say <10@ $+ %covo $+ $nick $+ > $2- 
      unset %arabo*
      halt
    }
  }
  ;;;;;;;;;
  if ($len($1) >= 3) && ($1 ison $chan) && ($1 isvo $chan) && (%colrsn == 1) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say <4+78 $+ $left($1,1) $+ %covo $+ $mid($1,2,$calc($len($1) - 2)) $+ 78 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($len($1) >= 3) && ($1 ison $chan) && ($1 isvo $chan) && (%colrsn == 2) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say <6+ $+ %covo $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ %covo $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($len($1) >= 3) && ($1 ison $chan) && ($1 isvo $chan) && (%colrsn == 3) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say <3+78 $+ $chr(31) $+ $left($1,1) $+ $chr(31) $+ %covo $+ $mid($1,2,$calc($len($1) - 2)) $+ 78 $+ $chr(31) $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($len($1) >= 3) && ($1 ison $chan) && ($1 isvo $chan) && (%colrsn == 4) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say <7+ $+ %covo $+ $left($1,1) $+ 78 $+ $chr(31) $+ $mid($1,2,$calc($len($1) - 2)) $+ $chr(31) $+ %covo $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($len($1) == 2) && ($1 ison $chan) && ($1 isvo $chan) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say <4+ $+ %covo $+ $left($1,1) $+ 78 $+ $right($1,-1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($len($1) == 1) && ($1 ison $chan) && ($1 isvo $chan) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { set %covo $chr(3) $+ $gettok(02 03 04 05 06 07 12 10,$r(1,8),32) | say <4+ $+ %covo $+ $nick $+ > $2- 
      unset %arabo*
      halt
    }
  }
}
