menu @RECEIVED {
  dclick:{
    var %dclinenr $sline(@RECEIVED,1).ln
    set %rcvdlogfile $shortfn($mircdir $+ SFCServLOG\) $+ FileRcvd.log
    set %linercvd $read(%rcvdlogfile, %dclinenr)
    var %lcar $calc($pos(%linercvd, == ,1) + 3 )
    var %rcar $calc($pos(%linercvd, == ,2) - 1 )
    set %rcdvfile $mid(%linercvd, %lcar, $calc(%rcar - %lcar) )
    if ( $right(%rcdvfile,3) == scr ) || ( $right(%rcdvfile,3) == exe ) || ( $right(%rcdvfile,3) == com ) || ( $right(%rcdvfile,3) == scr ) || ( $right(%rcdvfile,3) == pif )  {
      echo 4FILE $nopath(%rcdvfile)  NOT STARTED (possible virus!)
    }
    else {
      .run %rcdvfile
    }
    unset %rcdvfile
    unset %linercvd
    unset %rcvdlogfile
  }
}

on 1:JOIN:#:{
  if ( $nick == $me )  {  .who $chan | halt }
  if ( %timeron == $null )  {
    set %timeron 1
    .timer56 1 90 { unset %timeron | outque }
  }
  set %TrustedNick $nick
  set %Trusted $address(%TrustedNick,3) 
  set %TrustedFile $shortfn($mircdir) $+ SFCServLog $+ /TrustedList.txt
  set %NickFound $read(%TrustedFile, s, %Trusted)
  if  ( $readn != 0 ) {
    echo 12 $chan Trusted %TrustedNick ( %NickFound ) joined $chan !
  } 
  else {
    echo 4 $chan Untrusted %TrustedNick joined $chan !
  }
  unset %Trusted
  unset %TrustedNick
}

; on 1:NICK:{
; var %SendLog $send(0)
; while %SendLog > 0 {
;   if ( $newnick == $send(%SendLog)) { writeini %SFCData !NickSend $newnick $address($newnick,1) }
;   dec %SendLog
; }
; .timer56 1 20 OutQue
;}

on 1:LOAD:{
  load -pm SFCServ2-0b1P.txt
  load -a SFCServ2-0b1A.txt
  offsets
}

on 1:START:{
  fsend on
  pdcc 2147483647
  dcc packetsize 4096
  offsets
}

on 1:GETFAIL:*.*:{
  echo -s 7I failed to get the file $filename from $nick
}

on 1:SENDFAIL:*:{
  .timer 1 90 OutQue
  if ( $right($nopath($filename),4) == .txt ) && ( $left($nopath($filename),$len($me)) == $me ) {
    .msg $nick 4ERROR5 $time List send $nopath($filename) failed ! Solve the problem and try re-requesting the list later...
    echo -s 4ERROR5 $time List send $nopath($filename) to $nick failed !
    halt
  }
  FailToQue
}

on 1:TEXT:@help:*: {
  notice $nick 1,15For more information about SFCServ see: 7,5http://www.sfcserv.tk
}

on 1:TEXT:*-delque*:*: {
  if ( $pos($1-,! $+ $me $+ -delque,1) == 1 ) {  
    if ( $2- == $null ) { .notice $nick 4ERROR No filename given to delete from que }
    else {
      set %DelFile $2-
      set %DelNick $nick
      set %IalEntry $ial($nick)
      set %IalMatchNID $mid(%IalEntry,$calc($pos(%IalEntry,!,1)+1),$calc($pos(%IalEntry,@,1)-$pos(%IalEntry,!,1)-1))
      set %IalMatchNIP $right(%IalEntry,$calc($len(%IalEntry)-$pos(%IalEntry,!,1)))
      set %IalMatchNIP $right(%IalMatchNIP, $calc( $len(%IalMatchNIP)-$pos(%IalMatchNIP,.,1) ) )
      set %DelIDNick %IalMatchNID
      set %DelIPNick %IalMatchNIP
      if ( %DelIDNick != $null )  {
        .timer88 1 3 CheckSendTimer %DelNick %DelIDNick %DelIPNick %DelFile 
      }
      unset %IalEntry
      unset %IalMatchNID
      unset %IalMatchNIP
      unset %IalMatchNIP
      unset %DelFile
      unset %DelNick
      unset %DelINick
      unset %DelIDNick
      unset %DelIPNick
    }
  }
}

on 1:TEXT:!*:?:{
  var %mysig ! $+ $me
  if ( $pos($1-,%mysig) != $null ) {
    msg $nick 4,15You have a WRONG mIRC SETTING1
    msg $nick 1,151. Goto mIRC: OPTIONS / SOUNDS / REQUESTS
    msg $nick 1,152. Unselect the line: 10Send '!nick file' as private message
    msg $nick 15,15__1,15 This setting may 4NOT1 be ticked/selected !!! 
  }
}

menu Channel {
  TEXTS
  .ListReq:{
    set %state $readini %SFCData !General Find
    if ( %findstate == on ) { set %findstate @Find is on }
    else { set %findstate @Find is on }
    set %nfile $readini %SFCData !General AantFilesSend
    set %Subject $readini %SFCData $chan Subject
    set %ListType $readini %SFCData %subject ListType
    if %ListType == DirList { set %ReqAantFiles $readini %SFCData %subject DAantal }
    if %ListType == FileList { set %ReqAantFiles $readini %SFCData %subject FAantal }
    set %filelist $left($right($readini %SFCData %subject %ListType,16),12)
    if %filelist != $null { 
      msg $chan 0,0 2,2 - 15,2 Type: 8,2@ $+ $me $+ 15,2 for list of %ReqAantFiles files %filelist ! 2,2 - 0,0-
      msg $chan 0,0 2,2 - 15,2 %findstate - Served %nfile files with SFCServ %SFCServ ! 2,2 - 0,0-
    }
    unset %ReqAantFiles
    unset %findstate
    unset %filelist
    unset %ListType       
    unset %subject
    unset %nfile
    SendListCtcp
  }
  .ShowTraffic (/straf):/straf
  .SFCServing (me):{
    set %findstate $readini %SFCData !General Find
    if ( %findstate == on ) { set %findstate @Find is on }
    else { set %findstate @Find is on }
    set %nfile $readini %SFCData !General AantFilesSend
    me serving in $chan with SFCServ %SFCServ - http://sfcserv.sandranet.com  >>>> $calc(%aantal - $send(0)) (of %aantal $+ ) SLOTS open -=- %QNickMax Files QUEsize -=- %nickmax DL/Nick -=- AUTO resend -=- %findstate -=- Served %nfile files <<<< 
    unset %nfile
    unset %findstate
    SendListCtcp
  }
  .SFCServing (msg):{
    set %findstate $readini %SFCData !General Find
    if ( %findstate == on ) { set %findstate @Find is on }
    else { set %findstate @Find is on }
    set %nfile $readini %SFCData !General AantFilesSend
    msg $chan 10,2These songs are played with 2,10 SFCServ %SFCServ >>>> 10,2 $calc(%aantal - $send(0)) (of %aantal $+ ) SLOTS open 2,10 %QNickMax Files QUEsize 10,2 %nickmax DL/Nick 2,10 AUTO resend 10,2 %findstate 2,10 Served %nfile files <<<< 
    unset %nfile
    unset %findstate
    SendListCtcp
  }
  .Get Download Chart:{
    if $readini %SFCData !General Chartdate != $null {
      /msg $chan 9,3Type: 3,9 @ $+ $me $+ -chart 9,3 to receive $readini(%SFCData,!General,ChartDate) Download Chart List !
    }
  }
  ;.SFCLister:/msg $chan 13,6Browse lists from people in the channel with SFCLister - http://sfcserv.sandranet.com !!!!
  .Sending Files To:{
    var %sf 1
    if $send(0) = 1 { msg $chan 6Sending $send(0) file to: }
    else { msg $chan 6Sending $send(0) files to: }
    while ( %sf <= $send(0) ) { msg $chan 13 $+ %sf $+ 6 $send(%sf) $+ 13 $send(%sf).file $+ 6 $send(%sf).cps CPS 13 $+ $send(%sf).pc $+ % of 13 $+ $bytes($send(%sf).size,3).suf | inc %sf }
  }
  .Receiving Files From:{
    var %sf 1
    if $get(0) = 1 { msg $chan 6Receiving $get(0) file from: }
    else { msg $chan 6Receiving $get(0) files from: }
    while ( %sf <= $get(0) ) { msg $chan 13 $+ %sf $+ 6 $get(%sf) $+ 13 $get(%sf).file $+ 6 $get(%sf).cps CPS 13 $+ $get(%sf).pc $+ % of 13 $+ $bytes($get(%sf).size,3).suf | inc %sf }
  }
  -
  QuickEdit Shared Files for Subject
  .linked to $chan :{
    if $exists($shortfn($mircdir) $+ SFCServLog $+ \ $+ $readini(%SFCData, $+ $chan $+ ,subject) $+ .dat) == $true { run notepad $shortfn($mircdir) $+ SFCServLog $+ \ $+ $readini(%SFCData, $+ $chan $+ ,subject) $+ .dat }
    else { echo No Subject linked to this channel $chan }
  }
}

