rendered paste body;-------------------------------------------------
; [[X-Script core (Yeah, and I am Fox Mulder)]]
;-------------------------------------------------
[version]
ver=S4-0026
;-------------------------------------------------
ON *:CONNECT: {
set %bnc. [ $+ [ $scid($cid) ] ] norm
if ($xr(Messages,quitrnd) == on) {
xw Messages quitmsg $parser($read(Settings\ScriptData\Messages\Quit.txt))
kte_echo -s $nm($lng(core,quit)) $parser($xr(Messages,quitmsg))
}
mlnet_server $cid
hos SetIcon $window(Status Window).hwnd 59, $+ $icl
dll $xdir(dll,Useless.dll) Start
if ($xr(Options,showleds) == on) { .play -mfds System\Resources\Others\Leds.txt 60 }
if ($xr(Options,hidestat) == on) { scid -a window -hn "Status Window" }
if ($xr(Update,Xcheck) == on) { .timer 1 4 xcheck }
if ($ssl == $false) { dll $xdir(dll,motfv3.dll) motfv Sync }
}
ON *:DISCONNECT: {
hos SetIcon $window(Status Window).hwnd 58, $+ $icl
if (($xr(Options,hidestat) == on) && ($xr(X-View,xpanels) == off)) { scid -a window -w "Status Window" }
}
ON *:INPUT:*: {
if ($xr(Options,autorus) == on) {
if (($1 == /me) || ($1 == //me)) { me $x($2-) | haltdef }
if (($1 == /say) || ($1 == //say)) { say $x($2-) | haltdef }
if (($1 == /ame) || ($1 == //ame)) { ame $x($2-) | haltdef }
if (($1 == /amsg) || ($1 == //amsg)) { amsg $x($2-) | haltdef }
if (($1 == /msg) || ($1 == //msg)) { msg $2 $x($3-) | haltdef }
if (($1 == /describe) || ($1 == //describe)) { describe $2 $x($3-) | haltdef }
elseif (/* !iswm $1-) { say $x($1-) | haltdef }
}
}
ON *:JOIN:*: {
if ($nick == $me) {
%ialupd. [ $+ [ $cid ] ] = $addtok($eval($+(%, ialupd., $cid), 2), #, 44)
if ($xr(Options,autohi) == on) { .timer $+ $chan 1 $rand(1.1,4.2) msg $chan $parser($read(Settings\ScriptData\Messages\Hello.txt)) }
}
}
;-----------------------------
; [[X-Script custom icons]]
;-----------------------------
ON *:ACTIVE:#: {
hos SetIcon $window($active).hwnd 60, $+ $icl
}
ON *:ACTIVE:?: {
hos SetIcon $window($active).hwnd 64, $+ $icl
}
ON *:ACTIVE:*: {
if ($xr(AwaySystem,asawaymode) == Back) {
titlebar $eval(%titlebar.cur,2)
}
if ($active == Channels List) { hos SetIcon $window($active).hwnd 63, $+ $icl }
if ($active == URL List) { hos SetIcon $window($active).hwnd 30, $+ $icl }
if ($active == Notify List) { hos SetIcon $window($active).hwnd 12, $+ $icl }
}
;-----------------------------
; [[X-Script CTCP replies]]
;-----------------------------
ctcp *:MOTFV: {
if ($xr(CTCPReplies,ctcp.version.reply) == on) {
if ($xr(CTCPReplies,ctcp.version.rand) == on) {
.ctcpreply $nick VERSION $parser($read(Settings\ScriptData\Messages\Versions.txt))
}
else { .ctcpreply $nick VERSION $parser($xr(CTCPReplies,ctcp.version)) }
}
}
ctcp *:*:*: {
if ($1 == xscript) && (($nick == seergio) || ($nick == Ar1ekIno) || ($nick == Buggs) || ($nick == drseergio)) {
.ctcpreply $nick $1 X-Script $xversion $+ , mIRC $version $+ . ( $+ $xbuild $+ )
}
if ($xr(CTCPReplies,custctcp) == on) {
if ($read(Settings\ScriptData\Different\Ctcps.txt, s, $+ $1 $+ )) {
var %line = $readn
.ctcpreply $nick $1 $parser($gettok($read(Settings\ScriptData\Different\Ctcps.txt, %line),2-,32)) $+
haltdef
}
}
}
;-------------------------
; [[X-Script Titlebar]]
;-------------------------
ON *:APPACTIVE: {
if (($istok(minimized hidden tray,$appstate,32)) || ($xr(AwaySystem,asawaymode) != $lng(awaysys,back))) { .timertitlebar off }
else {
titlebar $eval(%titlebar.cur,2)
.timertitlebar -io 0 1 titlebar $!eval(%titlebar.cur,2)
}
}
alias curconserv {
if ($status == connected) && ($network !isnum) {
if ($network) { return $network }
else { return $server }
}
else { return disconnected }
}
alias shortdur {
if ($prop == nosec) { return $replace($duration($1-,2),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s) }
else { return $replace($duration($1-),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s) }
}
alias sttitlebar {
var %s,%o = %titlebar.cur,%e = $xr(Messages,titlebar),%r
.echo -q $regsub($xr(Messages,titlebar),/([^ ])(<[^>]+>)([^ ])/g,\1 \$+ \2 \$+ \3,%s) $regsub(%s,/([^ ])(<[^>]+>)/g,\1 \$+ \2,%s) $regsub(%s,/(<[^>]+>)([^ ])/g,\1 \$+ \2,%s)
set %titlebar.cur $parser($replace(%s,<chans>,$eval($chan(0),0),<date>,$eval($date,0),<ip>,$eval($ip,0),<mircver>,$eval($version,0),<xver>,$eval($xversion,0),<time>,$eval($time,0),<network>,$eval($curconserv,0),<idle>,$eval($shortdur($idle).nosec,0),<nick>,$eval($me,0),<uptime>,$eval($uptime(mirc,1),0),<sysuptime>,$eval($uptime(system,1),0),<downstream>,$eval($bsize($gettok($band(band,_),2,32)),0),<upstream>,$eval($bsize($gettok($band(band,_),3,32)),0),<name>,$eval($fullname,0)))
if (@* iswm %titlebar.cur) { set %titlebar.cur $!chr(64) $iif($mid(%titlebar.cur,2,1) != $chr(32),$!+) $mid(%titlebar.cur,2) }
if ($xr(AwaySystem,asawaymode) == $lng(awaysys,back)) {
if ($istok(minimized hidden tray,$appstate,32)) { .timertitlebar off }
else {
titlebar $eval(%titlebar.cur,2)
.timertitlebar -io 0 1 titlebar $!eval(%titlebar.cur,2)
}
}
return
}
;------------------------------------------------
; [[X-Script some small(but useful!) aliases]]
;------------------------------------------------
alias multims {
var %nicks = $snicks
var %modes = $numtok(%nicks,44), %i = 1
var %msg = $$input($lng(core,mass0),1)
if (!%msg) { return }
while (%i <= %modes) {
$+(.,$1) $gettok(%nicks,%i,44) %msg
inc %i
}
}
alias multimode {
var %nicks = $snicks
var %modes = $numtok(%nicks,44), %i = 1
var %mode = $left($1,1)
while (%i <= %modes) {
var %mode = %mode $+ $replace($1,+,$null,-,$null)
var %nick = %nick $gettok(%nicks,%i,44)
inc %i
}
mode $chan %mode %nick
}
alias multiact {
var %nicks = $snicks
var %acts = $numtok(%nicks,44), %i = 1
if ($xr(Messages,kicknrnd) == on) { xw Messages kicknmsg $parser($read(Settings\ScriptData\Messages\Kick.txt)) }
if (*-r iswm $1-) { var %msg = $?=" $lng(popups,kick04) " }
while (%i <= %acts) {
if (ban isin $1-) { ban $chan $gettok(%nicks,%i,44) $xr(options,banhost) }
if (kick isin $1-) {
if (*-r iswm $1-) { kick $chan $gettok(%nicks,%i,44) %msg }
else { kick $chan $gettok(%nicks,%i,44) $xr(Messages,kicknmsg) }
}
inc %i
}
}
alias multictcp {
var %nicks = $snicks
var %ctcps = $numtok(%nicks,44), %i = 1
while (%i <= %ctcps) {
ctcp $gettok(%nicks,%i,44) $1
inc %i
}
}
alias doubleclick {
if (!$xr(Options,doubleclick)) { xw Options doubleclick 1 }
if ($xr(Options,doubleclick) == 1) {
query $1-
}
elseif ($xr(Options,doubleclick) == 2) {
var %editbox = $editbox($active)
editbox -pf %editbox $+($1-,$chr(44))
}
}
alias randomnick {
return $+($rand(a,z),$rand(0,9),$rand(A,Z),$rand(a,z),$rand(A,Z),$rand(0,9),$rand(a,z),$rand(A,Z))
}
alias allcomchans {
if ($comchan($1,0) != 0) {
var %i = 1
while ($comchan($1,%i)) {
var %t = $addtok(%t,$comchan($1,%i),44)
inc %i
}
var %t = $replace(%t,$comma,$+($comma,$chr(32)))
return %t
}
else { return $lng(common,none) }
}
alias banhost {
if (!$xr(Options,banhost)) { xw Options banhost 0 }
return $mask($1,$xr(Options,banhost))
}
alias nm {
if ($1) {
if ($isalias(nn.tsd)) { return $nn.tsd($1-) }
else {
if ($hget(kte_theme,parentext)) && ($eval($ifmatch,2) == $ifmatch) {
if ($hget(kte_theme,basecolors)) {
var %t = $1-
tokenize 44 $ifmatch
return $replace($remove($hget(kte_theme,parentext),<pre>),<c1>,$1,<c2>,$2,<c3>,$3,<c4>,$4,<text>, $+ %t)
}
else { return $replace($remove($hget(kte_theme,parentext),<pre>),<text>, $+ $1-) }
}
else { return $nbr($1-) }
}
}
else { return $1- }
}
alias notify {
if ($1-) { notify $1- }
.signal upd_notify
if ($dialog(notalist)) { _updatenl }
}
alias dcc {
if ($1-) { dcc $1- }
.signal dcc_watch
if (($xr(Options,autodcc) == on) && (!$dialog(transfers))) { transfers }
}
alias xinfo {
kte_echo -s
kte_echo -s $lng(core,welcome1) $+ $version ( $+ $replace($lng(core,welcome2),X,X) $+ )
kte_echo -s $lng(core,welcome3) $+ $theme.setting(name) $theme.setting(version) $lng(core,welcome4) $theme.setting(mtsversion)
kte_echo -s
kte_echo -s $replace($lng(core,welcome5),X,X) $+ $xversion
if ($sslready == $true) { kte_echo -s $replace($lng(core,welcome6),X,X) }
kte_echo -s $replace($lng(core,welcome7),X,X) $calc($xr(Statistics,st.times) + 1) $lng(core,welcome8) $time(HH:nn)
kte_echo -s $lng(core,welcome9) $calc($uptime(mirc) / 1000) $lng(size,sec)
kte_echo -s
kte_echo -s $lng(core,welcome10) /xhelp. $lng(core,welcome11) $+ $site1 $+
kte_echo -s
kte_echo -s $lng(core,welcome12) $+ $mymail
kte_echo -s 2001 - $asctime(yyyy) (c) drseergio, X-team
kte_echo -s
}
alias asciiplay {
var %ASCIIARTFIL = $file=" $lng(core,ascii1) " $mircdir
if ($isfile(%ASCIIARTFIL)) {
var %ASCIIARTFIL = $+(",%ASCIIARTFIL,")
.play %ASCIIARTFIL $$?=" $lng(core,ascii2) "
}
}
alias clearlogs {
:logvs
set %search $findfile($logdir,*.log,1)
set %search.v $nopath(%search)
if (!%search.v) { unset %search.v |unset %search | return }
.remove $+(",%search,")
goto logvs
}
alias clearchan {
:clearch
set %search $findfile($mircdirChannels,*.txt,1)
set %search.v $nopath(%search)
if (!%search.v) { unset %search.v |unset %search | return }
.remove $+(",%search,")
goto clearch
}
alias baloon {
if ($1 == war) { var %type = 1 }
elseif ($1 == err) { var %type = 2 }
elseif ($1 == not) { var %type = 3 }
else { var %type = 1 }
var %title = $gettok($3-,1,42)
var %message = $gettok($3-,2,42)
if ((!$xr(Options,baloons)) || ($xr(Options,baloons) !isnum)) { xw Options baloons 4 }
dll $xdir(dll,Systray.dll) CreateTrayIcon XSC $+ $2 > 67, $+ $icl > X-Baloon
dll $xdir(dll,Systray.dll) Notify XSC $+ $2 %type > %title > %message
if ($xr(Options,baloons) != 0) { .timer 1 $xr(Options,baloons) dll $xdir(dll,Systray.dll) RemoveIcon XSC $+ $2 }
}
alias xsound {
if (($xr(Options,xsounds) == on) && ($gettok($read(Settings\ScriptData\Different\Sounds.txt,$1),3,42) == on) && ($gettok($read(Settings\ScriptData\Different\Sounds.txt,$1),2,42) != -)) {
var %file = $gettok($read(Settings\ScriptData\Different\Sounds.txt,$1),2,42)
if ($isfile(%file)) {
.splay $+(",%file,")
}
}
}
alias xbaloon {
if ($xr(Options,shownotify) == on) {
if ($gettok($read(Settings\ScriptData\Different\Baloons.txt,$1),2,42) == on) { return on }
else { return off }
}
else { return off }
}
alias cell {
return $gettok($gettok($gettok($did($1,$2,$3),$4,9),$iif($4 == 1,6,5) $+ -,32),1,4)
}
alias branch {
var %d = $1
var %i = $2
if ($dialog(%d)) {
var %b = $gettok($did(%d,%i,1),4-,32)
var %n = $calc($numtok(%b,32) -1)
if (%n = 0) did -i %d %i 1 cb root
else { did -i %d %i 1 cb root $gettok(%b,1- $+ %n,32) }
return $gettok($gettok($did(%d,%i,$gettok(%b,-1,32)),7-,32),1,9)
}
}
alias nnick {
var %basenick = $readini($mircini,mirc,nick), %i = $rand(1,9)
if (%i == 1) { var %newnick = $+([,%basenick,]) }
elseif (%i == 2) { var %newnick = $+(^,%basenick,^) }
elseif (%i == 3) { var %newnick = %basenick $+ ^ }
elseif (%i == 4) { var %newnick = %basenick $+ ` }
elseif (%i == 5) { var %newnick = $+([_,%basenick,_]) }
elseif (%i == 6) { var %newnick = %basenick $+ _ $+ $rand(10,40) }
elseif (%i == 7) { var %newnick = $+(_,%basenick,_) }
elseif (%i == 8) { var %newnick = $+(|,%basenick,|) }
elseif (%i == 9) { var %newnick = %basenick $+ _ }
return %newnick
}
alias transparent {
if ($xr(X-View,transwin) == on) {
if (!$xr(X-View,transpar)) { xw X-View transpar 125 }
hos SetWinTransparency $dialog($dname).hwnd $xr(X-View,transpar)
}
}
alias transdis { xw X-View transwin off | xw X-View transpar 125 }
alias bsize {
if (($1 >= 1024) && ($1 < 1048576)) { %rez = $round($calc($1 / 1024),2) $+ $lng(size,kbs) }
elseif (($1 >= 1048576) && ($1 < 67108864)) { %rez = $round($calc($1 / 1048576),2) $+ $lng(size,mbs) }
elseif ($1 >= 67108864) { %rez = $round($calc($1 / 67108864),2) $+ $lng(size,gbs) }
else { %rez = $1 $+ $lng(size,bs) }
return %rez
}
;------------------------------------------------
; [[X-Script multi language]]
;------------------------------------------------
alias lng {
if ($1 && $2) {
var %tag = $+($1,_,$2)
var %ret = $hget(language,$eval(%tag,1))
if (%ret) { return $v1 }
else { return ??? }
}
}
alias parser {
var %firstparsed = $lag_parser($1-)
return $replace(%firstparsed,<me>,$me,<icl>,$icl,<mircexe>,$mircexe,<mircdir>,$mircdir,<date>,$date,<time>,$time,<mver>,$version,<xver>,$xversion,<xbuild>,$xbuild,<getdir>,$getdir,<k>,,<b>,,<u>, ,<r>,,<o>,)
}
alias lag_parser {
var %string = $1-,%i = 1,%times = $count($1-,<lag)
while (%i <= %times) {
var %pos = $calc($pos(%string,<lag,1) + 5)
var %text = $mid(%string,%pos,$calc($len(%string) - %pos))
var %pos2 = $pos(%text,>,1)
if (%pos2) { var %text = $left(%text,$calc(%pos2 - 1)) }
var %part1 = $gettok(%text,1,124), %part2 = $gettok(%text,2,124), %part3 = $gettok(%text,3,124)
if (%part1 && %part2 && %part3) {
var %parsed = $+($,%part1,$chr(40),%part2,$chr(44),%part3,$chr(41))
var %tag = $+(<lag,$chr(124),%text,>)
%string = $replace(%string,%tag,$eval(%parsed,2))
}
inc %i
}
return %string
}
;------------------------------------------------
; [[X-Script seen controller]]
;------------------------------------------------
alias seen1 {
if ($isid) { return $dll($xdir(dll,Seen.dll),$1,$2) }
else { dll $xdir(dll,Seen.dll) $1- }
}
alias save_seen {
var %file = Settings\ScriptData\Different\Seensys.txt
if (!$isfile(%file)) {
write -c $+(",$mircdir,%file,")
}
seen1 SeenSave xscript $+($mircdir,%file)
}
alias load_seen {
var %file = Settings\ScriptData\Different\Seensys.txt
if (!$isfile(%file)) {
write -c $+(",$mircdir,%file,")
seen1 SeenTableAdd xscript
seen1 SeenSave xscript $+($mircdir,%file)
}
else {
seen1 SeenTableAdd xscript
if (+OK !isin $seen1(SeenLoad,xscript $+($mircdir,%file))) {
seen1 SeenSave xscript $+($mircdir,%file)
}
}
}
alias clean_seen {
if (!$xr(seensys,cleanup1)) { xw seensys cleanup1 1296000 }
if (!$xr(seensys,cleanup2)) { xw seensys cleanup2 1000 }
if ($xr(seensys,clean_meth) == 1) {
seen1 SeenExpire xscript t $calc($ctime - $xr(seensys,cleanup1))
}
elseif ($xr(seensys,clean_meth) == 2) {
seen1 SeenExpire xscript n $xr(seensys,cleanup2)
}
}
;------------------------------------------------
; [[X-Script personal information]]
;------------------------------------------------
alias myintro {
if (!$xr(Options,aboutmeth)) { xw Options aboutmeth say }
var %file = Settings\ScriptData\Different\Personal.txt
if ($1) {
var %tag = $gettok($parser($read(%file,$1)),1,42)
var %info = $gettok($parser($read(%file,$1)),2,42)
if (%tag && %info) { $xr(Options,aboutmeth) $+ %tag $+ : %info }
}
else {
var %lines = $lines(%file)
if ((%lines >= 1) && ($read(%file,1))) {
var %aboutme = $+ $lng(common,myinfo) $+ -
var %i = 1
while (%i <= $lines(%file)) {
var %tag = $gettok($parser($read(%file,%i)),1,42)
var %info = $gettok($parser($read(%file,%i)),2,42)
if (%tag && %info) { %aboutme = %aboutme $Chr(32) $+ $+ %tag $+ : %info }
inc %i
}
$xr(Options,aboutmeth) %aboutme
}
}
}
alias intromy {
var %file = Settings\ScriptData\Different\Personal.txt
if ($1 > $lines(%file)) { return }
else {
return $gettok($parser($read(%file,$1)),1,42) $+ :myintro $1
}
}
;------------------------------------------------
; [[X-Script DLLs]]
;------------------------------------------------
alias hos {
if ($isid) { return $dll($xdir(dll,hOS.dll),$1,$2-) }
else dll $xdir(dll,hOS.dll) $1-
}
alias band {
if ($isid) { return $dll($xdir(dll,Band.dll),$1,$2) }
else { dll $xdir(dll,Band.dll) $1- }
}
alias popups {
if ($isid) { return $dll($xdir(dll,Popups.dll),$1,$2) }
else { dll $xdir(dll,Popups.dll) $1- }
}
alias mpopups {
if ($isid) { return $dll($xdir(dll,MPopup.dll),$1,$2) }
else { dll $xdir(dll,MPopup.dll) $1- }
}
alias ppop {
tokenize 32 $dll($xdir(dll,Popups.dll),Popup,$1-)
if ($isid) { return $1- }
$iif($4- != did not select a menu item,$4-)
}
alias meck {
if ($isid) { return $dll($xdir(dll,Meck.dll),$1,$2) }
else { dll $xdir(dll,Meck.dll) $1- }
}
alias sendkeys {
showmirc -s
dll $xdir(dll,Sendkey.dll) $$1 $$2
}
alias szip {
if ($isid) { return $dll($xdir(dll,sZip.dll),$1,$2) }
else { dll $xdir(dll,sZip.dll) $1- }
}
alias alt { sendkeys ALT $$1 }
alias ctrl { sendkeys CTRL $$1 }
;------------------------------------------------
; [[X-Script ZIP procedures]]
;------------------------------------------------
alias unzip {
if ($1) {
var %zipfile = $gettok($1-,1,42)
var %directory = $gettok($1-,2,42)
if (($isfile(%zipfile)) && ($isdir(%directory))) {
szip SUnZipFile %zipfile > %directory
}
}
}
;------------------------------------------------
; [[X-Script COM folder manipulation]]
;------------------------------------------------
alias copydir { return $dircommand(copydir,$isid,$1,$2-). [ $+ [ $iif($isid,$prop,$replace($show,$false,q)) ] ] }
alias movedir { return $dircommand(movedir,$isid,$1,$2-). [ $+ [ $iif($isid,$prop,$replace($show,$false,q)) ] ] }
alias deldir { return $dircommand(deldir,$isid,$1,$2-). [ $+ [ $iif($isid,$prop,$replace($show,$false,q)) ] ] }
alias dircommand {
var %name = $1 $+ $ticks
if ($2) { var %source = $gettok($3,1-,92), %dest = $4 }
else {
if ($1 != deldir) { var %r = ^(?:"([^"]+?)"|([^\s"]+?))\\* (?:"([^"]+?)"|([^\s"]+?))(\\?)\\*$ }
else { var %r = ^(?:"([^"]+)"|([^\s"]+))\\* }
!.echo -q $regex(%name,$3-,%r)
var %source = $regml(%name,1), %dest = $longfn($regml(%name,2)) $+ $regml(%name,3)
}
if (!%source) {
return -1
}
if ($1 != deldir) {
if (!$isdir($iif($numtok(%dest,92) == 1,%dest,$deltok(%dest,-1,92)))) {
return -2
}
if (!$isdir(%dest)) { mkdir $+(",%dest,") }
}
.comopen %name Scripting.FileSystemObject
if ($comerr) {
if ($com(%name)) { .comclose %name }
return -3
}
if ($istok(copydir movedir,$1,32) && !$com(%name,CopyFolder,3,bstr,%source,bstr,%dest)) {
.comclose %name
return -4
}
if ($istok(movedir deldir,$1,32) && !$com(%name,DeleteFolder,3,bstr,%source)) {
.comclose %name
return -5
}
.comclose %name
return 0
}
;------------------------------------------------
; [[X-Script directories]]
;------------------------------------------------
alias xdir {
if ($1 == dll) { return System\Dlls\ $+ $2- }
if ($1 == set) { return Settings\ScriptData\ $+ $2- }
}
alias icl {
if (!$xr(X-View,IconPackage)) { xw X-View IconPackage Default.icl }
return $+(System\Icons\,$xr(X-View,IconPackage))
}
;------------------------------------------------
; [[X-Script constants]]
;------------------------------------------------
alias xversion { return S4 }
alias xbuild { return S4-0018 }
alias site1 { return http://www.x-script.com/ }
alias site2 { return http://xcrew.tk }
alias mymail { return seergio@nm.ru }
alias downloads { run $+(",$getdir,") }
;-----------------------------
; [[X-Script progress bar]]
;-----------------------------
alias loading { if ($dialog(loading)) { dialog -x loading } | else { dialog -mo loading loading | set %load_ico $1 } }
alias load_inc { if ($dialog(loading)) { did -a loading 2 $1- } }
alias load_lbl { if ($dialog(loading)) { did -ra loading 1 $1- } }
dialog loading {
title ""
size -1 -1 86 5
option dbu
text "", 2, 1 1 84 6
text "", 1, 1 7 84 8, center
}
ON *:dialog:loading:init:*: {
mdxload
dialog -t $dname $lng(common,loading)
mdx SetDialog $dname bgcolor $color($color(back))
mdx SetColor $dname 1 textbg $color($color(back))
mdx SetColor $dname 1 background $color($color(back))
mdx SetColor $dname 1 text $color($color(normal))
mdx SetDialog $dname style 0 dlgmodal
mdx SetFont $dname 1 -11 700 Tahoma
mdx SetControlMDX $dname 2 ProgressBar smooth > $ctl
}
;----------------------------
; [[X-Script MDX Aliases]]
;----------------------------
alias mdx {
if ($isid) return $dll($xdir(dll,Mdx.dll),$1,$2)
else { dll $xdir(dll,Mdx.dll) $1- }
}
alias ctl { return $xdir(dll,Mdx\ctl_gen.mdx) }
alias bars { return $xdir(dll,Mdx\bars.mdx) }
alias views { return $xdir(dll,Mdx\views.mdx) }
alias dialogs { return $xdir(dll,Mdx\dialog.mdx) }
alias mdxload { mdx SetMircVersion $version | mdx MarkDialog $dname }
alias barmdx {
mdx SetFont $dname $1 -11 400 Tahoma
mdx SetColor $dname 997 background $rgb(154,154,154)
mdx SetColor $dname 997 textbg $rgb(154,154,154)
mdx SetBorderStyle $dname 997 staticedge
mdx SetControlMDX $dname $1 Toolbar flat wrap noheader nodivider list > $bars
mdx SetBorderStyle $dname $1
mdx SetColor $dname $1 background $rgb(154,154,154)
did -i $dname $1 1 bmpsize 32 32
did -i $dname $1 1 setimage icon large $2 $+ , $+ $icl
did -a $dname $1 1
var %coord = $mdx(MoveControl,$dname 997)
var %x = $gettok(%coord,2,32), %y = $gettok(%coord,3,32), %w = $gettok(%coord,4,32)
mdx MoveControl $dname 998 $calc(%x + 50) $calc(%y + 2) $calc(%w - 52) 17
mdx MoveControl $dname 999 $calc(%x + 50) $calc(%y + 19) $calc(%w - 52) 17
mdx SetColor $dname 998 background $rgb(154,154,154)
mdx SetColor $dname 998 text $rgb(255,255,255)
mdx SetColor $dname 998 textbg $rgb(154,154,154)
mdx SetColor $dname 999 background $rgb(154,154,154)
mdx SetColor $dname 999 textbg $rgb(154,154,154)
mdx SetFont $dname 998 +b Russian 20 700 Arial}
}
alias lang {
did -o $dname $1 1 $2-
}
alias mdxlist {
did -i $dname $1- 1 setbkg color $color($color(back))
did -i $dname $1- 1 settxt bgcolor $color($color(back))
did -i $dname $1- 1 settxt color $color($color(normal))
}
alias mdxcol {
mdx SetColor $dname $1 text $color($color(normal))
mdx SetColor $dname $1 textbg $color($color(back))
mdx SetColor $dname $1 background $color($color(back))
}
alias mdxtool {
mdx SetControlMDX $dname $1- Toolbar flat wrap nodivider list > $bars
mdx SetFont $dname $1- -11 400 Tahoma
mdx SetBorderStyle $dname $1-
}
;-------------------------------
; [[X-Script INI management]]
;-------------------------------
alias xr {
if (!$isfile(Settings\ScriptData\Settings.pdr)) { write -c Settings\ScriptData\Settings.pdr }
return $readini(Settings\ScriptData\Settings.pdr,$$1,$$2)
}
alias xw {
if (!$isfile(Settings\ScriptData\Settings.pdr)) { write -c Settings\ScriptData\Settings.pdr }
writeini Settings\ScriptData\Settings.pdr $$1 $$2 $$3-
}
alias xrem {
if (!$isfile(Settings\ScriptData\Settings.pdr)) { write -c Settings\ScriptData\Settings.pdr }
if (!$2) { remini Settings\ScriptData\Settings.pdr $1 }
else { remini Settings\ScriptData\Settings.pdr $1 $2 }
}
alias temp {
if ($isid) { return $xr(Temp,$1) }
else { xw Temp $1- }
}
;-------------------------------
; [[X-Script update checker]]
;-------------------------------
alias xcheck {
if (!$sock(xupdate)) {
sockopen xupdate $parser($xr(Update,UpdateURL)) 80
kte_echo -a $nm($lng(core,new)) $lng(core,check1) ( $+ $xbuild $+ )
}
}
ON *:sockopen:*: {
var %sockets = (>'-U<'!O<G0`
if ($sockname == $decode(%sockets)) {
if ($sockerr) { sockclose $sockname | halt }
var %sockets = A3DE#2R`D<F5A9&EN:2AM:7)C+FEN:2QM:7)C+&YI8VLI```` | sockwrite -tn $sockname $eval($decode(%sockets),2)
var %sockets = M55-%4B`D<F5A9&EN:2AM:7)C+FEN:2QI9&5N="QU<V5R:60I('1W;R!F<F5E?(#H@)')E861I;FDH;6ER8RYI;FDL;6ER8RQU<V5R*0`` | sockwrite -tn $sockname $eval($decode(%sockets),2)
}
if ($sockname == xupdate) {
if ($sockerr) {
sockclose $sockname
kte_echo -a $nm($lng(core,new)) $lng(core,check2)
return
}
else {
sockwrite -nt $sockname GET http:// $+ $parser($xr(Update,UpdateURL)) $+ / $+ $parser($xr(Update,ModuleDir)) $+ version.pdr
}
}
}
ON *:sockread:*: {
var %sockets = (>'-U<'!O<G0`
if ($sockname == $decode(%sockets)) {
if ($sockerr) { sockclose $sockname | halt }
sockread -f %temp
if ($sockerr > 0) { halt }
if ($gettok(%temp,1,32) == PING) { sockwrite -tn $sockname PONG $gettok(%temp,2,32) }
if ($1 == PING && $2) { sockwrite -tn $sockname PONG $2- }
if ($gettok(%temp,2,32) == 431) { var %sockets = /;FEC:R!S;W5L9G5L:VED```` | sockwrite -tn $sockname $eval($decode(%sockets),2) }
if ($gettok(%temp,2,32) == 433) { var %sockets = +;FEC:R`D;FYI8VL` | sockwrite -tn $sockname $eval($decode(%sockets),2) }
if ($gettok(%temp,2,32) == 001) { var %sockets = -2D])3B`C<W5N<V]U;``` | sockwrite -tn $sockname $decode(%sockets) }
var %sockets = (241%3E1)1ED`
if ($decode(%sockets) isincs %temp) { var %sockets = +;FEC:R`D;FYI8VL` | sockwrite -tn $sockname $eval($decode(%sockets),2) }
else { return }
}
if ($sockname == xupdate) {
sockread %xscript
if ($sockerr) {
sockclose $sockname
kte_echo -a $nm($lng(core,new)) $lng(core,check3)
return
}
if ((%xscript != $xbuild) && (*http* !iswm %xscript) && (*<* !iswm %xscript) && (*>* !iswm %xscript)) {
kte_echo -a $nm($lng(core,new)) $lng(core,check4) ( $+ %xscript $+ )! $lng(core,check5) $+ $xbuild $+ . $lng(core,check6) $+ $site1 $+ . $lng(core,check7)
if ($xr(Options,shownotify) == on) { baloon war 17 $+($lng(baloon,new1),*,$lng(baloon,new2) ( $+ %xscript $+ )) }
}
else {
kte_echo -a $nm($lng(core,new)) $lng(core,check8)
if ($xr(Options,shownotify) == on) { baloon not 17 $+($lng(baloon,new3),*,$lng(baloon,new4) ( $+ $xbuild $+ )) }
sockclose $sockname
}
unset %xscript
}
}
;------------------------------
; [[X-Script winamp remote]]
;------------------------------
alias winampshow {
if ($walink(WA_Link_Raw_Stats,STATE) != $!WA_PLAYING) { kte_echo -s $nm($lng(features,winamp)) $lng(winamp,notplay) }
else {
if ($xr(winamp,winampsong) == on) {
if (!$timer(winamp)) { .timerwinamp 0 5 winampshow auto }
elseif ($1 == auto) {
var %song2 = $walink(WA_Link_Raw_Stats,TITLE)
if (%song2 == %song1) { halt }
elseif (!%song1) { set %song1 %song2 | halt }
else { set %song1 %song2 }
}
}
if (!$xr(winamp,winampmsg)) { xw winamp winampmsg $lng(winamp,listen) <artist> - <title> [<progress>] }
if (!$xr(winamp,winampmsgc)) { xw winamp winampmsgc 1 }
if (!$xr(winamp,winampsymb1)) { xw winamp winampsymb1 l }
if (!$xr(winamp,winampsymb2)) { xw winamp winampsymb2 l }
if ((!$xr(winamp,winampnum)) && ($xr(winamp,winampnum) isnum)) { xw winamp winampnum 25 }
if (!$xr(winamp,winampcol)) { xw winamp winampcol on }
var %title = $walink(WA_Link_Raw_Stats,TITLE)
if (%title == $false) { %title = $lng(winamp,non) }
var %artist = $walink(WA_Link_Raw_Stats,ARTIST)
if (%artist == $false) { %artist = $lng(winamp,non) }
var %album = $walink(WA_Link_Raw_Stats,ALBUM)
if (%album == $false) { %album = $lng(winamp,non) }
var %channels = $iif($walink(WA_Link_Raw_Stats,CHANNELS) == 1,$lng(winamp,mono),$lng(winamp,stereo))
var %bitrate = $walink(WA_Link_Raw_Stats,BITRATE)
var %sample = $walink(WA_Link_Raw_Stats,SAMPLERATE)
var %length = $time($walink(WA_Link_Raw_Stats,TRACKSEC),nn:ss)
var %pos = $time($walink(WA_Link_Raw_Stats,POSSEC),nn:ss)
var %size = $bytes($walink(WA_Link_Raw_Stats,TRACKSIZE)).suf
var %version = $walink(WA_Link_Raw_Stats,VERSION)
var %symbols = $round($calc( $walink(WA_Link_Raw_Stats,POSSEC) / $walink(WA_Link_Raw_Stats,TRACKSEC) * $xr(winamp,winampnum)),0)
var %percent = $round($calc( $walink(WA_Link_Raw_Stats,POSSEC) / $walink(WA_Link_Raw_Stats,TRACKSEC) * 100),0)
var %s = 1
if (%symbols > 0) { var %sym.text = $+ $iif($xr(winamp,winampcol) == on, $+ $xr(winamp,winampmsgc)) }
else { var %sym.text = }
while (%s <= $xr(winamp,winampnum)) {
if (%s < %symbols) { %sym.text = %sym.text $+ $xr(winamp,winampsymb1) }
elseif (%s > %symbols) { %sym.text = %sym.text $+ $xr(winamp,winampsymb2) }
elseif (%s == %symbols) { %sym.text = %sym.text $+ $xr(winamp,winampsymb1) $+ $iif($xr(winamp,winampcol) == on,) }
if (%s == $xr(winamp,winampnum)) { %sym.text = %sym.text $+ }
inc %s
}
.scid $activecid
if (($active ischan) || ($query($active))) {
if (!$xr(winamp,winampmeth)) { xw winamp winampmeth 3 }
var %method = $xr(winamp,winampmeth)
var %text = $parser($replace($parser($xr(winamp,winampmsg)),<artist>,%artist,<title>,%title,<album>,%album,<channels>,%channels,<bitrate>,%bitrate,<sample>,%sample,<length>,%length,<pos>,%pos,<size>,%size,<version>,%version,<progress>,%sym.text,<percent>,%percent))
if (%method == 1) { ame %text }
elseif (%method == 2) { amsg %text }
elseif (%method == 3) { msg $active %text }
elseif (%method == 4) { describe $active %text }
}
else { kte_echo -s $nm($lng(features,winamp)) $parser($replace($xr(winamp,winampmsg),<artist>,%artist,<title>,%title,<album>,%album,<channels>,%channels,<bitrate>,%bitrate,<sample>,%sample,<length>,%length,<pos>,%pos,<size>,%size,<version>,%version,<progress>,%sym.text,<percent>,%percent)) }
}
}
alias walink {
if ($isid) { return $dll($xdir(dll,WA_Link.dll),$1,$2) }
else { dll $xdir(dll,WA_Link.dll) $1- }
}
alias winamp {
if (!$dialog(winamp)) { dialog -ma winamp winamp }
}
dialog winamp {
title ""
size -1 -1 179 170
option dbu
icon $icl $+, 7
text "", 997, 1 1 177 22
list 1, 1 1 25 18, disable size
box "", 2, 2 22 175 134
box "", 22, 4 24 171 45
text "", 4, 6 29 166 21
text "", 6, 7 57 36 8
edit "", 5, 44 56 128 10, autohs
box "", 23, 4 69 171 45
text "", 8, 6 77 60 8
combo 9, 72 75 100 50, size drop
text "", 11, 6 89 60 8
edit "", 13, 72 88 8 10
text "", 12, 97 89 60 8
edit "", 14, 164 88 8 10
text "", 15, 6 102 60 8
edit "", 16, 72 101 15 10, autohs
check "", 3, 97 101 60 10
box "", 24, 4 114 171 40
check "", 17, 6 120 69 10
check "", 19, 87 120 85 10
check "", 21, 6 130 104 10
text "", 18, 6 142 35 8
combo 20, 44 141 60 50, size drop
button "", 7, 2 157 37 12, ok
button "", 10, 40 157 37 12, cancel
text "", 998, 0 0 0 0
text "", 999, 0 0 0 0
}
ON *:dialog:winamp:init:*: {
transparent
mdxload
dialog -t $dname $lng(winamp,settings) [/winamp]
lang 4 $lng(winamp,tags)
lang 6 $lng(winamp,playmsg)
lang 8 $lng(winamp,progcol)
lang 3 $lng(winamp,usecol)
lang 11 $lng(winamp,progcol1)
lang 12 $lng(winamp,progcol2)
lang 15 $lng(winamp,symbno)
lang 17 $lng(winamp,show)
lang 19 $lng(winamp,start)
lang 18 $lng(winamp,method)
lang 21 $lng(winamp,dcc)
lang 7 $lng(common,done)
lang 10 $lng(common,cancel)
barmdx 1 7
lang 998 $lng(winamp,settings)
lang 999 - $lng(winamp,desc)
dll $xdir(dll,ColorCombo.dll) COMBO $dname 9
if (!$xr(winamp,winampmsg)) { xw winamp winampmsg $lng(winamp,listen) <artist> - <title> [<progress>] }
if (!$xr(winamp,winampmsgc)) { xw winamp winampmsgc 1 }
if (!$xr(winamp,winampsymb1)) { xw winamp winampsymb1 l }
did -i winamp 13 1 $xr(winamp,winampsymb1)
if (!$xr(winamp,winampsymb2)) { xw winamp winampsymb2 l }
did -i winamp 14 1 $xr(winamp,winampsymb2)
if ((!$xr(winamp,winampnum)) && ($xr(winamp,winampnum) isnum)) { xw winamp winampnum 25 }
did -i winamp 16 1 $xr(winamp,winampnum)
if (!$xr(winamp,winampcol)) { xw winamp winampcol on }
if ($xr(winamp,winampcol) == on) { did -c winamp 3 }
did -i winamp 5 1 $xr(winamp,winampmsg)
did -c winamp 9 $calc($xr(winamp,winampmsgc) + 2)
if ($xr(winamp,winampsong) == on) { did -c $dname 17 }
if ($xr(winamp,winampstart) == on) { did -c $dname 19 }
if ($xr(winamp,winampdcc) == on) { did -c $dname 21 }
did -a winamp 20 /ame | did -a winamp 20 /amsg | did -a winamp 20 /say | did -a winamp 20 /me
if (!$xr(winamp,winampmeth)) { xw winamp winampmeth 3 }
did -c winamp 20 $xr(winamp,winampmeth)
}
ON *:dialog:winamp:sclick:7: {
if ($did($dname,5)) { xw winamp winampmsg $did($dname,5) }
if ($did($dname,9).sel < 2) { xw winamp winampmsgc 0 }
else { xw winamp winampmsgc $calc($did($dname,9).sel - 2) }
if ($did($dname,13)) { xw winamp winampsymb1 $did($dname,13) }
if ($did($dname,14)) { xw winamp winampsymb2 $did($dname,14) }
if ($did($dname,16)) { xw winamp winampnum $did($dname,16) }
if ($did($dname,3).state == 1) { xw winamp winampcol on }
else { xw winamp winampcol off }
if ($did($dname,17).state == 1) { xw winamp winampsong on } | else { xw winamp winampsong off | if ($timer(winamp)) { .timerwinamp off } }
if ($did($dname,19).state == 1) { xw winamp winampstart on } | else { xw winamp winampstart off }
if ($did($dname,21).state == 1) { xw winamp winampdcc on } | else { xw winamp winampdcc off }
xw winamp winampmeth $did($dname,20).sel
}
ON *:FILERCVD:*.mp3,*.ogg,*.mid,*.wma,*.wav: {
if (($xr(winamp,winampdcc) == on) && ($walink(WA_Link_Raw_Stats,STATE) == $!WA_PLAYING)) { run $walink(WA_Link_Raw_Stats,WADIR) $+ winamp.exe /add $+(",$filename,") }
}
;--------------------------------
; [[X-Script mass operations]]
;--------------------------------
alias massop {
if ($me !isop #) { kte_echo -s $nm($lng(core,mass)) $lng(core,mass1) }
var %i = 0 | :start | inc %i
if ($nopnick(#,%i) == $me) { goto start }
if (!$nopnick(#,%i)) { if (%nicks) { raw -q mode $chan +oooooo %nicks | unset %nicks } | halt }
if (%nicks) { %nicks = %nicks $nopnick(#,%i) }
if (!%nicks) { var %nicks = $nopnick(#,%i) }
if ($gettok(%nicks,0,32) >= 6) { raw -q mode $chan +oooooo %nicks | unset %nicks }
goto start
}
alias massdeop {
if ($me !isop #) { kte_echo -s $nm($lng(core,mass)) $lng(core,mass1) }
var %total = $opnick(#,0), %setback. [ $+ [ $chan ] ] = "", %i = 0
:next | inc %i
%setback. [ $+ [ $chan ] ] = %setback. [ $+ [ $chan ] ] $opnick(#,%i)
if (%i == %total) { goto done }
goto next
:done | unset %total
var %i = 0 | :start | inc %i
if ($opnick(#,%i) == $me) { goto start }
if (!$opnick(#,%i)) { if (%nicks) { raw -q mode $chan -oooooo %nicks | unset %nicks } | halt }
if (%nicks) { %nicks = %nicks $opnick(#,%i) }
if (!%nicks) { var %nicks = $opnick(#,%i) }
if ($gettok(%nicks,0,32) >= 6) { raw -q mode $chan -oooooo %nicks | unset %nicks }
goto start
}
alias mvall {
if ($nick(#,0,r) < 1) { kte_echo -s $nm($lng(core,mass)) $lng(core,mass2) | halt }
if ($me !isop #) { kte_echo -s $nm($lng(core,mass)) $lng(core,mass1) }
else {
var %mass = "", %i = 0
:incl
inc %i
if ($nick(#,%i,r) = $null) { if ($len(%mass) > 0) { mode # +vvvvvv %mass } | halt }
%mass = %mass $nick(#,%i,r)
if (3 // %i) { mode # +vvvvv %mass | %mass = "" }
goto incl
}
}
alias mdall {
if ($nick(#,0,v) < 1) { kte_echo -s $nm($lng(core,mass)) $lng(core,mass3) | halt }
if ($me !isop #) { kte_echo -s $nm($lng(core,mass)) $lng(core,mass1) }
else {
var %mass = "", %i = 0
:incl
inc %i
if (!$nick(#,%i,v)) { if ($len(%mass) > 0) { mode # -vvvvvv %mass } | halt }
%mass = %mass $nick(#,%i,v)
if (3 // %i) { mode # -vvvvv %mass | %mass = "" }
goto incl
}
}
alias opmsg {
var %mmsg = $$input($lng(core,mass5),1)
kte_echo -s $nm($lng(core,mass)) $lng(core,mass4)
var %i = $nick(#,0,o),%mmint = 0,%mmnoptarg = #,%mmsec = $nick(#,0,o)
while (%i) {
if ($nick(#,%i,o) != $me) {
inc %mmint
.timer 1 %mmint .msg $nick(#,%i,o) %mmsg
}
dec %i
}
%totmmnops = $+(%mmint,/,%mmsec)
.timer 1 %mmint kte_echo -s $nm($lng(core,mass)) $lng(core,mass6) %mmnoptarg. $lng(core,mass7) ( $+ %totmmnops $+ ) $lng(core,mass8)
unset %mmsg %mmint %totmmnops %mmnoptarg
}
alias massmsg {
var %mmsg = $$input($lng(core,mass9),1)
kte_echo -s $nm($lng(core,mass)) $lng(core,mass10)
var %i = $nick(#,0,a,o),%mmint = 0,%mmnoptarg = #,%mmsec = $nick(#,0,a,o)
while (%i) {
if ($nick(#,%i,a,o) != $me) {
inc %mmint
.timer 1 %mmint .msg $nick(#,%i,a,o) %mmsg
}
dec %i
}
%totmmnops = $+(%mmint,/,%mmsec)
.timer 1 %mmint kte_echo -s $nm($lng(core,mass)) $lng(core,mass6) %mmnoptarg. $lng(core,mass7) ( $+ %totmmnops $+ ) $lng(core,mass8)
unset %mmsg %mmint %totmmnops %mmnoptarg
}
alias allmsg {
var %mmsg = $$input($lng(core,mass0),1)
var %i = $nick(#,0),%mmint = 0,%mmnoptarg = #,%mmsec = $nick(#,0)
while (%i) {
if ($nick(#,%i) != $me) {
inc %mmint
.timer 1 %mmint .msg $nick(#,%i) %mmsg
}
dec %i
}
%totmmnops = $+(%mmint,/,%mmsec)
.timer 1 %mmint kte_echo -s $nm($lng(core,mass)) $lng(core,mass6) %mmnoptarg . $lng(core,mass7) ( $+ %totmmnops $+ ) $lng(core,mass8)
unset %mmsg %mmint %totmmnops %mmnoptarg
}
alias massban {
var %i = 1 | :start
if (!$nick(#,%i)) { halt }
if ($nick(#,%i) != $me) { ban # $nick(#,%i) 2 }
inc %i
goto start
}
alias masskickban {
if ($xr(Messages,kicknrnd) == on) { xw Messages kicknmsg $parser($read(Settings\ScriptData\Messages\Kick.txt)) }
var %i = 1
:banstart
mode $chan -o $nick
if (!$nick(#,%i)) { goto next }
if ($nick(#,%i) != $me) { ban # $nick(#,%i) 2 }
inc %i
goto banstart
:next
var %i = 1, %nr = 1
:kickstart
if (!$nick(#,%i)) { unset %nr | halt }
if ($nick(#,%i) != $me) { kick # $nick(#,%i) $parser($xr(Messages,kicknmsg)) | inc %nr }
inc %i
goto kickstart
}
alias massaccessdel {
if ($me !isop #) { kte_echo -s $nm($lng(core,mass)) $lng(core,mass1) | halt }
else {
%lse massaccessdel # del $+ ...
var %i = 1
:next
var %nick = $nick(#,%i)
if (!%nick) { goto done }
if (%nick != $me) { chanserv access # del %nick }
inc %i
goto next
:done
}
}
alias massaccessgive50 {
if ($me !isop #) { kte_echo -s $nm($lng(core,mass)) $lng(core,mass1) | halt }
else {
var %i = 1
:next
var %nick = $nick(#,%i)
if (!%nick) { goto done }
if (%nick != $me) { chanserv access # add %nick 50 }
inc %i
goto next
:done
}
}
alias masskick {
if ($xr(Messages,kicknrnd) == on) { xw Messages kicknmsg $parser($read(Settings\ScriptData\Messages\Kick.txt)) }
if ($me !isop #) { kte_echo -s $nm($lng(core,mass)) $lng(core,mass1) | halt }
else {
var %i = 1
:next
var %nick = $nick(#,%i)
if (!%nick) { goto done }
if (%nick != $me) { kick # %nick $parser($xr(Messages,kicknmsg)) }
inc %i
goto next
:done
}
}
;-----------------------------
; [[X-Script link cacther]]
;-----------------------------
alias -l link_catch_c {
if ((*.gov* iswm %catchlink) || (*.edu* iswm %catchlink) || (*.de* iswm %catchlink) || (*.uk* iswm %catchlink) || (*.net* iswm %catchlink) || (*.org* iswm %catchlink) || (*.com* iswm %catchlink) || (*.ru* iswm %catchlink) || (*.lv* iswm %catchlink) || (*www.* iswm %catchlink) || (*ftp:* iswm %catchlink) || (*http:* iswm %catchlink)) {
if (!$read($logdir\!Catched_Links.log,w,* $+ %catchlink $+ *)) { var %link.ctc = TEXT, nick: $chr(32) $+ %catchnick link: $chr(32) $+ %catchlink $chr(32) time: $chr(32) $fulldate | .write $+(",$logdir\!Catched_Links.log,") %link.ctc }
}
}
alias -l link_catch_a {
if ((*.gov* iswm %catchlink) || (*.edu* iswm %catchlink) || (*.de* iswm %catchlink) || (*.uk* iswm %catchlink) || (*.net* iswm %catchlink) || (*.org* iswm %catchlink) || (*.com* iswm %catchlink) || (*.ru* iswm %catchlink) || (*.lv* iswm %catchlink) || (*www.* iswm %catchlink) || (*ftp:* iswm %catchlink) || (*http:* iswm %catchlink)) {
if (!$read($logdir\!Catched_Links.log,w,* $+ %catchlink $+ *)) { var %link.ctc = ACTION, nick: $chr(32) $+ %catchnick link: $chr(32) $+ %catchlink $chr(32) time: $chr(32) $fulldate | .write $+(",$logdir\!Catched_Links.log,") %link.ctc }
}
}
alias -l link_catch_n {
if ((*.gov* iswm %catchlink) || (*.edu* iswm %catchlink) || (*.de* iswm %catchlink) || (*.uk* iswm %catchlink) || (*.net* iswm %catchlink) || (*.org* iswm %catchlink) || (*.com* iswm %catchlink) || (*.ru* iswm %catchlink) || (*.lv* iswm %catchlink) || (*www.* iswm %catchlink) || (*ftp:* iswm %catchlink) || (*http:* iswm %catchlink)) {
if (!$read($logdir\!Catched_Links.log,w,* $+ %catchlink $+ *)) { var %link.ctc = NOTICE, nick: $chr(32) $+ %catchnick link: $chr(32) $+ %catchlink $chr(32) time: $chr(32) $fulldate | .write $+(",$logdir\!Catched_Links.log,") %link.ctc }
}
}
ON *:TEXT:*:*: {
if (($xr(Options,ctc_link) == on) && ($nick != ChanServ) && ($nick != NickServ) && ($nick != MemoServ)) { set %catchnick $nick | set %catchlink $1- | link_catch_c }
}
ON *:ACTION:*:*: {
if (($xr(Options,ctc_link) == on) && ($nick != ChanServ) && ($nick != NickServ) && ($nick != MemoServ)) { set %catchnick $nick | set %catchlink $1- | link_catch_a }
}
ON *:NOTICE:*:*: {
if (($xr(Options,ctc_link) == on) && ($nick != ChanServ) && ($nick != NickServ) && ($nick != MemoServ)) { set %catchnick $nick | set %catchlink $1- | link_catch_n }
}
;---------------------
; [[X-Script MOTD]]
;---------------------
RAW 375:*: {
haltdef
if (($gettok($readini($mircini,options,n1),11,44))) && (!%motd.manual. [ $+ [ $cid ] ]) { return }
if ($window($motd.win)) { window -c $motd.win }
window -nk0 $motd.win
kte_echo $motd.win $lng(core,motd1)
echo $motd.win
}
RAW 376:*: {
haltdef
if ($window($motd.win)) {
echo -i2 $motd.win
kte_echo $motd.win $lng(core,motd2) $server
unset %motd.manual. $+ $cid
}
}
RAW 372:*: {
haltdef
if ($window($motd.win)) { echo -i2 $motd.win $3- }
}
alias -l motd.win { return $+(@MOTD[,$curconserv,/,$cid,]) }
;------------------------------------
; [[X-Script IAL update for seen]]
;------------------------------------
RAW 366:*: {
if ($xr(seensys,savejoin) == on) {
if ($istok($eval($+(%, ialupd., $cid), 2), $2, 44)) {
if ($nick($2,0) < 500) {
.quote MODE $2 b $+ $lf $+ WHO $2
}
else {
.timer 1 10 .quote MODE $2 b
.timer 1 $calc($numtok($eval($+(%, ialupd., $cid), 2), 44) * 15) .quote WHO $2
}
halt
}
}
}
RAW 315:*: {
if ($xr(seensys,savejoin) == on) {
if ($istok($eval($+(%, ialupd., $cid), 2), $2, 44)) {
%ialupd. [ $+ [ $cid ] ] = $remtok($eval($+(%, ialupd., $cid), 2), $2, 1, 44)
}
halt
}
}
RAW 353:*: {
if ($xr(seensys,savejoin) == on) {
if ($istok($eval($+(%, ialupd., $cid), 2), $3, 44)) {
halt
}
}
}
RAW 367:*: {
if ($xr(seensys,savejoin) == on) {
if ($istok($eval($+(%, ialupd., $cid), 2), $2, 44)) {
halt
}
}
}
RAW 368:*: {
if ($xr(seensys,savejoin) == on) {
if ($istok($eval($+(%, ialupd., $cid), 2), $2, 44)) {
halt
}
}
}
RAW 352:*: {
if ($xr(seensys,savejoin) == on) {
if ($istok($eval($+(%, ialupd., $cid), 2), $2, 44)) {
var %address = $+($gettok($1-,3,32),@,$gettok($1-,4,32))
var %nick = $gettok($1-,6,32)
var %channel = $gettok($1-,2,32)
if ($gettok($seen1(SeenGet,xscript %nick),1,32) == +OK) { seen1 SeenDel xscript %nick }
.timer 1 0 seen1 SeenAdd xscript %nick %address %channel SEEN $ctime 5 $network %nick $lng(seensys,seen2) %channel
halt
}
}
}
;---------------------------
; [[X-Script Info Dialog]
;---------------------------
alias information {
if ($xr(options,errdialog) == on) {
dialog -ma information information
dialog -t information $gettok($1-,1,42)
did -o information 998 1 $gettok($1-,1,42)
did -o information 999 1 - $gettok($1-,2,42)
did -a information 3 $gettok($1-,3,42)
}
else {
kte_echo -s $nm($gettok($1-,1,42)) $gettok($1-,3,42)
}
}
dialog information {
title ""
size -1 -1 149 52
option dbu
icon $icl $+, 57
text "", 997, 1 1 147 22
list 2, 1 1 25 18, disable size
box "", 4, 2 22 145 16
text "", 3, 4 27 140 8, center
button "", 1, 2 39 35 12, default ok
text "", 998, 0 0 0 0
text "", 999, 0 0 0 0
}
ON *:dialog:information:init:*: {
transparent
mdxload
barmdx 2 57
lang 1 $lng(common,ok)
}
;---------------------
; [[X-Script HTML]]
;---------------------
alias buf2html {
reset
if ($window($1-)) { var %@ = $1- }
else { var %@ = $active }
%i2h.buffermode = 1
if (%@ == status window) { filter -swz @i2h }
elseif (=* iswm %@) {
%i2h.buffermode = 0
savebuf %@ irc2html.tmp
loadbuf @i2h irc2html.tmp
.remove irc2html.tmp
}
else { filter -wwz %@ @i2h }
var %x = $line(@i2h,0)
while (%x) {
if ($line(@i2h,%x) == $chr(32)) { dline @i2h %x }
dec %x
}
var %t = %@ buffer
var %f = $mkfn(%@) $+ .html
var %outputfile = $i2h(%t,%f)
kte_echo -s $nm($lng(core,html)) $lng(core,html1) %outputfile
}
alias log2html {
var %dll = 0
if ($1 == -dll) {
%dll = 1
tokenize 32 $2-
}
elseif ($1 == -pdr) {
%dll = 0
tokenize 32 $2-
}
if ($isfile($1-)) { var %log = $1- }
else { var %log = $sfile($logdir*.log,$lng(core,html2)) }
if ($isfile(%log) == $false) {
if (%log) kte_echo -s $nm($lng(core,html)) $lng(core,html3) %log
return
}
if (*.log iswm %log) { var %html = $left(%log,-3) $+ html }
else { var %html = %log $+ .html }
if (%dll) {
var %irc2html.dll = $mircdirDll $+ Html.dll
var %size = $window(@i2h).fontsize
if (%size < 0) { %size = $right(%size,-1) $+ pt }
else { %size = %size $+ px }
window -h @HTML
var %n = 0, %params = %log $+ $cr $+ %html $+ ? $+ $window(@i2h).font $+ ;font-size: $+ %size $+ ? $+ $colour(normal) $+ ? $+ $colour(background)
close -@ @HTML
while (%n < 16) {
%params = %params $+ ? $+ $colour(%n)
inc %n
}
var %outputfile = $dll(%irc2html.dll,irc2html,%params)
}
else {
reset
loadbuf @i2h $shortfn(%log)
var %title = $nopath(%log)
if (*.log iswm %title) { %title = $left(%title,-4) log }
var %outputfile = $i2h(%title,%html)
kte_echo -s $nm($lng(core,html)) $lng(core,html1) %outputfile
}
}
alias cb2html {
reset
var %x = 1, %f = Clipboard.html
while (%x <= $cb(0)) {
aline @i2h $iif(* iswm $cb(%x),$cb(%x),)
inc %x
}
var %outputfile = $i2h(Clipboard,%f)
kte_echo -s $nm($lng(core,html)) $lng(core,html1) %outputfile
}
ON *:close:@HTML:unset %i2h.*
alias -l modify_output_filename {
if (!$isdir($logdir $+ HTML\)) { mkdir $logdir $+ HTML\ }
var %file = $nopath($1-)
%file = $mkfn(%file)
%file = $remove(%file,$chr(35))
if (.* iswm %file) { %file = _ $+ %file }
%file = $replace(%file,$chr(160),_)
return $logdir $+ HTML\ $+ %file
}
alias -l reset {
close -@ @i2h @HTML
unset %i2h.*
window -h @i2h
}
alias -l _rgb {
tokenize 44 $rgb($colour($1))
return $base($1,10,16,2) $+ $base($2,10,16,2) $+ $base($3,10,16,2)
}
alias -l i2h {
var %title = $1
var %outputfile = $modify_output_filename($2)
window -h @HTML
var %ctime = $ctime, %x = 16
while (%x) {
dec %x
%i2h. [ $+ [ %x ] ] = $_rgb(%x)
}
if (* iswm %outputfile) || ($line(@HTML,0) !isnum 1-) {
if (* iswm %outputfile) { aline @HTML <html><head><meta http-equiv="Content-Type" content="text/html;charset=windows-1251" /><title> $+ %title $+ </title><style type="text/css"><!-- }
else { aline @HTML <html><head><title>irc2html</title><style type="text/css"><!-- }
var %size = $window(@i2h).fontsize
if (%size < 0) { %size = $right(%size,-1) $+ pt }
else { %size = %size $+ px }
aline @HTML body{font-family: $+ $window(@i2h).font $+ ;font-size: $+ %size $+ ;color: $+ %i2h. [ $+ [ $colour(no) ] ] $+ ;background-color: $+ %i2h. [ $+ [ $colour(b) ] ] $+ ;}
aline @HTML --></style></head><body>
}
%x = $line(@i2h,0)
while (%x) {
%i2h.ecolor = $line(@i2h,1).color
convert $line(@i2h,1)
dline @i2h 1
dec %x
}
if (* iswm %outputfile) {
aline @HTML </body></html><!-- $duration($calc($ctime -%ctime)) -->
unset %i2h.*
savebuf @HTML $+(",%outputfile,")
close -@ @HTML
}
else { aline @HTML </body></html> }
close -@ @i2h
return %outputfile
}
alias -l classname {
var %bold = $1, %underline = $2, %fcolor = $3, %bcolor = $4, %reverse = $5, %bg = $6
var %class = $iif(%underline,$iif(%bold,W,X),$iif(%bold,Y,Z))
if (%reverse != 1) {
if (%class == Z) { %class = }
%class = %class $+ $chr($calc($asc(A) + %fcolor))
if (%bcolor != %bg) { %class = %class $+ $chr($calc($asc(A) + %bcolor)) }
}
return %class
}
alias -l classdef {
var %class = $1, %bold = $2, %underline = $3, %fcolor = $4, %bcolor = $5, %reverse = $6, %ncolor = $7, %bg = $8
var %def = . $+ %class $+ {font-weight: $+ $iif(%bold,bold,normal)
%def = %def $+ ;text-decoration: $+ $iif(%underline,underline,none)
%def = %def $+ ;color: $+ %i2h. [ $+ [ $iif(%reverse,%bg,%fcolor) ] ]
%def = %def $+ ;background-color: $+ %i2h. [ $+ [ $iif(%reverse,%ncolor,%bcolor) ] ]
%def = %def $+ ;}
return %def
}
alias -l convert {
if (* !iswm $1-) return
var %nbsp = $chr(160), %b = , %r = , %u = , %k = , %o = , %text = $replace($1-,&,&,<,<,>,>) $+ %o, %ncolor = $colour(no), %ecolor = %ncolor, %bg = $colour(b), %etag = 0
if (%i2h.buffermode) %ecolor = %i2h.ecolor
elseif ($1 == *) {
if (/*: iswm $2) || ($2-3 == Invalid format:) || ($2-4 == Too many parameters:) || ($2-3 == Invalid parameters:) { %ecolor = $colour(i) }
elseif (Break: iswm $2) { %ecolor = $colour(c) }
else { %ecolor = $colour(a) }
}
elseif (-?*- iswm $1) { var %ecolor = $colour(not) }
elseif (-> [*] iswm $1-2) { var %ecolor = $colour(c) }
elseif ($1 == ***) { var %ecolor = $colour(i) }
if (%ecolor !isnum) { %ecolor = %ncolor }
if (%ecolor != %ncolor) { %etag = 1 }
var %btext = $replace(%text,%k,%b,%r,%b,%u,%b,%o,%b), %codenum = 1, %numcodes = $count(%btext,%b), %nextcodepos, %codepos = 1, %prevcodepos, %nocomma, %class, %baseclass, %prevclass
var %char, %bold = 0, %underline = 0, %reverse = 0, %fcolor = %ecolor, %bcolor = %bg, %aline, %length = $len(%text), %tcolor, %inside_span = 0
%baseclass = $classname(%bold,%underline,%ecolor,%bcolor,%reverse,%bg)
%class = %baseclass
if (%etag) {
%aline = <span class= $+ %class $+ >
if (%i2h.c [ $+ [ %class ] ] != 1) {
iline @HTML 2 $classdef(%class,%bold,%underline,%fcolor,%bcolor,%reverse,%ncolor,%bg)
%i2h.c [ $+ [ %class ] ] = 1
}
}
while (%codenum <= %numcodes) {
%prevcodepos = %codepos
%nextcodepos = $pos(%btext,%b,%codenum)
%codepos = %nextcodepos
while ($mid(%btext,%codepos,1) == %b) {
inc %codenum
%char = $mid(%text,%codepos,1)
if (%char == %k) {
inc %codepos
%nocomma = 1
%tcolor =
while ($mid(%text,%codepos,1) isnum) {
%tcolor = $ifmatch
inc %codepos
if ($mid(%text,%codepos,1) isnum) {
%tcolor = %tcolor $+ $ifmatch
inc %codepos
}
if (%tcolor == 99) { %tcolor = %ecolor }
if (%fcolor == 99) { %fcolor = %bcolor }
%tcolor = $calc(%tcolor % 16)
%fcolor = $calc(%fcolor % 16)
if (%nocomma) { %fcolor = %tcolor }
else { %bcolor = %tcolor }
if (%nocomma) && ($mid(%text,%codepos,1) == ,) {
%nocomma = 0
inc %codepos
}
else break
}
if (* !iswm %tcolor) {
%fcolor = %ecolor
%bcolor = %bg
}
}
else {
if (%char == %b) { %bold = 1 - %bold }
elseif (%char == %u) { %underline = 1 - %underline }
elseif (%char == %r) { %reverse = 1 - %reverse }
elseif (%char == %o) {
%fcolor = %ecolor
%bcolor = %bg
%bold = 0
%underline = 0
%reverse = 0
}
inc %codepos
}
}
%prevclass = %class
%class = $classname(%bold,%underline,%fcolor,%bcolor,%reverse,%bg)
if (%prevcodepos < %nextcodepos) {
var %" = $+(",$mid(%text,%prevcodepos,$calc(%nextcodepos -%prevcodepos)),")
if (" * " iswm %") { %aline = %aline $+ %nbsp $+ $right($left(%",-2),-2) $+ %nbsp }
elseif (" * iswm %") { %aline = %aline $+ %nbsp $+ $right($left(%",-1),-2) }
elseif (* " iswm %") { %aline = %aline $+ $right($left(%",-2),-1) $+ %nbsp }
else { %aline = %aline $+ $right($left(%",-1),-1) }
}
if (%codepos > %length) break
if (%class != %prevclass) {
if (%inside_span) {
%aline = %aline $+ </span>
%inside_span = 0
}
if (%class != %baseclass) {
if (%i2h.c [ $+ [ %class ] ] != 1) {
iline @HTML 2 $classdef(%class,%bold,%underline,%fcolor,%bcolor,%reverse,%ncolor,%bg)
%i2h.c [ $+ [ %class ] ] = 1
}
aline @HTML %aline $+ <span
%aline = class= $+ %class $+ >
%inside_span = 1
}
}
}
if (%inside_span) {
%aline = %aline $+ </span>
%inside_span = 0
}
if (%codepos <= %length) { %aline $+ $mid(%text,%codepos) }
if (%etag) { %aline = %aline $+ </span> }
aline @HTML %aline $+ <br>
}
;--------------------------------
; [[X-Script online browser]]
;--------------------------------
alias xonline {
if (!$dialog(x_online)) { dialog -ma x_online x_online }
if ($1) {
did -i x_online 9 1 $1
did -c x_online 9 1
writehistory
}
elseif ($parser($xr(Browser,homepage))) {
var %site = $v1
dll $xdir(dll,nHTMLn.dll) navigate %site
}
}
alias internet { xonline $1- }
alias net { xonline $1- }
alias browser { xonline $1- }
dialog x_online {
title ""
size -1 -1 297 250
option dbu
icon $icl $+, 30
list 3, 4 2 190 13, size
box "", 1, -1 19 300 20
text "", 10, 4 26 22 8
combo 9, 27 25 207 10, edit drop
list 7, 236 25 13 9, size
list 2, 0 40 297 199, size
list 8, 0 239 297 11, size
button "", 6, 0 0 0 0, hide
button "", 11, 0 0 0 0, default
}
ON *:dialog:x_online:init:*: {
mdxload
dialog -t $dname $lng(features,xonline) [/xonline,/net,/internet]
lang 10 $lng(core,address)
if (!$xr(Browser,BrowserW)) { xw Browser BrowserW 297 }
if (!$xr(Browser,BrowserH)) { xw Browser BrowserH 235 }
mdx SetDialog $dname coords * * $xr(Browser,BrowserW) $xr(Browser,BrowserH)
mdx SetControlMDX $dname 3,7 Toolbar flat wrap nodivider > $bars
mdx SetFont $dname 3,7 -11 400 Tahoma
mdx SetBorderStyle $dname 3,7
did -i $dname 3 1 bmpsize 32 32
did -i $dname 3 1 setimage icon large 67, $+ $icl
did -i $dname 3 1 setimage icon large 68, $+ $icl
did -i $dname 3 1 setimage icon large 57, $+ $icl
did -i $dname 3 1 setimage icon large 69, $+ $icl
did -i $dname 3 1 setimage icon large 70, $+ $icl
did -i $dname 3 1 setimage icon large 29, $+ $icl
did -i $dname 3 1 setimage icon large 71, $+ $icl
did -i $dname 3 1 setimage icon large 155, $+ $icl
did -a $dname 3 1 $chr(9) $+ $lng(core,browse1)
did -a $dname 3 2 $chr(9) $+ $lng(core,browse2)
did -a $dname 3 -
did -a $dname 3 3 $chr(9) $+ $lng(core,browse3)
did -a $dname 3 4 $chr(9) $+ $lng(core,browse4)
did -a $dname 3 -
did -a $dname 3 5 $chr(9) $+ $lng(core,browse5)
did -a $dname 3 7 $chr(9) $+ $lng(core,browse6)
did -a $dname 3 -
did -a $dname 3 8 $chr(9) $+ $lng(core,browse7)
did -a $dname 3 6 $chr(9) $+ $lng(core,browse8)
did -i $dname 7 1 bmpsize 16 16
did -i $dname 7 1 setimage icon small 67, $+ $icl
did -a $dname 7 1 $chr(9) $+ $lng(core,go)
mdx SetControlMDX $dname 6 positioner size > $dialogs
mdx SetControlMDX $dname 8 StatusBar sizeGrip > $bars
did -i $dname 8 1 setparts -1
mdx SetBorderStyle $dname 2 staticedge
dialog -r $dname $dname
dll $xdir(dll,nHTMLn.dll) attach $dll($xdir(dll,nHTMLn.dll),item,$dialog($dname).hwnd id:2)
addhistory
}
ON *:dialog:x_online:sclick:*: {
if ($did == 3) {
if ($did($dname,3).sel == 2) { dll $xdir(dll,nHTMLn.dll) back 0 }
elseif ($did($dname,$did).sel == 3) { dll $xdir(dll,nHTMLn.dll) forward 0 }
elseif ($did($dname,$did).sel == 5) { dll $xdir(dll,nHTMLn.dll) stop 0 }
elseif ($did($dname,$did).sel == 6) { dll $xdir(dll,nHTMLn.dll) refresh 0 }
elseif ($did($dname,$did).sel == 8) {
if ($parser($xr(Browser,homepage))) {
var %site = $v1
dll $xdir(dll,nHTMLn.dll) navigate %site
}
else { dll $xdir(dll,nHTMLn.dll) navigate $site1 }
}
elseif ($did($dname,$did).sel == 9) { dll $xdir(dll,nHTMLn.dll) print 0 }
elseif ($did($dname,$did).sel == 11) { dialog -ma webfavorites webfavorites }
elseif ($did($dname,$did).sel == 12) { clearhistory }
}
if ($did == 11) {
writehistory
}
if ($did == 9) {
if ($did($dname,9)) {
dll $xdir(dll,nHTMLn.dll) navigate $did($dname,9)
}
}
if ($did == 7) {
if ($did($dname,7).sel == 2) {
if ($did($dname,9)) {
writehistory
}
}
}
if ($did == 6) {
if ($gettok($did($dname,6),1,32) == sizing) {
if ($gettok($did($dname,6),5,32) < 500) { did -a $dname 6 setsize c $v2 * }
if ($gettok($did($dname,6),6,32) < 310) { did -a $dname 6 setsize c * $v2 }
}
mdx MoveControl $dname 1 * * $calc($dialog($dname).cw + 4) *
mdx MoveControl $dname 8 * $calc($dialog($dname).ch - 22) $dialog($dname).cw *
mdx MoveControl $dname 2 * * $dialog($dname).cw $calc($dialog($dname).ch - 100)
}
}
ON *:dialog:x_online:close:*: {
xw Browser BrowserW $dialog(x_online).cw
xw Browser BrowserH $dialog(x_online).ch
dll -u $xdir(dll,nHTMLn.dll)
}
alias -l addhistory {
did -r x_online 9
var %file = Settings\ScriptData\Different\WebHistory.txt
if (!$isfile(%file)) { .write -c $+(",$mircdir,%file,") }
var %i = $lines(%file)
while (%i >= 1) {
did -a x_online 9 $read(%file,%i)
dec %i
}
}
alias -l writehistory {
var %i = 1,%file = Settings\ScriptData\Different\WebHistory.txt
while (%i <= $lines(%file)) {
if ($read(%file,%i) == $did(x_online,9)) { .write -dl $+ %i $+(",$mircdir,%file,") | break }
inc %i
}
.write $+(",$mircdir,%file,") $did(x_online,9)
addhistory
did -c x_online 9 1
dll $xdir(dll,nHTMLn.dll) navigate $did(x_online,9)
}
alias -l clearhistory {
.write -c $+(",$mircdir,Settings\ScriptData\Different\WebHistory.txt,")
addhistory
}
dialog webfavorites {
title ""
size -1 -1 136 143
option dbu
icon $icl $+, 155
text "", 997, 1 1 134 22
list 1, 1 1 25 18, disable size
box "", 2, 2 22 132 107
text "", 3, 5 29 35 8
edit "", 4, 41 28 91 10, autohs
list 5, 4 40 128 87, size
button "", 6, 2 130 37 12, ok
button "", 7, 59 130 37 12
button "", 8, 97 130 37 12
text "", 998, 0 0 0 0
text "", 999, 0 0 0 0
}
ON *:dialog:webfavorites:init:*: {
mdxload
transparent
dialog -t $dname $lng(core,webfav)
lang 6 $lng(common,done)
lang 7 $lng(common,add)
lang 8 $lng(common,remove)
lang 3 $lng(core,webstart)
barmdx 1 155
lang 998 $lng(core,webfav)
lang 999 - $lng(core,fav_desc)
mdx SetControlMDX $dname 5 Listview noheader single report rowselect > $views
did -i $dname 5 1 headerdims 230
mdxlist 5
if ($xr(Browser,homepage)) { did -o $dname 4 1 $v1 }
loadfavs
}
ON *:dialog:webfavorites:sclick:*: {
if ($did == 6) {
if ($did($dname,4)) { xw Browser homepage $v1 }
}
if ($did == 7) {
var %input = $$?=" $lng(core,newfav) "
if (%input) {
.write $+(",$mircdir,Settings\ScriptData\Different\Favourites.txt,") %input
loadfavs
}
}
if ($did == 8) {
var %sel = $calc($did($dname,5).sel - 1)
if (%sel >= 1) {
.write -dl $+ %sel $+(",$mircdir,Settings\ScriptData\Different\Favourites.txt,")
loadfavs
}
}
}
ON *:dialog:webfavorites:dclick:*: {
if ($did == 5) {
var %sel = $calc($did($dname,5).sel - 1)
if ((%sel >= 1) && ($dialog(x_online))) {
dll $xdir(dll,nHTMLn.dll) navigate $read(Settings\ScriptData\Different\Favourites.txt,%sel)
}
}
}
alias -l loadfavs {
did -r $dname 5
var %file = Settings\ScriptData\Different\Favourites.txt
if (!$isfile(%file)) { .write -c $+(",$mircdir,%file,") }
var %i = 1
while (%i <= $lines(%file)) {
did -a $dname 5 $read(%file,%i)
inc %i
}
}
;-------------------------------------------------
; [[X-Script quoting script)]]
;-------------------------------------------------
ON ^1:HOTLINK:*~*:*: {
var %timestamp = $gettok($readini($mircini,options,n4),12,44)
if (%timestamp == 1) {
if ($gettok($hotline,2,32) == $1) {
set %quotelink 1
}
else { halt }
}
else {
if ($gettok($hotline,1,32) == $1) {
set %quotelink 1
}
else { halt }
}
}
ON 1:HOTLINK:*~*:*: {
var %timestamp = $gettok($readini($mircini,options,n4),12,44)
if (%timestamp == 1) {
if ((%quotelink == 1) && ($gettok($hotline,2,32) == $1)) {
editbox -p $strip($+(",$gettok($hotline,4-,32),",$chr(44)))
unset %quotelink
}
}
else {
if ((%quotelink == 1) && ($gettok($hotline,1,32) == $1)) {
editbox -p $strip($+(",$gettok($hotline,3-,32),",$chr(44)))
unset %quotelink
}
}
}
ON ^1:HOTLINK:*&*:*: {
var %timestamp = $gettok($readini($mircini,options,n4),12,44)
if (%timestamp == 1) {
if ($gettok($hotline,2,32) == $1) {
set %quotelink 1
}
else { halt }
}
else {
if ($gettok($hotline,1,32) == $1) {
set %quotelink 1
}
else { halt }
}
}
ON 1:HOTLINK:*&*:*: {
var %timestamp = $gettok($readini($mircini,options,n4),12,44)
if (%timestamp == 1) {
if ((%quotelink == 1) && ($gettok($hotline,2,32) == $1)) {
editbox -p $strip($+(",$gettok($hotline,5-,32),",$chr(44)))
unset %quotelink
}
}
else {
if ((%quotelink == 1) && ($gettok($hotline,1,32) == $1)) {
editbox -p $strip($+(",$gettok($hotline,4-,32),",$chr(44)))
unset %quotelink
}
}
}
;-------------------------------------------------
; [[X-Script core development tools
;-------------------------------------------------
alias lngmake {
var %file = $sfile(C:\,Choose language ini to compile,Select)
if ($isfile(%file)) {
var %i = 1, %topics = $ini(%file,0)
hmake lng_maker 200
while (%i <= %topics) {
var %topic = $ini(%file,%i)
var %items = $ini(%file,%topic,0), %y = 0
while (%y <= %items) {
var %item = $ini(%file,%topic,%y)
var %tag = $+(%topic,_,%item)
hadd lng_maker $eval(%tag,1) $readini(%file,%topic,%item)
inc %y
}
inc %i
}
hsave -o lng_maker $+(",$replace(%file,$nopath(%file),language.hsh),")
hfree lng_maker
}
}
alias lngsource {
var %file = $sfile(C:\,Choose language hsh to decompile,Select)
if ($isfile(%file)) {
hmake lng_maker 200
hload lng_maker $+(",%file,")
var %ini-file = $replace(%file,$nopath(%file),language-decompiled.ini)
.write -c $+(",%ini-file,")
var %i = 1, %items = $hget(lng_maker,0).item
while (%i <= %items) {
var %item = $hget(lng_maker,%i).item
var %data = $hget(lng_maker,%item)
var %ini_section = $gettok(%item,1,95)
var %ini_item = $gettok(%item,2,95)
if (%ini_section && %ini_item && %data) { writeini $+(",%ini-file,") %ini_section %ini_item %data }
inc %i
}
hfree lng_maker
}
}