; ——————————————————————————————————————————————————————————————————————————————————————————————— ;
; cZ iL Admin control v1.0 by Shahar-Arthas
; ——————————————————————————————————————————————————————————————————————————————————————————————— ;

dialog czil {
  title "cZ iL Admin control"
  size -1 -1 166 42
  option dbu
  edit "", 1, 39 12 50 11, autohs
  edit "", 2, 39 24 50 11, pass autohs
  text "Username:", 3, 11 13 27 8
  text "Password:", 4, 11 25 27 8
  box "Login", 5, 3 3 160 36
  check "Remember password ?", 6, 93 12 65 10
  button "Login", 7, 93 23 30 12
  text "Map:", 11, 34 57 14 8
  edit "", 12, 51 56 50 11, autohs
  box "Start Gather", 8, 3 45 160 29
  button "Start", 9, 105 55 38 12
  button "Logout", 13, 126 23 30 12
  box "Users", 14, 3 78 160 50
  radio "Add user", 15, 11 88 34 10
  radio "Remove user", 16, 11 100 43 10
  radio "Edit user's level", 17, 11 112 47 10
  edit "Username", 18, 59 88 56 11, autohs
  edit "Password", 19, 59 100 56 11, autohs
  combo 20, 59 112 56 116, size drop
  combo 10, 11 56 19 73, size drop
  button "Add", 21, 120 112 37 12
  edit "", 22, 166 6 7 122, read multi center
}
menu * {
  cZ iL Dialog: dialog -m czil czil
}
on *:dialog:czil:*:*:{
  if ($devent == init) {
    did -c $dname 15
    did -a $dname 10 1 | did -a $dname 10 2 | did -a $dname 10 3 | did -a $dname 10 4
    if (%Rememberpassword) { did -c $dname 6 | did -a $dname 1 $gettok($v1,1,32) | did -a $dname 2 $gettok($v1,2,32) }
  }
  elseif ($devent == sclick) {
    if ($did == 7) && ($did(1)) && ($did(2)) {
      if ($did(6).state) { set %Rememberpassword $did(1) $did(2) }
      else { unset %Rememberpassword }
      inc -u5 %Logintry
      msg [cZ]Gathers`NEW ?Login $did(1) $did(2)
    }
    elseif ($did == 13) {
      inc -u5 %Logouttry
      msg [cZ]Gathers`NEW ?Logout
    }
    elseif ($did == 9) && ($did(12)) && ($did(10)) {
      msg [cZ]Gathers`NEW $replace($did(10),1,!,2,@,3,+,4,.) $+ Start $did(12)
    }
    elseif ($did == 15) { did -ra $dname 21 Add | did -e $dname 19,20 }
    elseif ($did == 16) { did -ra $dname 21 Remove | did -b $dname 19,20 }
    elseif ($did == 17) { did -ra $dname 21 Edit | did -b $dname 19 | did -e $dname 20 }
    elseif ($did == 21) {
      if ($did(21) == Edit) && ($did(20)) && ($did(18)) { inc -u5 %Edittry | msg [cZ]Gathers`NEW ?ChangeLEVEL $did(18) $did(20) }
      elseif ($did(21) == Remove) && ($did(18)) { inc -u5 %Removetry | msg [cZ]Gathers`NEW ?Remove $did(18) }
      if ($did(21) == Add) && ($did(18)) && ($did(19)) && ($did(20)) { inc -u5 %Addtry | msg [cZ]Gathers`NEW ?Add $did(20) $did(18) $did(19) }
    }
  }
}
alias dodialogaccess {
  if ($1 == Admin) || ($1 == VIPAdmin) slidecz -wh czil 173 77 writeinz Logged
  else {
    slidecz -wh czil 173 131 writeinz Logged
    did -r czil 20
    did -a czil 20 Admin
    did -a czil 20 VIPAdmin
    if ($1 != GathersCrew) did -a czil 20 GathersCrew
    if ($1 != GathersCrew) && ($1 != Manager) { did -a czil 20 Manager | did -a czil 20 VVIPAdmin }
  }
}
; ——————————————————————————————————————————————————————————————————————————————————————————————— ;
; Dialog slider by Arthas v2
;
; Syntax: /Slide: Invalid format, the syntax is /Slide -whs <dname> <Speed(1-10)> <width> <height> [alias]
; ——————————————————————————————————————————————————————————————————————————————————————————————— ;