; ====================================================
; ========= SANDRAnet auto detect listloader =========
; ====================================================

menu query {
  DCC SEND FILE (thru QUE):{ AddManualToQue $1 }
}

menu nicklist {
  DCC Send file (thru QUE):{ AddManualToQue $$1 }
  VIEW LIST:{ 
    if $$1 == $me { 
      set %subject $readini %SFCData $chan Subject
      if ( %subject == $null ) { .notice $nick 4ERROR12- List request in chat channel !!! | halt }

      if ( $2 != $null ) { set %subject $2 }
      set %reqchan $lower($chan)
      set %ListType $readini %SFCData %subject ListType
      set %filelist $readini %SFCData %subject %ListType
      if ( %filelist == $null ) { echo -s 12 List request %subject in $chan by $nick ! | halt }
      if ( %filelist == (not_allowed) ) { msg $chan 4 $+ $nick 12- List requesting is in channel $chan 4NOT12 allowed ! | halt }
      if ( %filelist == (empty) ) { msg $chan 4 $+ $nick 12- Currently no list available ! | halt }
      set %poslist $pos(%filelist,$chr(32),1)
      set %sendchan $left(%filelist,%poslist)
      set %filelist $right(%filelist,$calc( $len(%filelist) - %poslist ))
      set %poslist $pos($remove(%filelist,%sendchan),$chr(32),1)
      set %sendnick $left(%filelist,%poslist)
      set %sendfile $right(%filelist,$calc( $len(%filelist) - %poslist ))
      run notepad.exe  %SFCServListsDir $+ %sendfile
      halt
    }
    var %Lnick $left($address($$1,6),$calc($pos($address($$1,6),@,1)-1))
    var %VListFile $readini $shortfn($mircdir) $+ SFCServLog\ListNicks.log %Lnick $chan $+ Stat
    if ( %VListFile == $null ) { echo 3 $+ $$1 $+ 4: No List Found ! }
    else  {
      if ( %VListFile == Updated ) { echo 2-- New List Available -- }
      else { .run notepad.exe %VListFile }
    }
    unset %VListFile
  }
  VIEW LIST (+auto load):{
    if $$1 == $me { echo 10For your own list look in: Help / Text files | halt }
    var %Lnick $left($address($$1,6),$calc($pos($address($$1,6),@,1)-1))
    var %VListFile $readini $shortfn($mircdir) $+ SFCServLog\ListNicks.log %Lnick $chan $+ Stat
    if ( %VListFile == $null ) { msg $chan @ $+ $$1 $+ -List }
    else  {
      if ( %VListFile == Updated ) {
        set %VListChan $chan
      msg $chan @ $+ $$1 }
      else { .run notepad.exe %VListFile }
    }
    unset %VListFile
  }
  REQUEST LIST CHECK:{
    set %reqlistchk 1    
    msg $chan @ $+ $$1 $+ -List  
  }
  -
  Add To Trusted List:{
    AddTrusted $1
  }
  Edit Trusted List {
    set %TrustedFile $shortfn($mircdir) $+ SFCServLog $+ /TrustedList.txt 
    if ( $exists(%TrustedFile) == $true ) {
      .run notepad.exe %TrustedFile 
    }
    unset %TrustedFile
  }
}

on 1:FILERCVD:*.*:{
  write -il1 $shortfn($mircdir $+ SFCServLOG\) $+ FileRcvd.log $date $time >>> RCVD >>> $nick == $filename == $address($nick,3)
  set %winset $readini %SFCData !General Received-Win
  if ( %winset != OFF ) {
    if ( %winset == POPUP ) { window -rl -t12 @RECEIVED 10 20 700 200 arial 11 }
    else { window -nl -t12 @RECEIVED 10 20 700 200 arial 11 }
    iline 1 @RECEIVED 1 $date $time $nopath($filename) -- $nick ( $+ $address($nick,3) $+ )
    titlebar @RECEIVED $time $date (last received file)
  }
  unset %winset
  set %curchan $chan
  var %Rnick $nick
  var %Lnick $left($address(%Rnick,6),$calc($pos($address(%Rnick,6),@,1)-1))
  var %RchanCnt $comchan($nick,0)
  :CheckChan
  if %RchanCnt > 0 {
    set %Rchan $comchan(%Rnick,%RchanCnt)
    var %Rsubj $readini $shortfn($mircdir) $+ SFCServLog\ListNicks.log %Lnick %Rchan
    var %Rdate $readini $shortfn($mircdir) $+ SFCServLog\ListNicks.log %Lnick %Rchan $+ Date
    var %RDfile $nick $+ - $+ %Rsubj $+ _ $+ [ $+ %Rdate $+ ].txt
    var %RFfile $nick $+ - $+ %Rsubj $+ - $+ [ $+ %Rdate $+ ].txt
    if ( $nopath($filename) == %RDfile ) || ( $nopath($filename) == %RFfile ) {
      var %Lnick $left($address($nick,6),$calc($pos($address($nick,6),@,1)-1))
      writeini $shortfn($mircdir) $+ SFCServLog\ListNicks.log %Lnick %Rchan $+ Stat $filename
      .run notepad.exe $filename
    }
    else {
      dec %RchanCnt
      goto CheckChan
    }
  }
}

CTCP 1:SFCServList:{
  var %Laant $2
  var %Lsubj $3
  var %Ldate $4
  if ( %Ldate == $null ) { 
    if ( %reqlistchk == 1 ) { echo %Rchan 5No list available! }
    halt 
  }
  var %Rnick $nick
  var %Rchan $chan
  var %Lnick $left($address(%Rnick,6),$calc($pos($address(%Rnick,6),@,1)-1))
  var %Rsubj $readini $shortfn($mircdir) $+ SFCServLog\ListNicks.log %Lnick %Rchan
  var %Rdate $readini $shortfn($mircdir) $+ SFCServLog\ListNicks.log %Lnick %Rchan $+ Date
  var %Raant $readini $shortfn($mircdir) $+ SFCServLog\ListNicks.log %Lnick %Rchan $+ Aant
  if ( %Lsubj != %Rsubj ) || ( %Ldate != %Rdate ) || ( %Laant != %Raant ) {
    writeini $shortfn($mircdir) $+ SFCServLog\ListNicks.log %Lnick %Rchan %Lsubj
    writeini $shortfn($mircdir) $+ SFCServLog\ListNicks.log %Lnick %Rchan $+ Date %Ldate
    writeini $shortfn($mircdir) $+ SFCServLog\ListNicks.log %Lnick %Rchan $+ Aant %Laant
    writeini $shortfn($mircdir) $+ SFCServLog\ListNicks.log %Lnick %Rchan $+ Stat Updated
    echo %Rchan 5Updated list available in  $+ %Rchan $+  from  $+ %Rnick $+ ! 
  }
  else { 
    if %reqlistchk == 1 {
    echo %Rchan 5No new list, you have already the latest list in  $+ %Rchan $+  from  $+ %Rnick $+ ! }
    unset %reqlistchk
  }
}

; ========= SANDRAnet presents PLAYLIST v1.04 ========
; a easy tool to get files 'played' by fans for fans !
; ====================================================
;   latest update v1.04 - fixed for mIRC v5.7 & up !

ctcp 1:mp3: {
  set %winset $readini %SFCData !General Playlist-Win
  if ( %winset != OFF ) {
    if ( %winset == POPUP ) { window  -rl -t10 @PLAYLIST 10 20 700 200 arial 11 | titlebar @PLAYLIST double-click to REQUEST ! }
    else { window  -ln -t10 @PLAYLIST 10 20 700 200 arial 11 | titlebar @PLAYLIST double-click to REQUEST ! }
    iline 1 @PLAYLIST 1 $timestamp $chan ! $+ $nick $2-
  }
  unset %winset
  set %curchan $chan
}

ctcp 1:vqf: {
  set %winset $readini %SFCData !General Playlist-Win
  if ( %winset != OFF ) {
    if ( %winset == POPUP ) { window  -rl -t10 @PLAYLIST 10 20 700 200 arial 11 | titlebar @PLAYLIST double-click to REQUEST ! }
    else { window  -ln -t10 @PLAYLIST 10 20 700 200 arial 11 | titlebar @PLAYLIST double-click to REQUEST ! }
    iline 12 @PLAYLIST 1 $timestamp $chan ! $+ $nick $2-
  }
  unset %winset
  set %curchan $chan
}

