I do not understand why use dcx?
You can make your dialog without dcx
it lacks a bracket in your code
lines 19-20 :
xdid -C $dname 2 +bk $rgb(0,0,0)
xdid -C $dname 4 +bk $rgb(0,0,0)
-> xdid -C $dname 2,4,+bk 0
alias Admin_Dialog !dialog $iif($dialog(Admin_Dialog),-x,-ma) Admin_Dialog Admin_Dialog
alias Admin_Dialog_cb {
if $1 == Admin_Dialog {
if $2 == sclick && $status == connected {
if ($istok(3 6 7 8 9 10 11 12 13 14,$3,32)) mode %channe $replace($3,3,+q,6,-q,7,+a,8,-a,9,+o,10,-o,11,+h,12,-h,13,+v,14,-v) %nickname
if ($istok(15 16,$3,32)) $replace($3,15,sajoin,16,sapart) %nickname %channel
if ($3 == 17) cs set founder %channel %nickname
if ($istok(18 19,$3,32)) cs set Securefounder %Channel $replace($3,18,on,19,off)
if ($3 == 20) cs REGISTER %channel
if ($3 == 21) cs DROP %channel %Channel
if ($istok(22 23,$3,32)) cs mode %Channel SET $replace($3,22,+P,23)
if ($istok(24 25,$3,32)) cs set secure %channel $replace($3,24,on,25,off)
if ($istok(26 27,$3,32)) cs set keetopic %channel $replace($3,26,on,27,off)
if ($istok(28 29,$3,32)) cs set secureop %channel $replace($3,28,on,29,off)
if ($3 == 30) cs users %channel clear
if ($3 == 31) cs MODE %channel CLEAR
if ($3 == 37) accesslist
if ($3 == 38) topic %channel $?="Topic"
if ($3 isnum 42-65) cs mode %channel set $replace($3,42,+N,43,-N,44,+m,45,-m,46,+s,47,-s,48,+l $$?="Enter New Limit",49,-l,50,+c,51,-c,52,+p,53,-p,54,+O,55,-O,56,+R,57,-R,58,+M,59,-M,60,+T,61,-T,62,+K,63,-K,64,+C,65,-C)
}
elseif $2 == edit {
if ($3 == 32) set %channel $xdid($1,32).text
elseif ($3 == 35) cs DROP %channel %Channel
if ($istok(36 39,$3,32)) set %nickname $xdid(%dname,$3).text
}
}
}
Http://imgur.com/a/y79xB?gallery
Http://imgur.com/a/y79xB
Http://i.imgur.com/uR68H.jpg
http://imgur.com/uR68H
I do not know if there are other valid formats
on $*:TEXT:$($imgreg):#: {
if (!$sock(ImgurLookup)) {
sockopen ImgurLookup imgur.com 80 | sockmark ImgurLookup $+(#,$chr(32),$regml(1))
}
}
alias imgreg return /https?\72\/\/(?:i\.)?imgur\.com\/((?:a\/)?[a-z\d]+)/Si
on *:sockopen:ImgurLookup:{
var %a sockwrite -n $sockname
%a GET $+(/,$gettok($sock(ImgurLookup).mark,2,32)) HTTP/1.1
%a Host: imgur.com
%a $crlf
}
on *:sockread:ImgurLookup:{
var %x
sockread %x
if $regex(%x,/([^>]+)<\/title>/) { set %ImgurLookuptitle $gettok($regml(1),-2,45) }
if $regex(%x,<h2 class="textbox left">([^>]+)<\/h2>) { set %ImgurLookupalbum · $regml(1) }
if $regex(%x,<span title=".+ GMT">([^>]+)<\/span>) { set %ImgurLookupage $regml(1) }
if $regex(%x,<span (?:class|id)="stat(?:s-views)?">([^>]+)<\/span>) { set %ImgurLookupview $regml(1) }
if "nsfw":true isincs %x { set %ImgurLookupnsfw 9· 4NSFW }
if $regex(%x,"datetime":"([^"]+)") && !%ImgurLookupage { set %ImgurLookupage $timeago($calc($ctime - $ctime($regml(1)))) }
}
on *:sockclose:ImgurLookup: {
msg $gettok($sock(ImgurLookup).mark,1,32) 9,1i0,1mgur » %ImgurLookuptitle %ImgurLookupalbum · Uploaded: %ImgurLookupage · %ImgurLookupview views %ImgurLookupnsfw
unset %ImgurLookup*
}
alias timeago {
if ($1 <= 59) { Return $1 seconds ago }
if (($1 <= 3599) && ($1 > 59)) { return $floor($calc($1 / 60)) minutes ago }
if (($1 <= 86399) && ($1 > 3599)) { return $round($calc($1 / 3600),0) hours ago }
if (($1 <= 2592000) && ($1 > 86399)) { return $floor($calc($1 / 86400)) $iif($floor($calc($1 / 86400)) > 1,days,day) $+ , $round($calc($calc($1 - $calc($floor($calc($1 / 86400))*86400)) / 3600),0) hour(s) ago }
if (($1 <= 31540000) && ($1 > 2592000)) { return $floor($calc($1 / 2592000)) $iif($floor($calc($1 / 2592000)) > 1,months,months) $+ , $round($calc($calc($1 - $calc($floor($calc($1 / 2592000))*2592000)) / 86400),0) day(s) ago }
if ($1 > 31104000) { return $floor($calc($1 / 31104000)) $iif($floor($calc($1 / 31104000)) > 1,years,year) $+ , $round($calc($calc($1 - $calc($floor($calc($1 / 31104000))*31104000)) / 2592000),0) month(s) ago }
}
on *:SOCKREAD:ip-tracker: {
if ($sockerr > 0) return
sockread %ip-tracker
if ($regex(%ip-tracker,/
Ther's a small error in the line 259 (version 4.3) which I had not thought if you want to correct it replace this line:
If ($regex($1,/(?:#|\?|&)t=([\ddhms]+)/S)) set -su1 %ythottime $duration($regml(1))
by this one
if ($regex(ytstartime,$1,/(?:[#?&])t=([\ddhms]+)/S)) set -u1 %ythottime $iif($regml(ytstartime,1) isnum,$v1,$duration($replace($v1,d,day $chr(32),h,hr $chr(32),m,min $chr(32),s,sec)))
New version dcx.dll 2.0.1091
www.zone-script.net/remotes/dcx/dcx200dev13rev1091.zip
/xstatusbar -t & -v have changed
-t N [+FLAGS] [#ICON] [BKGCOLOR] [TXTCOLOR] (Cell Text)([TAB]Tooltip Text)
-v [N] [BKGCOLOR] [TXTCOLOR] (TEXT)
use -1 if u dont want a colour
same as usual
colours only affect +f parts
all this may change ofcourse
Thx Ook !
You can see all the changes here http://code.google.com/p/dcx/source/list
Thanks for getting back to me
I'm glad that my remote is appreciated
I'm working on the version 2, i'll post soon.
Here is one of his new options: http://tinyurl.com/ytprev
I try to make maximum use of the possibilities offered by dcx.dll to show examples to those who want to try
I thank Ook that was quickly fixed the bugs and released almost instantly the version 2.0.1090 : http://tinyurl.com/d2elszt
If you have any ideas, bugs to report or translations don't hesitate to post.