alias slidecz {
  unset %slide.*
  if (w isin $1) { set %slide.now w }
  elseif (h isin $1) { set %slide.now h }
  if (s isin $1) && ($3 isnum 1-10) { set %slide.speed $3 | tokenize 32 $1 $2 $4- }
  if (s isin $1) && ($3 !isnum 1-10) && (!%slide.speed) { echo $color(info) -ag * /slide: Speed must be number between 1-10 | return 0 }
  elseif (!%slide.now) || (!$3) { echo $color(info) -ag * /slide: Invalid format, the syntax is /Slide -whs <dname> <Speed(1-10)> <width> <height> [alias] }
  elseif ((h isin $1) && (w isin $1) && ($4 !isnum)) || ($3 !isnum) { echo $color(info) -ag * /slide: width/height must be numbers }
  elseif (!$dialog($2)) noop
  else {
    set %slide.mode $1
    set %slide.dialog $2
    set %slide.to $3
    if (h isin $1) set %slide.to2 $4
    set %slide.type $iif($3 < $int($calc($dialog(%slide.dialog). [ $+ [ $iif(%slide.now == h,ch,cw) ] ] /2)),down,up)
    if (h isin $1) && ($5) set %slide.alias $5-
    elseif (h !isin $1) && ($4) set %slide.alias $4-
    slideit2
  }
}
alias writeinz {
  if ($1-) did -ra czil 22 $1-
  .timer 1 2 slidecz -w czil 166
}
alias -l slideit2 {
  if (!$dialog(%slide.dialog)) { echo $color(info) -ag * /slide: ' $+ %slide.dialog $+ ' no such active dialog | return 0 }
  var %slide.o = $int($calc($dialog(%slide.dialog). [ $+ [ $iif(%slide.now == h,ch,cw) ] ] /2))
  if (((%slide.o > %slide.to) && (%slide.type == down)) || ((%slide.o < %slide.to) && (%slide.type == up))) {
    var %udd = $iif(%slide.type == down,-,+) $+ $iif(%slide.speed,$calc(%slide.speed *2),2), %uddd $iif($left(%udd,1) == +,-,+) $+ $right(%udd,-1)
    if ((($calc(%slide.o %udd) < %slide.to) && (%slide.type == down)) || (($calc(%slide.o %udd) > %slide.to) && (%slide.type == up))) { goto end }
    dialog -bs %slide.dialog $iif(%slide.now == w,$calc($dialog(%slide.dialog).x %uddd),$dialog(%slide.dialog).x) $iif(%slide.now == h,$calc($dialog(%slide.dialog).y %uddd),$dialog(%slide.dialog).y) $iif(%slide.now == h,$int($calc($dialog(%slide.dialog).cw /2))) $calc(%slide.o %udd) $iif(%slide.now == w,$int($calc($dialog(%slide.dialog).ch /2)))
    .timer -m 1 1 slideit2
  }
  else {
    goto end
    :end
    if (%slide.o != %slide.to) { var %tdd = $iif(%slide.type == down,+,-) $+ $abs($calc(%slide.o - %slide.to)) | dialog -bs %slide.dialog $iif(%slide.now == w,$calc($dialog(%slide.dialog).x %tdd),$dialog(%slide.dialog).x) $iif(%slide.now == h,$calc($dialog(%slide.dialog).y %tdd),$dialog(%slide.dialog).y) $iif(%slide.now == h,$int($calc($dialog(%slide.dialog).cw /2))) %slide.to $iif(%slide.now == w,$int($calc($dialog(%slide.dialog).ch /2))) }
    if (%slide.now != h) && (h isin %slide.mode) {
      set %slide.now h
      set %slide.to %slide.to2
      set %slide.type $iif(%slide.to < $int($calc($dialog(%slide.dialog).ch /2)),down,up)
      .timer -m 1 1 slideit2
    }
    else { if (%slide.alias) $(%slide.alias,2) | unset %slide.* }
  }
}
on *:text:*:?:{
  if ($nick == [cZ]Gathers`NEW) && ($dialog(czil)) {
    if (%Logintry) {
      if ($regex($1-,/You are already logged in as (.+) - (.+)\./)) {
        var %user = $strip($regml(1)), %acc $left($gettok($strip($regml(2)),1,32),-1)
        dodialogaccess %acc
      }
      elseif ($regex($1-,/You have been connected to (.+) account. User: (.+)\./)) {
        var %acc = $strip($regml(1)), %user $left($gettok($strip($regml(2)),1,32),-1)
        dodialogaccess %acc
      }
    }
    elseif (%Logouttry) && (*You have been disconnected from * account. User: *, Reason: Logout* iswm $1-) {
      slidecz -h czil 42
    }
    elseif (%Removetry) && (has been removed in successfully. isin $1-) {
      slidecz -w czil 173 writeinz Removed
    }
    elseif (%Addtry) && (*successfully added as a *, for login* iswm $1-) {
      slidecz -w czil 173 writeinz Added
    }
    elseif (%Edittry) && ('s level has been changed from isin $1-) {
      slidecz -w czil 173 writeinz $+(Edi,$crlf,ted)
    }
  }
}