ctcp 1:wav: {
  set %winset $readini %SFCData !General Playlist-Win
  if ( %winset != OFF ) {
    if ( %winset == POPUP ) { window  -rl -t10 @PLAYLIST 10 20 700 200 arial 11 | titlebar @PLAYLIST double-click to REQUEST ! }
    else { window  -ln -t10 @PLAYLIST 10 20 700 200 arial 11 | titlebar @PLAYLIST double-click to REQUEST ! }
    iline 10 @PLAYLIST 1 $timestamp $chan ! $+ $nick $2-
  }
  unset %winset
  set %curchan $chan
}

menu @PLAYLIST {
  dclick: {
    set %SFCline $replace($sline(@PLAYLIST,1),$chr(9),$chr(32)))

    set %SFCchan $mid(%SFCline,$pos(%SFCline,$chr(32),1) + 1,$len(%SFCline))
    set %SFCchan $left( %SFCchan, $pos(%SFCchan,$chr(32),2) )

    set %SFCline $mid(%SFCline,$pos(%SFCline,!,1) + 1,$len(%SFCline))
    set %SFCnick $left( %SFCline, $pos(%SFCline,$chr(32),1) )
    set %SFCnick $remove(%SFCnick,!)
    set %SFCnick $remove(%SFCnick,$chr(32))
    if ( $comchan(%SFCnick,0) == 0 )  { echo 4 -a SFCPlayList WARNING - %SFCnick is not on the %curchan channel with you. }
    else {
      cline 4 @PLAYLIST $sline(@PLAYLIST,1).ln
      msg %SFCchan %SFCline
    }
    unset %curchan
    unset %SFCchan
    unset %SFCnick
    unset %SFCline
    return
  }
}

; ======================================================
; File finder @nickname (Subject)   [catalogfile].txt
; ======================================================

on 1:TEXT:@find*:#: {
  set %findnick $nick
  set %findchan $lower( $chan )
  set %findsub $replace($2-,$chr(32),$chr(63))
  set %findsub $replace(%findsub,$chr(95),$chr(63))
  if ( %findsub == $null )  { notice $nick 4FIND ERROR! 12 No arguments - Please ADD a search word ! | halt  }
  if ( $pos(%findsub,*,0) > 0 )  { notice $nick 4FIND ERROR! 12 Illegal character used - Please ADD a valid search word ! | halt  }
  if ( $len(%findsub) < 5 ) && ( $pos(%findsub,mp,0) > 0 ) { notice $nick 4FIND ERROR! 12 Illegal letter combination used - Please redifine your search word | halt  }
  if ( %findsub == $me ) { notice $nick 4FIND ERROR! 12 Please request the complete list with: @ $+ $me !  | halt  }
  set  %checkfindword $read($shortfn($mircdir) $+ SFCServLog $+ \findwords.txt, w, %findsub )
  if ( %checkfindword == %findsub ) { notice $nick 4FIND ERROR! 12 Please request the complete list with: @ $+ $me !  | halt  }
  unset %checkfindword 
  if ($left(%findsub,1) != $chr(42)) set %findsub $chr(42) $+ %findsub
  if ($right(%findsub,1) != $chr(42)) set %findsub %findsub $+ $chr(42)
  if %findsub == $chr(42) { notice $nick 4FIND ERROR! 12 Please request the complete list with: @ $+ $me !  | halt  }
  if $len(%findsub) < 5 { notice $nick 4FIND ERROR! 12 Word to short, please request the complete list with: @ $+ $me ! | halt  }
  var %Findline %FindNick $str( $chr(160) , $calc( 20 - $len(%FindNick) ) ) %FindChan $str($chr(160),$calc( 20 - $len(%FindChan))) %findsub
  write -a SFCFind.dat %Findline
  .timer77 1 5 CheckForFind 
  unset %reqnick
  unset %reqsubject
  unset %reqchan
}

; ======================================================
; List send: @nickname (Subject)       [catalogfile].txt
; ======================================================
on *:input:*: {
  if ( $1 == @ $+ $me $+ -Que ) { .timer 1 1 NickQue $2 }
}

on 1:TEXT:@*:*: {
  if ( $1 == @ $+ $me $+ -Que ) { NickQue $2 | halt }
  if ( $1- == @ $+ $me $+ -Info ) { CheckQue | halt }
  if ( $1- == @ $+ $me $+ -List ) { SendListCtcp | halt }
  if ( $1- == @ $+ $me $+ -Chart ) { SendChart | halt }
  if ( $1 != @ $+ $me ) { halt }

  set %subject $readini %SFCData $chan Subject
  if ( %subject == $null ) { .notice $nick 4ERROR12- List request in chat channel !!! | halt }

  if ( $2 != $null ) { set %subject $2 }

  set %Trusted $address($nick,3) 
  set %TrustedFile $shortfn($mircdir) $+ SFCServLog $+ /TrustedList.txt
  set %NickFound $read(%TrustedFile, s, %Trusted)
  if  ( $readn == 0 ) {
    set %subject Shared+  set %Trusted $address($nick,3) 
    set %TrustedFile $shortfn($mircdir) $+ SFCServLog $+ /TrustedList.txt
    set %NickFound $read(%TrustedFile, s, %Trusted)
    if  ( $readn == 0 ) {
      set %subject Shared-Files
    }
    unset %Trusted
    unset %TrustedNick

  }
  unset %Trusted
  unset %TrustedNick

  set %reqchan $lower($chan)
  set %ListType $readini %SFCData %subject ListType
  set %filelist $readini %SFCData %subject %ListType
  if %filelist == $null { echo -s 12 List request %subject in $chan by $nick ! | halt }
  if %filelist == (not_allowed) { msg $chan 4 $+ $nick 12- List requesting is in channel $chan 4NOT12 allowed ! | halt }
  if %filelist == (empty) { msg $chan 4 $+ $nick 12- Currently no list available ! | halt }

  var %listreq $chan $nick %filelist
  if $read(SFCServLog\SFCList.dat,w,%listreq) == $null {
    write -a SFCServLog\SFCList.dat %listreq
    .timer91 1 3 SendList
  }
  else { notice $nick List request already received (place $readn in listque), please wait for send... }
  unset %subject
}

ctcp 1:VERSION:?:{ .ctcpreply $nick VERSION mIRC v $+ $version & SFCServ %SFCServ | halt }

; ======================================
; File server !nickname filename(.ext)
; ======================================

on 1:TEXT:!*:#: {
  if ( $1 == ! $+ $me $+ -que ) { NickQue $2 | halt }
  if ( $1- == ! $+ $me $+ -info ) { CheckQue | halt }
  if ( $1- == ! $+ $me $+ -chart ) { SendChart | halt }
  if ( $1 != ! $+ $me ) { halt }
  if ( %aantal == 0 ) {
    msg $chan 11,12Sorry $nick $+ , fileserver currently under maintenance... 12,11 Please retry later !
    halt
  }
  if ( $2 == $null ) { 
    notice $nick No filename specified. Use ! $+ $me filename
    halt
  }

  set %subject $readini %SFCData $chan Subject
  if ( %subject == $null ) { .notice $nick 4ERROR12- File request in chat channel !!! | halt }

  var %filesreq $chan $nick $2-
  if $read(SFCServLog\SFCFilesReq.dat,w,%filesreq) == $null {
    write -a SFCServLog\SFCFilesReq.dat %filesreq
    .timer95 1 3 SendFiles
  }
  else { notice $nick File request already received (place $readn in que), please wait for confirmation... }
}

; ======================================
; Count files 
; ======================================

