Demonzclanz Technologiez.

Humble - Trust - Loyalty

:z: This simple script is for the beginner user.
:z: For advance user, plz wait to latest update.

;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;                       Remote By AwangX a.k.a Flameoption A.k.a Hell_Master
;                       
;                 Powered By Demonzclanz Technologiez
;
;                 Team Admin: Squall_Leonhart, Demonx, Possessed
;
;                 Team Memberz: bigberd^arisS, hawrk, worthy, v4mpir3
;
;                 Server: webmaster.webchat.org
;
;                 Room: #Demonzclanz - #brutal(Flameoption official room)
;
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

alias dczpsy { dialog -m dczpsy dczpsy }
dialog dczpsy {
  title "||PsyBNC Connect|| By || Demonzclanz||"
  size -1 -1 318 316
  option pixels
  box "PsyBnc 2.0 Connect", 1, 4 9 307 225
  box "Psy Server/port", 2, 4 32 307 78
  edit "", 3, 16 73 282 21, AutoHs
  text "example: matrix.demonzclanz.org 61111", 4, 34 49 224 16
  box "PsyBnc Password", 5, 4 116 152 78
  text "example: yourpassword", 6, 17 134 121 16
  edit "", 7, 15 156 138 21, AutoHs
  box "PsyBNC Identd", 8, 156 116 155 78
  text "example: identd", 9, 169 131 121 16
  edit "", 10, 159 156 138 21, AutoHs
  button "((CONNCET TO PSYBNC))", 11, 9 200 297 25, ok
  box "Warning", 12, 5 233 307 53
  text "For Webchat server..-do not park your psy above 4 channels, to prevent an xs flood-.. Enjoy~ :D", 13, 14 251 292 34
  text "copyright reserved © 2009 demonzclanz. All right reserved", 14, 16 292 292 22
}
on 1:dialog:dczpsy:init:0: {
  did -o dczpsy 3 1 %servport
  did -o dczpsy 7 1 %psypass
  did -o dczpsy 10 1 %psyidentd
}
on 1:dialog:dczpsy:edit:*: {
  if ($did == 3) { %servport = $remove($did(3).text,$chr(168)) }
  if ($did == 7) { %psypass = $remove($did(7).text,$chr(168)) }
  if ($did == 10) { %psyidentd = $remove($did(10).text,$chr(168)) }
}
on 1:dialog:dczpsy:sclick:11: { .identd on %psyidentd | .emailaddr %psyidentd | .server %servport %psypass | .timer -mo 1 1 fade_out $dname | halt }

alias fade_out {
  set %r-dialogsize 0
  .timerrdialog1 -mo 16 10 r-updatesize_do1 $1 $dialog($1).w $dialog($1).h
}
alias r-updatesize_do1 {
  if ($dialog($1)) {
    if (%r-dialogsize >= 15) { dialog -x $1 | .timerrdialog1 off  | unset %r-dialogsize }
    else {
      inc %r-dialogsize 2
      dialog -sp $1 -1 -1 $2 $int($calc($3 / %r-dialogsize))
    }
  }
}
menu status,menubar,channel {
  [-PsyCon-]:/dczpsy
}