: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
}