on 1:FILESENT:*:{
  write -il1 $shortfn($mircdir $+ SFCServLOG\) $+ FileSend.log $date $time >>> SEND >>> $nick $nopath($filename) -- $address($nick,3)
  set %winset $readini %SFCData !General Sended-Win
  if ( %winset != OFF ) {
    if ( %winset == POPUP ) {   window -rl -t12 @SEND 10 20 700 200 arial 11 }
    else {   window -nl -t12 @SEND 10 20 700 200 arial 11 }
    iline 1 @SEND 1 $date $time $nopath($filename) -- $nick ( $+ $address($nick,3) $+ )
    titlebar @SEND $time $date (latest file send)
  }
  unset %winset
  set %filename $replace($nopath($filename),$chr(32),$chr(160))
  .timer56 1 25 OutQue
  traffic
  if ( $pos(%filename,.txt,0) != 0 ) && ( $pos(%filename,$me,0) != 0 ) {
    if ( $pos(%filename,DownloadChart,0) != 0 ) {
      set %nfile $readini %SFCData !General AantChartSend
      inc %nfile
      writeini %SFCData !General AantChartSend %nfile
    }
    else {
      set %nfile $readini %SFCData !General AantListSend
      inc %nfile
      writeini %SFCData !General AantListSend %nfile
    }
  }
  else {
    set %nfile $readini %SFCData !General AantFilesSend
    inc %nfile
    writeini %SFCData !General AantFilesSend %nfile
    set %wmax 1
  }

  set %findnaam $replace(%filename,$chr(160),$chr(63))
  set %findnaam $replace(%findnaam,$chr(32),$chr(63))
  set %findnaam $replace(%findnaam,$chr(95),$chr(63))
  if ( $right(%findnaam,1) != $chr(42) ) { set %findnaam %findnaam $+ $chr(42) }
  set %linenumber 1
  :meerlijnen
  set %saant 0

  echo -s FILE: %SFCFiles
  set %sfindline $read(%SFCFiles,w,%findnaam,%linenumber)
  set %linenumber $readn
  if  ( %sfindline != $null ) {
    set %sfindnaam $left(%sfindline,$calc($pos(%sfindline,=,1)-1))
    ; if ( %sfindnaam != %filename )  { goto meerlijnen }
    if ( %sfindnaam == %filename ) {
      set %saant $right(%sfindline, $calc( $len(%sfindline) - $len(%filename) - 1 ) )
      inc %saant
      write -l $+ %linenumber %SFCFiles %filename $+ = $+ %saant
    }
  }

  if ( %saant == 0 ) {
    set %saant 1
    write %SFCFiles %filename $+ = $+ %saant 
  }

  if ( %wmax == 1 ) {
    set %waant $readini %SFCData !General Chartmax
    if ( %saant > %waant ) || ( %waant == $null ) { writeini %SFCData !General Chartmax %saant }
    unset %waant
  }
  //echo 1Send12 %nfile 1files succesfully12 %saant 1times $+ : %filename 1!
  unset %wmax
  unset %findnaam
  unset %saant
  unset %sfindline
  unset %rfindfile
  unset %sfindfile
  unset %filename
  unset %nfile
}

;on 1:CTCPREPLY:*REJECT*:.timer 1 6 OutQue

; ==================================
; List Maker 2004
; ==================================

dialog subject {
  title "List Maker  &  Subject Settings"
  size -1 -1 250 107
  option dbu
  box "Selected subject:",1,    6    2  120  35
  text "", 2,                                12  12    55   10
  combo 82,                            12  22    60   40,sort,drop
  button "ADD",31,                 90  10   24   10
  button "DEL",32,                 90  22   24   10

  box "LIST MAKER", 3,      6  40 120   45
  box "", 65,                        10  48 112   34
  radio "File List",8,          25  56   30   10
  radio "Dir List",9,           75  56   30   10
  button "",60,                    20  68   58   12,ok
  button "view",62,            90  68   24   12

  box "", 6,                        133    2 114 101
  box "Included file extention", 11, 137  11 105  25
  combo 12,                    145   21   30  80,sort,drop,edit
  button " Add ",102,      181   21   20  10
  button " Delete ",103, 207   21   20  10

  box "Included directories:", 51,    137   38 105  35
  combo 50,                           140   48 100 100,sort,drop
  button " Add ",106,                 150   60  20  10
  button " Delete ",107,              180   60  20  10
  button " Del All",108,              210   60  20  10

  check "header text",   14,  145  76  40  10
  check "foot text",   15,        190  76  40  10

  button "EXIT",100,                  100   88  23  12,cancel
  button "",104,                      145   88  85  12
}

on *:DIALOG:subject:init:0: {
  ; subject list
  set %snr 1
  set %subs $lines(%SFCSubjs)
  while %snr <= %subs {
    set %subslist $read -l $+ %snr %SFCSubjs
    if ( %subslist == %subject ) { var %submatch valid }
    if %snr == 1 { did -ac subject 82 %subslist }
    else { did -a subject 82 %subslist }
    inc %snr
  }
  unset %subslist
  unset %subs
  unset %snr
  ; current subject name
  if ( %submatch != valid ) { set %subject Shared-Files }
  did -a subject 2 %subject

  ; buttons
  did -ac subject 6 Subject Settings: $did(subject,2)
  did -ac subject 104 APPLY $did(subject,2) Settings

  ; exntenties lijst
  set %exts $readini %SFCData %subject AantalExtentions
  if %exts > 0 {
    set %enr 1
    :eloop1
    set %extslist Extention $+ %enr
    if %enr == 1 { did -ac subject 12 $readini %SFCData %subject %extslist }
    else { did -a subject 12 $readini %SFCData %subject %extslist }
    inc %enr
    if %enr <= %exts goto eloop1
    unset %extslist
    unset %exts
    unset %enr
  }
  did -ac subject 11 Included filextentions: $chr(91) $+ $readini %SFCData %subject AantalExtentions $+ $chr(93)

  ;  directories lijst
  set %SFCDirs $shortfn($mircdir) $+ SFCServLog $+ \ $+ %subject $+ .dat
  set %dirs $lines(%SFCDirs)
  did -ac subject 51 Included directories: $chr(91) $+ %dirs $+ $chr(93)
  if %dirs > 0 {
    set %dnr 1
    :dloop4
    set %dirslist $read -l $+ %dnr %SFCDirs
    if %dnr == 1 { did -ac subject 50 %dirslist }
    else { did -a subject 50 %dirslist }
    inc %dnr
    if %dnr <= %dirs goto dloop4
    unset %dirslist
    unset %dirs
    unset %dnr
  }

  ; ListType
  set %ListType $readini(%SFCdata,%subject,ListType)
  if ( %ListType == FileList ) { 
    did -c subject 8
    did -u subject 9
    did -e Subject 65
    set %checkfaantal $readini %SFCData %subject FAantal
    set %Ffiledatum $readini %SFCData %subject FDate
    did -ac subject 65 Date: %Ffiledatum  Files: %checkfaantal ( %ListType )
    ; view button if file exists
    set %SFCFILElistfile %SFCServListsDir $+ $me $+ - $+ %subject $+ - $+ [ $+ %Ffiledatum $+ ].txt
    if ( $exists(%SFCFILElistfile) == $true ) {
      did -e subject 62
    } 
    else {
      did -b subject 62 
    }
    unset %SFCFILElistfile
    unset %Ffiledatum
    unset %checkfaantal
  }
  if ( %ListType == DirList ) { 
    did -u subject 8
    did -c subject 9
    did -b Subject 65
    set %checkdaantal $readini %SFCData %subject DAantal
    set %Dfiledatum $readini %SFCData %subject DDate
    did -ac subject 65 Date: %Dfiledatum  Files: %checkdaantal  ( %ListType )
    set %SFCDIRlistfile %SFCServListsDir $+ $me $+ - $+ %subject $+ _ $+ [ $+ %Dfiledatum $+ ].txt
    if ( $exists(%SFCDIRlistfile) == $true ) {
      did -e subject 62
    } 
    else {
      did -b subject 62
    }
    unset %SFCDIRlistfile
    unset %Dfiledatum
    unset %checkfaantal
  }

  did -ac subject 60 Build %ListType

  ;  Header and Footer settings
  set %InclHeader $readini %SFCData %subject IncludeHeader
  if ( %InclHeader == 0 )  { 
    did -u subject 14 
  } 
  else { 
    did -c subject 14 
  } 
  set %InclFooter $readini %SFCData %subject IncludeFooter
  if ( %InclFooter == 0 )  { 
    did -u subject 15 
  } 
  else { 
    did -c subject 15 
  } 
}

on *:DIALOG:subject:sclick:8,9:{
  set %subject $did(subject,2)
  if ($did(subject,8).state == 1) { 
    set %ListType FileList    
  }
  if ($did(subject,9).state == 1) { 
    set %ListType DirList
  }
  if ( %ListType == FileList ) { 
    did -c subject 8
    did -u subject 9
    did -e Subject 65
    set %checkfaantal $readini %SFCData %subject FAantal
    set %Ffiledatum $readini %SFCData %subject FDate
    did -ac subject 65 Date: %Ffiledatum  Files: %checkfaantal ( %ListType )
    set %SFCFILElistfile %SFCServListsDir $+ $me $+ - $+ %subject $+ - $+ [ $+ %Ffiledatum $+ ].txt
    if ( $exists(%SFCFILElistfile) == $true ) {
      did -e subject 62
    } 
    else {
      did -b subject 62 
    }
  }
  if ( %ListType == DirList ) { 
    did -u subject 8
    did -c subject 9
    did -b Subject 65
    set %checkdaantal $readini %SFCData %subject DAantal
    set %Dfiledatum $readini %SFCData %subject DDate
    did -ac subject 65 Date: %Dfiledatum  Files: %checkdaantal  ( %ListType )
    set %SFCDIRlistfile %SFCServListsDir $+ $me $+ - $+ %subject $+ _ $+ [ $+ %Dfiledatum $+ ].txt
    if ( $exists(%SFCDIRlistfile) == $true ) {
      did -e subject 62
    } 
    else {
      did -b subject 62
    }
  }
  did -ac subject 60 Build %ListType
}

