;############################################################################
; ÈÑãÌå Ìãíáå áÒÎÑÝÉ Çáäß
;############################################################################

on 1:input:*: {
  set %colr $rand(1,11)
  set %colrss $rand(1,8)
  set %colrsn $rand(1,8)
  if ($left($1,1) != /) && ($1 ison $active)  set %araboing ÇÈÊËÌÍãÎÏÐÑÒÔÓÙÕÖÚÛÝÞßáãäåæíÁÄÆÁìØáÇ
  if ($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) { say 87 $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ 87 $+ $right($1,1)  $+ $2- 
      unset %arabo*
      halt
    }
  }
  if ($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) { say 85 $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ 85 $+ $right($1,1)  $+ $2- 
      unset %arabo* 
      halt 
    }
  }
  if ($1 !isop $chan) && ($1 !isvo $chan) && ($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) { say 84 $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ 84 $+ $right($1,1)  $+ $2- 
      unset %arabo* 
      halt 
    }
  }
  if ($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) { say 82 $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ 82 $+ $right($1,1)  $+ $2- 
      unset %arabo* 
      halt
    }
  }
  if ($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) { say 74 $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ 74 $+ $right($1,1) $+  $2- 
      unset %arabo* 
      halt 
    }
  }
  if ($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) { say 0,74 $+ $left($1,1) $+ 0,0ýýý0,78 $+ $mid($1,2,$calc($len($1) - 2)) $+ 0,0ýýý0,74 $+ $right($1,1) $+  $2- 
      unset %arabo* 
      halt 
    }
  }
  if ($1 !isop $chan) && ($1 !isvo $chan) && ($1 ison $chan) && (%colr == 7) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { say 0,76 $+ $left($1,1) $+ 0,0ýýý0,82ýýý $+ $mid($1,2,$calc($len($1) - 2)) $+ 0,0ýýý0,76 $+ $right($1,1) $+  $2- 
      unset %arabo* 
      halt 
    }
  }
  if ($1 !isop $chan) && ($1 !isvo $chan) && ($1 ison $chan) && (%colr == 8) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { say 0,86 $+ $left($1,1) $+ 0,0ýýý0,82ýýý $+ $mid($1,2,$calc($len($1) - 2)) $+ 0,0ýýý0,76 $+ $right($1,1) $+  $2- 
      unset %arabo* 
      halt 
    }
  }
  if ($1 !isop $chan) && ($1 !isvo $chan) && ($1 ison $chan) && (%colr == 9) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { say 0,86 $+ $left($1,1) $+ 0,0ýýý0,82 $+ $mid($1,2,1) $+ 0,0ýýý0,78 $+ $mid($1,3,1) $+ 0,0ýýý0,82ýýý $+ $mid($1,4,$calc($len($1) - 4)) $+ 0,0ýýý0,76 $+ $right($1,1) $+  $2- 
      unset %arabo* 
      halt 
    }
  }
  if ($1 !isop $chan) && ($1 !isvo $chan) && ($1 ison $chan) && (%colr == 10) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { say 0,84 $+ $left($1,1) $+ 0,0ýýý0,83 $+ $mid($1,2,1) $+ 0,0ýýý0,78 $+ $mid($1,3,1) $+ 0,0ýýý0,85 $+ $mid($1,4,$calc($len($1) - 4)) $+ 0,0ýýý0,87 $+ $right($1,1) $+  $2- 
      unset %arabo* 
      halt 
    }
  }
  if ($1 !isop $chan) && ($1 !isvo $chan) && ($1 ison $chan) && (%colr == 11) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { say 0,84 $+ $left($1,1) $+ 0,0ýýý0,83 $+ $mid($1,2,1) $+ 0,0ýýý0,78 $+ $mid($1,3,1) $+ 0,0ýýý0,85 $+ $mid($1,4,$calc($len($1) - 5)) $+ 0,0ýýý0,83 $+ $mid($1,8,$calc($len($1) - 8))  $+ 0,0ýýý0,87 $+ $right($1,1) $+  $2- 
      unset %arabo* 
      halt 
    }
  }
  if ($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) { say <10@87 $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ 87 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($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) { say <4@86 $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ 86 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($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) { say <2@84 $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ 84 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($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) { say <3@82 $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ 82 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($1 ison $chan) && ($1 isop $chan) && (%colrss == 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) { say <5@78 $+ $left($1,1) $+ 87 $+ $mid($1,2,$calc($len($1) - 2)) $+ 78 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($1 ison $chan) && ($1 isop $chan) && (%colrss == 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) { say <4@78 $+ $left($1,1) $+ 86 $+ $mid($1,2,$calc($len($1) - 2)) $+ 78 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($1 ison $chan) && ($1 isop $chan) && (%colrss == 7) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { say <2@78 $+ $left($1,1) $+ 84 $+ $mid($1,2,$calc($len($1) - 2)) $+ 78 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($1 ison $chan) && ($1 isop $chan) && (%colrss == 8) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { say <3@78 $+ $left($1,1) $+ 82 $+ $mid($1,2,$calc($len($1) - 2)) $+ 78 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($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) { say <4+87 $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ 87 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($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) { say <6+85 $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ 85 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($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) { say <7+86 $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ 86 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($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) { say <3+82 $+ $left($1,1) $+ 78 $+ $mid($1,2,$calc($len($1) - 2)) $+ 82 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($1 ison $chan) && ($1 isvo $chan) && (%colrsn == 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) { say <5+78 $+ $left($1,1) $+ 84 $+ $mid($1,2,$calc($len($1) - 2)) $+ 78 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($1 ison $chan) && ($1 isvo $chan) && (%colrsn == 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) { say <6+78 $+ $left($1,1) $+ 85 $+ $mid($1,2,$calc($len($1) - 2)) $+ 78 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($1 ison $chan) && ($1 isvo $chan) && (%colrsn == 7) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { say <7+78 $+ $left($1,1) $+ 86 $+ $mid($1,2,$calc($len($1) - 2)) $+ 78 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
  if ($1 ison $chan) && ($1 isvo $chan) && (%colrsn == 8) && ($left($1,1) !isin %araboing) {
    if ($mid($1,2,1) !isin %araboing) || ($mid($1,3,1) !isin %araboing) || ( $mid($1,4,1) !isin %araboing) { say <3+78 $+ $left($1,1) $+ 82 $+ $mid($1,2,$calc($len($1) - 2)) $+ 78 $+ $right($1,1) $+ > $2- 
      unset %arabo*
      halt
    }
  }
}


alias thank dialog -mo thank thank
dialog thank {
  title "Channel #Scripts In ArabChat"
  size -1 -1 200 180
  box "",1,5 0 190 70
  text "Thank you for loading this Add-on written by CoteDor. Please visit my website for more add-ons and other IRC tools. Have fun.",2,10 12 180 50,left
  box "",3,5 68 190 86
  text "Banned@LoveMaiL.Com",4,10 80 180 15,center
  edit "http://Chan-Scripts.Cjb.Net",5,33 100 130 22,center,read
  button "Visit",6,70 127 50 20
  button "Close",7,5 158 190 20,ok
}
on *:dialog:thank:init:0:/did -f thank 6
on *:dialog:thank:sclick:6:/run http://chan-scripts.cjb.net 
on *:load:{ thank } }