|
Joined: Aug 2005
Posts: 128
Vogon poet
|
OP
Vogon poet
Joined: Aug 2005
Posts: 128 |
on 1:start:.remove dll.txt
raw 366:*:rnicklist $cid $2
alias dll {
write dll.txt Done command: /dll $1-
!dll $1-
}
alias rnicklist {
if ([ [ $+(%,marked.,$1,.,$2) ] ]) {
dll dlls\nickLUST3.dll SetGroupText $2 2 > Ops ( $+ $nick($2,0,o) $+ )
dll dlls\nickLUST3.dll SetGroupText $2 3 > Voiced ( $+ $nick($2,0,v) $+ )
dll dlls\nickLUST3.dll SetGroupText $2 1 > Reg ( $+ $nick($2,0,r) $+ )
}
}
alias join {
inc -u5 %joins 1
write dll.txt /join attempt ( $+ $1- $+ ). Setting it after %joins seconds.
.timer 1 %joins !join $1-
}
alias doneaction if ($1 == nickAdding) || ($1 == nickDeleted) rnicklist $cid $2
alias -l dolist {
var %cid = $1
var %chan = $2
if ([ [ $+(%,marked.,%cid,.,%chan) ] ] == $null) {
write dll.txt Marking %chan ( $+ $window(%chan).hwnd $+ ). Setted this channel as marked. $nick(%chan,0) persons in it. This channel is on the %cid connection id.
dll dlls\NickLUST3.dll Mark $window(%chan).hwnd doneaction hideempty clientedge underlinehot hottrack
dll dlls\nickLUST3.dll SetGroupText %chan 1 > Reg
dll dlls\nickLUST3.dll AddGroup %chan 2 @ 1 > Ops
dll dlls\nickLUST3.dll AddGroup %chan 3 + 1 > Voiced
dll dlls\nickLUST3.dll SetGroupPos %chan 1 end
dll dlls\nickLUST3.dll SetHeaderColor %chan 3 $color(3)
dll dlls\nickLUST3.dll SetHeaderColor %chan 2 $color(8)
dll dlls\nickLUST3.dll SetHeaderColor %chan 1 $color(7)
set $+(%,marked.,%cid,.,%chan) 1
}
}
on 1:connect:unset %marked.*
on 1:part:#:if ($nick == $me) && (!$window($chan).hwnd) unset $+(%,marked.,$cid,.,$chan)
on 1:join:#:{
if ($nick == $me) && ([ [ $+(%,marked.,%cid,.,%chan) ] ] == $null) {
inc -u10 %nicklist 1
write dll.txt marking for $chan on cid $cid will be in %nicklist seconds
.timer 1 %nicklist dolist $cid $chan
}
else rnicklist $cid $chan
}
I use this code in a script file. After I start mirc, I open 2 networks, and I join to first channel in the second network, the mIRC crashes. I made a debug in the file dll.txt so I can see where the problem is. I have this in dll.txt after crashing:
/join attempt (#whitebox). Setting it after 1 seconds.
marking for #whitebox on cid 2 will be in 1 seconds
Marking #whitebox (3605362). Setted this channel as marked. 9 persons in it. This channel is on the 2 connection id.
Done command: /dll dlls\NickLUST3.dll Mark 3605362 doneaction hideempty clientedge underlinehot hottrack
As you can see, after marking the first channel, the mIRC crashes. This is a good syntax for dll. If I use it long time after running the dll, the mirc is not crashing anymore. Sometimes mIRC crashes after opening more channels, not after first. Anyone knows why that happens? I use the nICKLUST3 version of the dll.
|
|
|
|
Joined: Jun 2003
Posts: 4,670
Hoopy frood
|
Hoopy frood
Joined: Jun 2003
Posts: 4,670 |
So that others don't waste time trying to investigate/sort the problem, this user has fixed it themselves. Regards,
|
|
|
|
Joined: Feb 2005
Posts: 344
Fjord artisan
|
Fjord artisan
Joined: Feb 2005
Posts: 344 |
I'm no good inreading codes but what is the differents between your code and this ? ON *:JOIN:#:{
if ($nick == $me) {
nicklust Mark $window($chan).hwnd nLUST_CallBack rowselect tooltips balloontips hideempty hottrack dlgframe clientedge
dll Systeem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirSysteem\icons\op.ico)
dll Systeem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirSysteem\icons\voice.ico)
dll Systeem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirSysteem\icons\MacOSX.ico)
dll Systeem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirSysteem\icons\hop.ico)
dll Systeem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirSysteem\icons\usr.ico)
dll Systeem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirSysteem\icons\spr.ico)
dll Systeem\dll\nickLUST3.dll AddIcon $chan > $shortfn($mircdirSysteem\icons\ownr.ico)
dll Systeem\dll\nickLUST3.dll SetGroupText $chan 1 > Chatters
dll Systeem\dll\nicklust3.dll AddGroup $chan 10 + 2 > Voice +
dll Systeem\dll\nicklust3.dll AddGroup $chan 11 @ 1 > Operator @
dll Systeem\dll\nicklust3.dll AddGroup $chan 12 % 4 > Halfop %
dll Systeem\dll\nicklust3.dll AddGroup $chan 13 - 5 > User ops
dll Systeem\dll\nicklust3.dll AddGroup $chan 14 & 6 > Super ops
dll Systeem\dll\nicklust3.dll AddGroup $chan 15 . 7 > Eigenaar
dll Systeem\dll\nicklust3.dll SetGroupView $chan 1 normal
dll Systeem\dll\nicklust3.dll SetGroupView $chan 10 normal
dll Systeem\dll\nicklust3.dll SetGroupView $chan 11 normal
dll Systeem\dll\nicklust3.dll SetGroupView $chan 12 normal
dll Systeem\dll\nicklust3.dll SetGroupView $chan 13 normal
dll Systeem\dll\nicklust3.dll SetGroupView $chan 14 normal
dll Systeem\dll\nicklust3.dll SetGroupView $chan 15 normal
dll Systeem\dll\nicklust3.dll SetGroupIcon $chan 1 3
dll Systeem\dll\nicklust3.dll SetGroupPos $chan 15 start
dll Systeem\dll\nicklust3.dll SetGroupPos $chan 11 end
dll Systeem\dll\nicklust3.dll SetGroupPos $chan 12 end
dll Systeem\dll\nicklust3.dll SetGroupPos $chan 10 end
dll Systeem\dll\nicklust3.dll SetGroupPos $chan 14 end
dll Systeem\dll\nicklust3.dll SetGroupPos $chan 13 end
dll Systeem\dll\nicklust3.dll SetGroupPos $chan 1 end
dll Systeem\dll\nicklust3.dll SetColor $chan bkg $rgb(244,244,244)
dll Systeem\dll\nicklust3.dll SetColor $chan text $color(14)
dll Systeem\dll\nicklust3.dll SetColor $chan tipbkg $rgb(219,219,219)
dll Systeem\dll\nicklust3.dll SetColor $chan tiptext $color(1)
dll Systeem\dll\nicklust3.dll SetColor $chan hottext $color(12)
dll Systeem\dll\nicklust3.dll SetColor $chan divider $color(12) $color(0)
dll Systeem\dll\nicklust3.dll SetHeaderFontStyle $chan italic
dll Systeem\dll\nicklust3.dll SetHeaderColor $chan 15 $rgb(147,147,255)
dll Systeem\dll\nicklust3.dll SetHeaderColor $chan 11 $rgb(255,70,70)
dll Systeem\dll\nicklust3.dll SetHeaderColor $chan 12 $color(15)
dll Systeem\dll\nicklust3.dll SetHeaderColor $chan 10 $rgb(78,191,224)
dll Systeem\dll\nicklust3.dll SetHeaderColor $chan 14 $rgb(41,209,155)
dll Systeem\dll\nicklust3.dll SetHeaderColor $chan 1 $color(6)
}
haltdef
}
alias nicklust { dll $+(",$mircdirSysteem\dll\nickLUST3.dll,") $1- }
alias nlust_callback {
if ($1 = tooltip) {
var %extra
if ($3 == $me) %extra = (Eigen naam)
nicklust SetTipTitle $2 1 > Info on $3 %extra
return Status: $nlist_pnick($remove($nick($2,$3).pnick,$3)) $+ $crlf $+ Idle: $duration($nick($2,$nick($2,$3)).idle) $+ $crlf $+ Notify lijst: $iif($notify($3),Ja,Nee) $+ $crlf $+ Adres: $iif($address($3,4),$ifmatch,Niet Bekend) $+ $crlf $+ Kamers: $_comchans($3,32))
}
}
alias nlist_pnick {
if ($1 = @) { return Channel Operator }
elseif ($1 = .) { return Kamer Eigenaar }
elseif ($1 = &) { return Beschermde Chatter }
elseif ($1 = +) { return Voice Chatter }
elseif ($1 = %) { return Halve Op Chatter }
elseif ($1 = -) { return Operator }
elseif ($1 = $null) { return Normale Chatter }
}
alias _isnotifylist {
if ($notify($1)) return $2
return $3
}
alias _comchans {
var %tokk = $iif($2,$ifmatch,$chr(32)), %iii = 1, %chh
while (%iii <= $comchan($1,0)) {
%chh = $addtok(%chh,$comchan($1,%iii),%tokk) | inc %iii
}
return $sorttok(%chh,%tokk)
}
if ($1 == nickadded) {
if ($3 == $me) return 2 $rgb(255,0,255) > $me $crlf $+ Dit ben jij
if ($3 == Bullseye) return none $rgb(0,255,0) > $3 $+ $crlf $+ Script maker
}
|
|
|
|
Joined: Aug 2005
Posts: 128
Vogon poet
|
OP
Vogon poet
Joined: Aug 2005
Posts: 128 |
Sorry, forgot to edit it here too. The problem was fixed 
|
|
|
|
|