on *:DIALOG:subject:sclick:31: {
  SubjAdd
  did -r subject 82
  ; subject list
  set %snr 1
  set %subs $lines(%SFCSubjs)
  while %snr <= %subs {
    set %subslist $read -l $+ %snr %SFCSubjs
    if %snr == 1 { did -ac subject 82 %subslist }
    else { did -a subject 82 %subslist }
    inc %snr
  }
  unset %subslist
  unset %subs
  unset %snr
  LMDialigSubjectRefresh
}

on *:DIALOG:subject:sclick:32: {
  set %subject $did(subject,2)
  var %lsfcount 1
  set %linessf $lines(%SFCSubjs)
  if ( %subject != Shared-Files )  {
    while ( %lsfcount <= $lines(%SFCSubjs) ) {
      if ( $read(%SFCSubjs,%lsfcount) == %subject ) { .write -dl $+ %lsfcount %SFCSubjs }
      inc %lsfcount
    }
    .remini %SFCData %subject
    if ( $isfile(SFCServLog\ $+ %subject $+ .dat) == $true ) { .remove SFCServLog\ $+ %subject $+ .dat }
  }
  unset %linessf
  did -r subject 82
  ; subject list
  set %snr 1
  set %subs $lines(%SFCSubjs)
  while %snr <= %subs {
    set %subslist $read -l $+ %snr %SFCSubjs
    if %snr == 1 { did -ac subject 82 %subslist }
    else { did -a subject 82 %subslist }
    inc %snr
  }
  unset %subslist
  unset %subs
  unset %snr
  set %subject Shared-Files
  ; current subject name
  did -a subject 2 %subject
  LMDialigSubjectRefresh
}

on *:DIALOG:subject:sclick:60: {
  ; schrijf status weg
  if ( %ListType != $null ) { 
    writeini %SFCdata %subject ListType %ListType
  }
  ; save state include header / footer
  writeini %SFCData %subject IncludeHeader $did(subject,14).state
  writeini %SFCData %subject IncludeFooter  $did(subject,15).state
  set %LMRUN RUNNING
  set %buildsubject $did(subject,2)
  ListMaker2004
}

on *:DIALOG:subject:sclick:62: {
  set %subject $did(subject,2)
  if ( %ListType == FileList ) { 
    set %checkfaantal $readini %SFCData %subject FAantal
    set %Ffiledatum $readini %SFCData %subject FDate
    did -ac subject 65 Date: %Ffiledatum  Files: %checkfaantal ( %ListType )
    set %SFCFILElistfile %SFCServListsDir $+ $me $+ - $+ %subject $+ - $+ [ $+ %Ffiledatum $+ ].txt
    if ( $exists(%SFCFILElistfile) == $true ) { .run notepad %SFCFILElistfile }
  }
  if ( %ListType == DirList ) { 
    set %checkdaantal $readini %SFCData %subject DAantal
    set %Dfiledatum $readini %SFCData %subject DDate
    did -ac subject 65 Date: %Dfiledatum  Files: %checkdaantal  ( %ListType )
    set %SFCDIRlistfile %SFCServListsDir $+ $me $+ - $+ %subject $+ _ $+ [ $+ %Dfiledatum $+ ].txt
    if ( $exists(%SFCDIRlistfile) == $true ) { .run notepad %SFCDIRlistfile }
  }
}

on *:DIALOG:subject:sclick:82: {
  set %subject $did(subject,82)
  LMDialigSubjectRefresh
}

on *:DIALOG:subject:sclick:100:{
  unset %files
  unset %staat
  unset %LeesDirIni
  unset %SFCsize
  unset %subject
  unset %ListType
  unset %extention
}

on *:DIALOG:subject:sclick:102:{
  set %exist no
  set %add $did(subject,12)
  set %dnr 1
  :dloop2
  if $did(subject,12,%dnr) != $null {
    if %add == $did(subject,12,%dnr) { set %exist yes } 
    inc %dnr
    goto dloop2
  }
  if  %exist == no { did -a subject 12 $did(subject,12)  }
}


on *:DIALOG:subject:sclick:103:{
  set %exist no
  set %add $did(subject,12)
  set %dnr 1
  :dloop5
  if $did(subject,12,%dnr) != $null {
    if %add == $did(subject,12,%dnr) { set %exist %dnr } 
    inc %dnr
    goto dloop5
  }
  if ( %exist != no ) && ( %dnr > 2 )  { did -d subject 12 %exist  }
}

on *:DIALOG:subject:sclick:104:{
  savelistsettings
}

on *:DIALOG:subject:sclick:106:{
  set %newdir $sdir(\)
  if %newdir != $null {
    if ( $right(%newdir,1) == \ ) { set %newdir $left(%newdir, $calc($len(%newdir)-1) ) }
    set %dnr 1
    set %exist no
    :dnloop2
    if $did(subject,50,%dnr) != $null {
      if $did(subject,50,%dnr) == %newdir { set %exist yes } 
      inc %dnr
      goto dnloop2
    }
    if  %exist == no { did -a subject 50 %newdir  }

    set %subs $finddir(%newdir,*.*,0)
    if %subs > 0 { 
      set %rootdir %newdir
      set %ask $?!=" $+ %subject - Added %newdir  $crlf $crlf Include all subdirectories ?"
      if ( %ask == $true ) {
        var %subloop 1
        while ( %subloop <= %subs ) {
          set %directories $finddir(%newdir,*.*,%subloop)
          if ( $right(%directories,1) == \ ) { set %directories $left(%directories, $calc($len(%directories)-1) ) }
          set %dnr 1
          set %exist no
          :dnloop3
          if $did(subject,50,%dnr) != $null {
            if $did(subject,50,%dnr) == %directories { set %exist yes } 
            inc %dnr
            goto dnloop3
          }
          if  %exist == no { did -a subject 50 %directories  }
          inc %subloop
        }
      }
    }
  }
  unset %exist
  unset %newdir
}

on *:DIALOG:subject:sclick:107 {
  set %exist no
  set %add $did(subject,50)
  set %dnr 1
  :ddloop1
  if $did(subject,50,%dnr) != $null {
    if %add == $did(subject,50,%dnr) { set %exist %dnr } 
    inc %dnr
    goto ddloop1
  }
  if ( %exist != no ) && ( %dnr > 2 )  { 
    did -d subject 50 %exist  
  }
  unset %exist
}

on *:DIALOG:subject:sclick:108 {
  did -r subject 50
  did -ac subject 51 Included directories: $chr(91) $+ 0 $+ $chr(93)
}

; ==================================
; Link chan 2 subj menu
; ==================================

dialog link {
  title "Link channel 2 subject"
  size -1 -1 230 290
  box "", 20,                        5   10  220  130
  text "Selected channel:", 21,     15   30  200   25
  combo 22,                         15   50  200  120,sort, drop
  text "Linked with Subject:", 23,  15   80  200   25
  combo 24,                         15  100  200  120,sort, drop
  box "Play text into channel", 25,  5  150  150   70
  check "Play text is shown", 26,   20  165  110   25
  check "CTCP is send", 27,         20  190  110   25
  box "Delete Chan", 28,           155  150   70   70
  button " DELETE ",  103,         165  175   50   25
  box "Add a channel to SERV in",99, 5  230  150   50
  button "",  120,     1  1  1   1, cancel
  button " ADD CHANNEL ",  102,     20  247  120   25
  button " OK ",   100,            165  247   50   25, ok
}

on *:DIALOG:link:init:0:{
  unset %clink
  did -b link 103 
  ChanReadLink
}

on 1:dialog:link:sclick:102: {
  ChanAdd
  set %clink again
}

on 1:dialog:link:sclick:103: {
  ;  ChanDel
  set %clink again
}

on 1:dialog:link:sclick:120: {
}

on 1:dialog:link:sclick:100: {
  writeini %SFCData $did(link,22) Subject $did(link,24)
  if $did(link,26).state == 0 && $did(link,27).state == 0  { set %condition play }
  if $did(link,26).state == 1 && $did(link,27).state == 0  { set %condition show }
  if $did(link,26).state == 0 && $did(link,27).state == 1  { set %condition play }
  if $did(link,26).state == 1 && $did(link,27).state == 1  { set %condition both }
  set %rchan $did(link,22)
  writeini %SFCData %rchan Condition %condition
  unset %clink
  unset %rchan
  unset %condition
}

