mIRC Home    About    Download    Register    News    Help

Print Thread
Joined: Aug 2005
Posts: 128
S
Vogon poet
OP Offline
Vogon poet
S
Joined: Aug 2005
Posts: 128
Code:
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:
Code:
/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
M
Hoopy frood
Offline
Hoopy frood
M
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
B
Fjord artisan
Offline
Fjord artisan
B
Joined: Feb 2005
Posts: 344
I'm no good inreading codes but what is the differents between your code and this ?
Code:
 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
S
Vogon poet
OP Offline
Vogon poet
S
Joined: Aug 2005
Posts: 128
Sorry, forgot to edit it here too. The problem was fixed smile


Link Copied to Clipboard