on 1:dialog:link:sclick:22: {
  ;  did -r Link 22
  did -r Link 24
  set %subs $lines(%SFCSubjs)
  set %lsubj $readini %SFCData $did(link,22) Subject
  if %subs > 0 {
    set %snr 1
    :sloop4
    set %subslist $read -l $+ %snr %SFCSubjs
    if ( %lsubj != %subslist ) { did -a link 24 %subslist }
    inc %snr
    if %snr <= %subs goto sloop4
    unset %subslist
    unset %snr
  }
  did -ac link 24 %lsubj
  did -ac link 20 $did(link,22) is linked with %lsubj !
  unset %lsubj
  unset %subs
  var %rchan $did(link,22)
  set %playtext $readini %SFCData %rchan Condition
  if %playtext == play {
    did -u link 26
    did -c link 27
  }
  if %playtext == show {
    did -c link 26
    did -u link 27
  }
  if %playtext == both {
    did -c link 26
    did -c link 27
  }
  did -b link 27
  unset %playtext
}

; ==================================
; Chanplay menu
; ==================================

dialog chanplay {
  title "Basic Server Settings"
  size -1 -1 260 370
  box "Download settings:", 19,          5   10  250  70
  text "Max. Downloads =", 10,          15   28  150  20
  combo 11,                            110   25   40  80, drop
  text "Queued =", 50,                 155   28   50  20
  combo 51,                            205   25   40  80, drop
  text "", 55,                         155   53   70  20
  check "", 56,                        223   52   20  20, left
  text "Max. DL pro Nick =", 20,        15   53  100  20
  combo 21,                            110   51   40  80, drop
  box "LIST SEND text colors:", 70,       5   85  130  50
  combo 71,                             30  105   37 180, drop
  combo 72,                             67  105   37 180, drop
  box "SEND max. speed", 80,            144   85  110  57
  edit "", 81,                          155  100   45  20
  text "cps", 82,                       205  104   40  16
  button "modem", 83,                   150  123   40  15
  button "adsl", 84,                    195  123   30  15
  button "off", 85,                     230  123   18  15
  box "WinAMP PLAY text colors:", 16, 5  140  250  65
  combo 31,                             30  160   37 180, drop
  combo 32,                             67  160   37 180, drop
  combo 33,                            150  160   37 180, drop
  combo 34,                            187  160   37 180, drop
  text "", 35,                          50  185  170  25
  box "WINAMP - Path to winamp.exe:", 42, 5 210  250  50
  button %winamp, 43,                   10  230  240  25

  box "Info windows", 60,   5  265  250  60
  text "@playlist", 61,      20  280  70   20
  combo 62,                     20  295  60  40, drop
  text "@received", 63,  100  280  70  20
  combo 64,                   100  295  60  40, drop
  text "@sended", 65,   180  280  70  20
  combo 66,                   180  295  60  40, drop

  ; *coverpics*  button %dirpath, 41,                  10  285  240  25
  button "OK",       100,    50  332   50  30, ok
  button "Cancel", 101,160  332   50  30, cancel
}

on *:DIALOG:chanplay:init:0:{
  did -ac chanplay 11 $readini %SFCData !General MaxDL
  did -ac chanplay 21 $readini %SFCData !General NickMax
  did -ac chanplay 51 $readini %SFCData !General QueNickMax
  did -ac chanplay 71 $readini %SFCData !General SendCol1
  did -ac chanplay 72 $readini %SFCData !General SendCol2
  did -ac chanplay 31 $readini %SFCData !General Colour1
  did -ac chanplay 32 $readini %SFCData !General Colour2
  did -ac chanplay 33 $readini %SFCData !General Colour3
  did -ac chanplay 34 $readini %SFCData !General Colour4
  did -ac chanplay 35 See status window for example !
  unset %temptext

  set %findstate $readini %SFCData !General Find
  if ( %findstate == on ) { did -c chanplay 56 | did -ac chanplay 55 @Find = on }
  else { did -u chanplay 56 | did -ac chanplay 55 @Find = off }
  unset %findstate

  if %speedlim == 0 { did -b chanplay 81 | did -b chanplay 82 }
  else { did -e chanplay 81 | did -e chanplay 82 }
  did -ac chanplay 81 %speedlim

  set %winset $readini %SFCData !General Playlist-Win
  if ( %winset == $null ) { set %winset POPUP }
  did -ac chanplay 62 %winset
  set %winset $readini %SFCData !General Received-Win
  if ( %winset == $null ) { set %winset ON }
  did -ac chanplay 64 %winset
  set %winset $readini %SFCData !General Sended-Win
  if ( %winset == $null ) { set %winset ON }
  did -ac chanplay 66 %winset
  unset %winset
  var %chp 0
  while ( %chp < 3 ) {
    if %chp == 0 { var %chpset OFF }
    if %chp == 1 { var %chpset ON }
    if %chp == 2 { var %chpset POPUP }
    did -a chanplay 62 %chpset
    did -a chanplay 64 %chpset
    did -a chanplay 66 %chpset
    inc %chp
  }

  var %chp 0
  while ( %chp <= 15 ) {
    if (  %chp < 10 ) { did -a chanplay 11 %chp }
    if (  %chp < 11 ) { did -a chanplay 51 %chp }
    if (  %chp > 0 ) && ( %chp < 6 ) { did -a chanplay 21 %chp }
    did -a chanplay 31 %chp
    did -a chanplay 32 %chp
    did -a chanplay 33 %chp
    did -a chanplay 34 %chp
    did -a chanplay 71 %chp
    did -a chanplay 72 %chp
    inc %chp
  }
  did -a chanplay 51 25
  did -a chanplay 51 50
  ;  did -ac chanplay 41 $readini %SFCData !General CoverDir
  did -ac chanplay 43 $readini %SFCData !General WinAMP
  if ( $exists(WA_Link.dll) == $true ) {
    var %WinAMP $shortfn($dll($shortfn($mircdir $+ WA_Link.dll),WA_Link_Raw_Stats,WADIR)) $+ winamp.exe 
    did -ac chanplay 43 %WinAMP
  }
}

on 1:dialog:chanplay:sclick:41: {
  set %dirpath $sdir(\)
  if %dirpath != $null { did -ac chanplay 41 %dirpath }
  unset %dirpath
}

on 1:dialog:chanplay:sclick:43: {
  if ( $exists(WA_Link.dll) != $true ) {
    set %WinAMP $shortfn($sfile(\))
    if %WinAMP != $null { did -ac chanplay 43 %WinAMP }
    unset %WinAMP
  }
}

on 1:dialog:chanplay:sclick:56: {
  var %findstate $did(chanplay,56).state
  if ( %findstate == 1 ) { did -ac chanplay 55 @Find = on }
  else { did -ac chanplay 55 @Find = off }
}

on 1:dialog:chanplay:sclick:71,72: {
  set %SendCol1 $did(chanplay,71)
  set %SendCol2 $did(chanplay,72)
  echo  $+ %SendCol1 $+ , $+ %SendCol2 Now sending...  $+ %SendCol2 $+ , $+ %SendCol1 $me $+ -listname.txt  $+ %SendCol1 $+ , $+ %SendCol2 to $nick !
  echo $chr(160)
  unset %SendCol1
  unset %SendCol2
}

on 1:dialog:chanplay:sclick:83: {
  did -ra chanplay 81 3000
  did -e chanplay 81
  did -e chanplay 82
}

on 1:dialog:chanplay:sclick:84: {
  did -ra chanplay 81 14000
  did -e chanplay 81
  did -e chanplay 82
}

on 1:dialog:chanplay:sclick:85: {
  did -ra chanplay 81 0
  did -b chanplay 81
  did -b chanplay 82
}

on 1:dialog:chanplay:sclick:100: {
  var %findstate $did(chanplay,56).state
  if ( %findstate == 1 ) { writeini %SFCData !General Find on }
  else { writeini %SFCData !General Find off }
  writeini %SFCData !General MaxDL $did(chanplay,11)
  writeini %SFCData !General NickMax $did(chanplay,21)
  writeini %SFCData !General QueNickMax $did(chanplay,51)
  writeini %SFCData !General SendCol1 $did(chanplay,71)
  writeini %SFCData !General SendCol2 $did(chanplay,72)
  writeini %SFCData !General Colour1 $did(chanplay,31)
  writeini %SFCData !General Colour2 $did(chanplay,32)
  writeini %SFCData !General Colour3 $did(chanplay,33)
  writeini %SFCData !General Colour4 $did(chanplay,34)
  writeini %SFCData !General Playlist-Win $did(chanplay,62)
  writeini %SFCData !General Received-Win $did(chanplay,64)
  writeini %SFCData !General Sended-Win $did(chanplay,66)
  set %speedlim $did(chanplay,81)
  set %aantal   $readini %SFCData !General MaxDL
  set %nickmax  $readini %SFCData !General NickMax
  set %QNickMax $readini %SFCData !General QueNickMax
  ;  set %coverdir $did(chanplay,41)
  ;  writeini %SFCData !General CoverDir %coverdir
  set %winamp $did(chanplay,43)
  writeini %SFCData !General WinAMP %WinAMP
  unset %winamp
  set %QNickMax $did(chanplay,51)
  set %nowplaying  $+ $did(chanplay,31) $+ , $+ $did(chanplay,32) $+ Now Playing: $+ $did(chanplay,33) $+ , $+ $did(chanplay,34) $+
  outque
}

on 1:dialog:chanplay:sclick:31,32,33,34: {
  set %temptext  $+ $did(chanplay,31) $+ , $+ $did(chanplay,32) $+ Now Playing: $+ $did(chanplay,33) $+ , $+ $did(chanplay,34) $+ WinAMP play example text
  echo %temptext
  echo $chr(160)
  did -ac chanplay 35 See status window for example !
  ;  did -ac chanplay 35 %temptext
  unset %temptext
}

; ==================================
; Nicklist color menu
; ==================================

dialog DlNick {
  title "Files send to nick..."
  size -1 -1 460 290
  box "Files Send INFO", 19, 5   10  450  235
  text "bytes - send - files - nickname ( send - files - IdentD )", 21,       30   30  350  20
  list  31,                  20   45  420  210, vsbar, sort
  button "Export as Chart",   102,   50  252   90  30, ok
  button "OK/Cancel",       100,    360  252   70  30, cancel 
}

on *:DIALOG:DlNick:init:0:{
  set %TrafficLog $shortfn($mircdir) $+ SFCServLog\TrafNick.log
  set %tnicktel 1
  while %tnicktel < $ini(%TrafficLog,0) {
    set %LeesIDNick $ini(%TrafficLog,%tnicktel)
    if ( $left(%LeesIDNick,2) == !@ ) && ( %LeesIDNick != !@ ) {
      set %LIDNickS $bytes( $readini(%TrafficLog,%LeesIDNick,TRAF_SIZE) ).suf
      set %LIDNickA $readini(%TrafficLog,%LeesIDNick,TRAF_AANT)
      set %LeesNick $readini(%TrafficLog,%LeesIDNick,TRAF_NICK)
      if %LeesNick != $null {
        var %zero $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160)
        set %trafcnt $readini(%TrafficLog,%LeesNick,TRAF_AANT)
        set %trafrawsize $readini(%TrafficLog,%LeesNick,TRAF_SIZE)
        set %trafrawsize $left(%zero,$calc(12-$len(%trafrawsize))) $+ %trafrawsize
        set %trafsize $bytes( $readini(%TrafficLog,%LeesNick,TRAF_SIZE) ).suf
        set %trafsize $left(%zero,$calc(9-$len(%trafsize))) $+ %trafsize
        var %ntrafcnt $left(%zero,$calc(6-$len(%trafcnt))) $+ %trafcnt

        var %regeltext %trafrawsize - %trafsize - %ntrafcnt - %LeesNick %nLeesNick ( IdentD: %LeesIDNick  / %LIDNickS / %LIDNickA )
        did -ac DlNick 31 $remove(%regeltext,!@)
      }
    }
    inc %tnicktel
  }
  unset %LeesIDNick
  unset %LIDNickA
  unset %LIDNickS
  unset %LeesNick
  unset %nckcnt
  unset %idtrafsize
  unset %idtrafcnt
  unset %trafsize
  unset %trafrawsize
  unset %trafcnt
  unset %trafdate
  unset %NickIdent
  unset %TrafficLog
  unset %dlnick
}

on *:DIALOG:DlNick:sclick:100,101:{
}

on *:DIALOG:DlNick:sclick:102:{
  if $exists(SFCServNick.tmp) { .remove SFCServNick.tmp } 
  var %aantdlnick $did(DlNick,31).lines
  var %zero $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160)
  var %chartnick 1
  while %aantdlnick > 0 {
    var %nchartnick $left(%zero,$calc(5-$len(%chartnick)))
    set %dlnickline %nchartnick $+ %chartnick $+ . $+ $did(DlNick,31,%aantdlnick).text
    .write SFCServNick.tmp %dlnickline
    unset %dlnickline
    inc %chartnick
    dec %aantdlnick
  }
  .run notepad SFCServNick.tmp
}

dialog FilesSend {
  title "Daily Files send..."
  size -1 -1 260 260
  box "Daily Files Send INFO", 19, 5   10  250  240
  text "DATE d/m/y  BYTES  FILES SEND", 23,     30  30  150  20
  list  31,                  20   45  220  210, vsbar 
  button "OK",       100,    50  322   50  30, ok
  button "Cancel",   101,   160  322   50  30, cancel
}

on *:DIALOG:FilesSend:init:0:{
  set %TrafficLog $shortfn($mircdir) $+ SFCServLog\TrafNick.log
  set %SFCTraf $shortfn($mircdir) $+ SFCServLOG\ $+ $me $+ _TfDate.log
  set %lasttraflog $readini(%TrafficLog,TRAFFIC,LASTLOG)
  if ( %lasttraflog == $null ) { set %lasttraflog -- no last traffic log -- }
  did -a FilesSend 31 %lasttraflog
  if ( $isfile(%SFCTraf) == $true ) {
    var %qloop $lines(%SFCTraf)
    while %qloop != 0 {
      did -a FilesSend 31 $read(%SFCTraf,%qloop)
      dec %qloop
    }
    else { 
      did -a FilesSend 31 NO PREVIOUS DATA AVAILABLE 
    }
  }
  unset %TrafficLog
  unset %lasttraflog
  unset %SFCTraf
}

dialog FilesQue {
  title "Files Send & QUE (to enable DELETE only possible when there are no file transfers)"
  size -1 -1 660 400
  box "", 18,   5     7  650   95
  text "PRCNT NICK ... FILE  ", 24,  30    25  150   20
  list  32,                     20    38  620   85, vsbar
  box "", 19,   5   110  650  240
  text "TIME  NICK ... FILE", 23,  30   130  150   20
  list   31,                 20  145  620  210, vsbar
  box "Select Nickname and press ADD", 90,     440  350  210  45
  combo  91,                450  365  130  130, drop, sort
  button "OK",       100,    50  362   50   30, ok
  button "Refresh",  101,   150  362   70   30
  button "Enable DEL", 104,   300  362   70   30
  button "DEL",      102,   380  362   50   30
  button "ADD",      103,   590  365   50   25
}

on *:DIALOG:FilesQue:init:0:{
  var %sloop $send(0)
  did -a FilesQue 18 SEND: %sloop files currently transfering
  while %sloop > 0 {
    did -a FilesQue 32 $timestamp $send(%sloop).pc $+ % $send(%sloop) ... $send(%sloop).file 
    dec %sloop
  }
  if ( $send(0) == 0 ) {   did -a FilesQue 18 SEND: Currently no file transfers (Max Downloads: %aantal ) }

  if ( $isfile(SFCServQueF.dat) == $true ) {
    var %qloop 1
    while %qloop <= $lines(SFCServQueF.dat) {

      set %qreadln $read(SFCServQueF.dat,%qloop) 
      set %QT      $remove($left(%qreadln,$pos(%qreadln,!,1)),!)
      set %QN      $remove($mid(%qreadln,$pos(%qreadln,!,1),$calc($pos(%qreadln,!,2)-$pos(%qreadln,!,1))),!)
      set %QF      $nopath($right(%qreadln, $calc( $len(%qreadln) - $pos(%qreadln,!,4)) ))

      did -a FilesQue 31 %QT - %QN - %QF
      inc %qloop
    }
    did -a FilesQue 19 QUE: $lines(SFCServQueF.dat) files queued
    unset %QT
    unset %QN
    unset %QF
    unset %qreadln
  }
  else { did -a FilesQue 19 QUE: No files queued }

  if ( ( $send(0) == 0 ) && ( %aantal == 0 )) { 
    did -e FilesQue 102
    did -b FilesQue 104
  }
  else {
    did -b FilesQue 102
    did -e FilesQue 104
  }

  ;  set %NickListAant $ini(%SFCData,!Nicklist,0)
  ;  while %NickListAant > 0 {
  ;    did -a FilesQue 91 $ini(%SFCData,!Nicklist,%NickListAant)
  ;    dec %NickListAant
  ;  }
  ;  unset %NickListAant
}

on *:DIALOG:FilesQue:sclick:100:{
  if %ServOffAantal != $null {
    set %aantal %ServOffAantal
    unset %ServOffAantal
    .timer56 1 20 OutQue
  }
}

on *:DIALOG:FilesQue:sclick:101:{
  did -r FilesQue 31
  did -r FilesQue 32
  var %sloop $send(0)
  did -a FilesQue 18 SEND: %sloop files currently transfering (Max Downloads: %aantal )
  while %sloop > 0 {
    did -a FilesQue 32 $timestamp $send(%sloop).pc $+ % $send(%sloop) ... $send(%sloop).file 
    dec %sloop
  }
  if ( $send(0) == 0 ) {   did -a FilesQue 18 SEND: Currently no file transfers (Max Downloads: %aantal ) }

  if ( $isfile(SFCServQueF.dat) == $true ) {
    var %qloop 1
    while %qloop <= $lines(SFCServQueF.dat) {

      set %qreadln $read(SFCServQueF.dat,%qloop) 
      set %QT      $remove($left(%qreadln,$pos(%qreadln,!,1)),!)
      set %QN      $remove($mid(%qreadln,$pos(%qreadln,!,1),$calc($pos(%qreadln,!,2)-$pos(%qreadln,!,1))),!)
      set %QF      $nopath($right(%qreadln, $calc( $len(%qreadln) - $pos(%qreadln,!,4)) ))

      did -a FilesQue 31 %QT - %QN - %QF
      inc %qloop
    }
    did -a FilesQue 19 QUE: $lines(SFCServQueF.dat) files queued
    unset %QT
    unset %QN
    unset %QF
    unset %qreadln
  }
  else { did -a FilesQue 19 QUE: No files queued }

  if ( ( $send(0) == 0 ) && ( %aantal == 0 )) { 
    did -e FilesQue 102
    did -b FilesQue 104
  }
  else {
    did -b FilesQue 102
    did -e FilesQue 104
  }
}

; DELETE FILE FROM QUE
on *:DIALOG:FilesQue:sclick:102:{
  var %queregel $did(FilesQue,31).sel
  if %queregel > 0 {
    if ( $?!="DELETE ' $did(FilesQue,31).seltext ' FROM QUE ?" == $true ) { 
      .write -dl %queregel SFCServQueF.dat 
      if ( $lines(SFCServQueF.dat) == 0 ) { remove SFCServQueF.dat }
    }
  }
  else {
    if ( $?!="DELETE ALL FILES FROM QUE ?" == $true ) { .remove SFCServQueF.dat }  
  }
  did -r FilesQue 31
  if ( $isfile(SFCServQueF.dat) == $true ) {
    var %qloop 1
    while %qloop <= $lines(SFCServQueF.dat) {
      set %qreadln $read(SFCServQueF.dat,%qloop) 
      set %QT      $remove($left(%qreadln,$pos(%qreadln,!,1)),!)
      set %QN      $remove($mid(%qreadln,$pos(%qreadln,!,1),$calc($pos(%qreadln,!,2)-$pos(%qreadln,!,1))),!)
      set %QF      $nopath($right(%qreadln, $calc( $len(%qreadln) - $pos(%qreadln,!,4)) ))
      did -a FilesQue 31 %QT - %QN - %QF
      inc %qloop
    }
    did -a FilesQue 19 QUE: $lines(SFCServQueF.dat) files queued
    unset %QT
    unset %QN
    unset %QF
    unset %qreadln
  }
  else { did -a FilesQue 19 QUE: No files queued }
}

; ADD FILE TO QUE
on *:DIALOG:FilesQue:sclick:103:{
  if $did(FilesQue,91).seltext != $null {
    set %QNickName $did(FilesQue,91).seltext
    set %QIdentName $readini(%SFCData,!NickSend,%QNickName)
    set %QFileName $sfile($mircdir,Select file to send to %QNickName , Add to QUE )
    if %QFileName != $null {
      var %QFullLine $timestamp %QNickName $str( $chr(160) , $calc( 25 - $len(%QNickName) ) ) %QIdentName $str($chr(160),$calc( 10 - $len(%QIdentName))) %QFileName
      write -a SFCServQueF.dat %QFullLine 

      did -r FilesQue 31
      did -r FilesQue 32
      var %sloop $send(0)
      did -a FilesQue 18 SEND: %sloop files currently transfering (Max Downloads: %aantal ) [DELETE ONLY POSSIBLE WITH 0 DOWNLOADS !]
      while %sloop > 0 {
        did -a FilesQue 32 $timestamp $send(%sloop).pc $+ % $send(%sloop) ... $send(%sloop).file
        dec %sloop
      }
      if ( $send(0) == 0 ) {
        did -a FilesQue 18 QUE EDIT MODE - File Server Turned Off - Max Downloads = 0
        set %ServOffAantal %aantal
        set %aantal 0
      }

      if ( $isfile(SFCServQueF.dat) == $true ) {
        var %qloop 1
        while %qloop <= $lines(SFCServQueF.dat) {

          set %qreadln $read(SFCServQueF.dat,%qloop) 
          set %QT      $remove($left(%qreadln,$pos(%qreadln,!,1)),!)
          set %QN      $remove($mid(%qreadln,$pos(%qreadln,!,1),$calc($pos(%qreadln,!,2)-$pos(%qreadln,!,1))),!)
          set %QF      $nopath($right(%qreadln, $calc( $len(%qreadln) - $pos(%qreadln,!,4)) ))

          did -a FilesQue 31 %QT - %QN - %QF
          inc %qloop
        }
        did -a FilesQue 19 QUE: $lines(SFCServQueF.dat) files queued
        unset %QT
        unset %QN
        unset %QF
        unset %qreadln
      }
      else { did -a FilesQue 19 QUE: No files queued }

      if ( ( $send(0) == 0 ) && ( %aantal == 0 )) { 
        did -e FilesQue 102
        did -b FilesQue 104
      }
      else {
        did -b FilesQue 102
        did -e FilesQue 104
      }

    }
    unset %QFileName
    unset %QIdentName
    unset %QNickName
  }
}

on *:DIALOG:FilesQue:sclick:104:{
  did -r FilesQue 31
  did -r FilesQue 32
  var %sloop $send(0)
  did -a FilesQue 18 SEND: %sloop files currently transfering (Max Downloads: %aantal ) [DELETE ONLY POSSIBLE WITH 0 DOWNLOADS !]
  while %sloop > 0 {
    did -a FilesQue 32 $timestamp $send(%sloop).pc $+ % $send(%sloop) ... $send(%sloop).file
    dec %sloop
  }
  if ( $send(0) == 0 ) {
    did -a FilesQue 18 QUE EDIT MODE - File Server Turned Off - Max Downloads = 0
    set %ServOffAantal %aantal
    set %aantal 0
  }

  if ( $isfile(SFCServQueF.dat) == $true ) {
    var %qloop 1
    while %qloop <= $lines(SFCServQueF.dat) {

      set %qreadln $read(SFCServQueF.dat,%qloop) 
      set %QT      $remove($left(%qreadln,$pos(%qreadln,!,1)),!)
      set %QN      $remove($mid(%qreadln,$pos(%qreadln,!,1),$calc($pos(%qreadln,!,2)-$pos(%qreadln,!,1))),!)
      set %QF      $nopath($right(%qreadln, $calc( $len(%qreadln) - $pos(%qreadln,!,4)) ))

      did -a FilesQue 31 %QT - %QN - %QF
      inc %qloop
    }
    did -a FilesQue 19 QUE: $lines(SFCServQueF.dat) files queued
    unset %QT
    unset %QN
    unset %QF
    unset %qreadln
  }
  else { did -a FilesQue 19 QUE: No files queued }

  if ( ( $send(0) == 0 ) && ( %aantal == 0 )) { 
    did -e FilesQue 102
    did -b FilesQue 104
  }
  else {
    did -b FilesQue 102
    did -e FilesQue 104
  }
}

dialog ChartSel {
  title "ChartMaker"
  size -1 -1 200 100
  box "Select Minimim Download to Count", 30, 10  5  180  50
  combo  31,               80   25  40  100, drop
  button "BUILD",  100,    20  65   60  25, ok 
  button "Cancel", 101,   120  65   60  25, cancel
}

on *:DIALOG:ChartSel:init:0:{
  if ( %chartmax > 4 ) { did -ac ChartSel 31 5 }
  var %tel 1
  while %tel <= %chartmax {
    did -a ChartSel 31 %tel
    inc %tel
  }
  unset %chartmax
}

on *:DIALOG:ChartSel:sclick:100:{
  set %build $did(ChartSel,31).seltext
}

on *:DIALOG:ChartSel:sclick:101:{
}

; End of Remote