Voor álle STATS & IRC verslaafden (kerstidee) - Dutch Power Cows

zondag 24 december 2000 19:58

Acties:

Verwijderd

Topicstarter

Aangezien ik nogal statsverslaafd ben en ik hoorde van een (IRC)stats script voor de koe,
ben ik hier achteraan gegaan. Zo kwam ik bij de maker (voorzover ik weet) van het script: GeonitiX
Van hem kreeg ik het volgende script:

code:

menu channel {
  DPC - rc5
  .Stats:/dnet report
  .-
  .Set Logfile:/dnet set.logfile
}

alias /dnet {
  if ($1 = set.logfile) {
    %dnet.logfile = $file="select Distributed.net logfile" c:\
    echo $timestamp $cf.vs 02,15[14,15distributed logfile is set to02,15 %dnet.logfile $+ ]
  }
  elseif ($1 = report) {
    %temp3 = $lines(%dnet.logfile)
    if (buff-out.rc5 !isin $read -l $+ %temp3 $shortfn(%dnet.logfile)) {
      :loop
      dec %temp3 1
      if (%temp3 >= 1) {
        %temp2 = $read -l $+ %temp3 $shortfn(%dnet.logfile)
        if (buff-out.rc5 isin %temp2) {
          dnet.result %temp2
          halt
        }
        else {
          goto loop
        }
      }
    }
    else { /dnet.result $read -l $+ %temp3 $shortfn(%dnet.logfile) }
  }
}
alias /dnet.result {
  %dnet.temp1 = $5
  %dnet.temp2 = $remove($8,$chr(40))
  say 02,15[Distributed stats14:02 %dnet.temp1 14blocks (02 $+ %dnet.temp2 14wu's)02]
}

Dit script geeft dus het aantal blokjes in je buff-out weer.
Je moet er wel een logfile van je koe voor hebben.
Dit doe je op de volgende manier:

Ga naar configuratiescherm van de client
En onder
4) Logging Options
moet het volgende staan:
1) Log file type ==> no limit
2) File to log to ==> koelog.txt (kan ook bv. c:\dpc\stuff\logdpc.txt)
sla dit op en sluit configuratie af.

Of gewoon op de makkelijke manier door dit in je ini te gooien:

code:

1
2
3

[logging]
log-file=koelog.txt (kan ook bv. c:\dpc\stuff\logdpc.txt)
log-file-type="no limit"

Start nu mIRC op en klik met rechter muisknop op een leeg stuk (niet op een naam dus)
Dan zie je een menutje met "Channel Modes" en met daaronder "DPC - rc5" als je met je muis
hier op gaat staan komt er een submenutje te voorschijn met "Set Logfile" en "Stats".
Klik op "Set logfile" en selecteer je dnetc logfile.
Als dit eenmaal gedaan is kan je met "Stats" je buff-out aan de anderen tonen

*******************************************
Ik vond dit wel een leuk scriptje maar ik vond dat er nog wat ontbrak...
Na wat veranderingen qua tekst (packets ipv blocks.. bv.) wilde ik ook mijn buff-in kunnen bekijken.

Dus stuurde ik dat scriptje naar MaCe (het script wonder van "De Randstad Koeien"

)
Hij heeft het meeste van het werk gedaan en verdient dan ook de meeste credits (ben ik eerlijk of wat?

)

Samen hebben wij het dus gemaakt tot wat het nu is. En aangezien ik merkte dat er nog meer mensen
op IRC dit script wilden (waarvan de meeste gek genoeg uit #DPC;)) dacht ik, ik gooi het gewoon op GOT

Het script bestaat nu uit 2 delen:
Het 1e deel moet in de REMOTE (ALT+R) komen te staan en het 2e deel in de ALIAS (ALT+A)
*******************************************

code:

;Dit behoort in de REMOTE (ALT+R) te staan:
menu channel {
  DPC - rc5 [Set Logfile]:/dnetsetlogfile
  DPC - rc5 Echo
  .Echo Stats (All):/dnetout echo | /dnetin echo | /dnetLT echo
  .-
  .Echo StatsOut:/dnetout echo
  .Echo StatsIn:/dnetin echo
  .Echo Last Transfer:/dnetLT echo
  .-
  DPC - rc5 Say
  .Say Stats (All):/dnetout say | /dnetin say | /dnetLT say
  .-
  .Say StatsOut:/dnetout say
  .Say StatsIn:/dnetin say
  .Say Last Transfer:/dnetLT say
  .-
}
on *:TEXT:*!koe*:*: {
  //dnetout $nick
  //dnetin $nick
  //dnetLT $nick
}

;DISCLAMER:
;© MaCe (mace@marijse.net) met dank aan -knip-
;Wij zijn in geen enkele vorm aansprakelijk voor eventuele statsverslaving, opgeblazen processoren, RSI-patiënten ed.
;Laat uw dank blijken door te flushen op email addres: randstad-koe@isnummer1.nl }:O
;En zo ons subteam "De Randstad Koeien" te joinen ;)
;Voor vragen/suggesties/aanvullingen/vragen over "De Randstad Koeien" en dergelijke mail ons!
;Alles in dit script mag naar hartelust gewijzigd worden, op deze Disclamer na!!!
;En daar vertrouwen we dan maar op... ;)

En deze:

code:

;Dit behoort in de ALIAS (ALT+A) te staan:
/dnetsetlogfile {
  %dnet.logfile = $file="select Distributed.net logfile" c:\
  echo $timestamp $cf.vs 02,15[14,15distributed logfile is set to02,15 %dnet.logfile $+ ]
}
/dnetout {
  %temp3out = $lines(%dnet.logfile)
  if (buff-out.rc5 !isin $read -l $+ %temp3out $shortfn(%dnet.logfile)) {
    :loop
    dec %temp3out 1
    if (%temp3out >= 1) {
      %temp2out = $read -l $+ %temp3out $shortfn(%dnet.logfile)
      if (buff-out.rc5 isin %temp2out) {
        if ($1 = say) { dnetoutresult say %temp2out } 
        elseif ($1 = echo) { dnetoutresult echo %temp2out } 
        else { dnetoutresult $1 %temp2out }
        goto okout
      }
      else {
        goto loop
      }
      :okout
    }
  }
  else { //dnetoutresult $1 $read -l $+ %temp3out $shortfn(%dnet.logfile) }
}
/dnetin {
  %temp3in = $lines(%dnet.logfile)
  if (remain !isin $read -l $+ %temp3in $shortfn(%dnet.logfile)) {
    :loop
    dec %temp3in 1
    if (%temp3in >= 1) {
      %temp2in = $read -l $+ %temp3in $shortfn(%dnet.logfile)
      if (remain isin %temp2in) {
        if ($1 = say) { dnetinresult say %temp2in }
        elseif ($1 = echo) { dnetinresult echo %temp2in }
        else { dnetinresult $1 %temp2in }
        goto okin
      }
      else {
        goto loop
      }
      :okin
    }
  }
  else { /dnetinresult echo $read -l $+ %temp3in $shortfn(%dnet.logfile) }
}
/dnetLT {
  %temp3LT = $lines(%dnet.logfile)
  if (keys/sec !isin $read -l $+ %temp3LT $shortfn(%dnet.logfile)) {
    :loop
    dec %temp3LT 1
    if (%temp3LT >= 1) {
      %temp2Lt = $read -l $+ %temp3LT $shortfn(%dnet.logfile)
      if (keys/sec isin %temp2LT) {
        if ($1 = say) { dnetLTresult say %temp2LT }
        elseif ($1 = echo) { dnetLTresult echo %temp2LT }
        else { dnetLTresult $1 %temp2LT }
        goto okin
      }
      else {
        goto loop
      }
      :okin
    }
  }
  else { /dnetLTresult echo $read -l $+ %temp3LT $shortfn(%dnet.logfile) }
}

/dnetoutresult {
  %dnet.temp1out = $6
  %dnet.temp2out = $remove($9,$chr(40))
  if ($1 = echo ) { echo $timestamp [12CowStats > remain in 4Buff-Out:02 %dnet.temp1out 14blocks (02 $+ %dnet.temp2out 14work units)] }
  if ($1 = say ) { say [12CowStats > remain in 4Buff-Out:02 %dnet.temp1out 14blocks (02 $+ %dnet.temp2out 14work units)] }
  if ( $1 != echo && $1 != say ) { /notice $1 [12CowStats > remain in 4Buff-Out:02 %dnet.temp1out 14blocks (02 $+ %dnet.temp2out 14work units)] }

}
/dnetinresult {
  %dnet.temp1 = $6
  %dnet.temp2 = $remove($9,$chr(40))
  if ($1 = echo ) { echo $timestamp [12CowStats > remain in 4Buff-In:02 %dnet.temp1 14blocks (02 $+ %dnet.temp2 14work units)] }
  if ($1 = say ) { say [12CowStats > remain in 4Buff-In:02 %dnet.temp1 14blocks (02 $+ %dnet.temp2 14work units)] }
  if ( $1 != echo && $1 != say ) { /notice $1 [12CowStats > remain in 4Buff-In:02 %dnet.temp1 14blocks (02 $+ %dnet.temp2 14work units)] }
  if ( %dnet.temp1 <= 50 ) { /echo $timestamp [12CowStats > 4Warning! Buff-in is Low! Less then 50 blocks available!] }
;beide keer kan je 50 veranderen door het desgewenste getal
}
/dnetLTresult {
  %dnet.temp1LT = $remove($4,$chr(91))
  %dnet.temp2LT = $remove($5,$chr(93))
  if ($1 = echo ) { echo $timestamp [12CowStats > Last: 02 $+ %dnet.temp1LT 14 $+ %dnet.temp2LT $+ ] }
  if ($1 = say ) { say [12CowStats > Last: 02 $+ %dnet.temp1LT 14 $+ %dnet.temp2LT $+ ] }
  if ( $1 != echo && $1 != say ) { /notice $1 [12CowStats > Last: 02 $+ %dnet.temp1LT 14 $+ %dnet.temp2LT $+ ] }
}

;DISCLAMER:
;© MaCe (mace@marijse.net) met dank aan -knip-
;Wij zijn in geen enkele vorm aansprakelijk voor eventuele statsverslaving, opgeblazen processoren, RSI-patiënten ed.
;Laat uw dank blijken door te flushen op email addres: randstad-koe@isnummer1.nl }:O
;En zo ons subteam "De Randstad Koeien" te joinen ;)
;Voor vragen/suggesties/aanvullingen/vragen over "De Randstad Koeien" en dergelijke mail ons!
;Alles in dit script mag naar hartelust gewijzigd worden, op deze Disclamer na!!!
;En daar vertrouwen we dan maar op... ;)

Dit script zal niet bij iedereen perfect werken.
We weten dat stats 'flippen' als je probeert om je koe te benchmarken en tegelijker tijd stats weer te geven.. hier werken we aan...
En script houd geen rekening met dual processors.. hier werken wij ook aan...
Verwacht nou niet dat we morgen met een oplossing komen want we hebben een hoop school werk (ik iig SO2

)
Voor vragen/klachten/suggesties/aanvullingen/fanmail/huwelijksaanzoeken/baanaanbiedingen/ons gironummer ed. kan je ons gerust mailen

Nou ik denk toch wel dat ik veel mensen blij heb gemaakt.
Zie dit maar als een kerstcadeau van De Randstad Koeien:7.

Owjah nog één ding:
Houd aub wel de Disclamer in ere

Het maken van dit script koste nl kostbare cpu-time, die ook anders gebruikt had kunnen worden

[eventuele spellvauwten dienen genegeerd te worden...]

voor de duidelijkheid:
Éérst logfile aanmaken,
dán script invoeren en
dán pas script gebruiken
was idd beetje slordig van me!

[ Voor 0% gewijzigd door Verwijderd op 04-07-2020 00:06 . Reden: . ]

zondag 24 december 2000 20:15

Acties:

wildhagen

Blablabla

Tnx, DaMaster !

Voor de OGR-ers : die moeten onderstaande zaken gebruiken :

code:

;Dit behoort in de ALIAS (ALT+A) te staan:
/dnetsetlogfile {
  %dnet.logfile = $file="select Distributed.net logfile" c:\
  echo $timestamp $cf.vs 02,15[14,15distributed logfile is set to02,15 %dnet.logfile $+ ]
}
/dnetout {
  %temp3out = $lines(%dnet.logfile)
  if (buff-out.ogr !isin $read -l $+ %temp3out $shortfn(%dnet.logfile)) {
    :loop
    dec %temp3out 1
    if (%temp3out >= 1) {
      %temp2out = $read -l $+ %temp3out $shortfn(%dnet.logfile)
      if (buff-out.ogr isin %temp2out) {
        if ($1 = say) { dnetoutresult say %temp2out }
        elseif ($1 = echo) { dnetoutresult echo %temp2out }
        else { dnetoutresult $1 %temp2out }
        goto okout
      }
      else {
        goto loop
      }
      :okout
    }
  }
  else { //dnetoutresult $1 $read -l $+ %temp3out $shortfn(%dnet.logfile) }
}
/dnetin {
  %temp3in = $lines(%dnet.logfile)
  if (remain !isin $read -l $+ %temp3in $shortfn(%dnet.logfile)) {
    :loop
    dec %temp3in 1
    if (%temp3in >= 1) {
      %temp2in = $read -l $+ %temp3in $shortfn(%dnet.logfile)
      if (remain isin %temp2in) {
        if ($1 = say) { dnetinresult say %temp2in }
        elseif ($1 = echo) { dnetinresult echo %temp2in }
        else { dnetinresult $1 %temp2in }
        goto okin
      }
      else {
        goto loop
      }
      :okin
    }
  }
  else { /dnetinresult echo $read -l $+ %temp3in $shortfn(%dnet.logfile) }
}
/dnetLT {
  %temp3LT = $lines(%dnet.logfile)
  if (nodes/sec !isin $read -l $+ %temp3LT $shortfn(%dnet.logfile)) {
    :loop
    dec %temp3LT 1
    if (%temp3LT >= 1) {
      %temp2Lt = $read -l $+ %temp3LT $shortfn(%dnet.logfile)
      if (nodes/sec isin %temp2LT) {
        if ($1 = say) { dnetLTresult say %temp2LT }
        elseif ($1 = echo) { dnetLTresult echo %temp2LT }
        else { dnetLTresult $1 %temp2LT }
        goto okin
      }
      else {
        goto loop
      }
      :okin
    }
  }
  else { /dnetLTresult echo $read -l $+ %temp3LT $shortfn(%dnet.logfile) }
}
/dnetoutresult {
  %dnet.temp1out = $6
  %dnet.temp2out = $remove($9,$chr(40))
  if ($1 = echo ) { echo $timestamp [12CowStats > remain in 4Buff-Out:02 %dnet.temp1out 14blocks (02 $+ %dnet.temp2out 14work units)] }
  if ($1 = say ) { say [12CowStats > remain in 4Buff-Out:02 %dnet.temp1out 14packets (02 $+ %dnet.temp2out 14stubs)] }
  if ( $1 != echo && $1 != say ) { /notice $1 [12CowStats > remain in 4Buff-Out:02 %dnet.temp1out 14blocks (02 $+ %dnet.temp2out 14work units)] }
}
/dnetinresult {
  %dnet.temp1 = $6
  %dnet.temp2 = $remove($9,$chr(40))
  if ($1 = echo ) { echo $timestamp [12CowStats > remain in 4Buff-In:02 %dnet.temp1 14blocks (02 $+ %dnet.temp2 14work units)] }
  if ($1 = say ) { say [12CowStats > remain in 4Buff-In:02 %dnet.temp1 14packets (02 $+ %dnet.temp2 14stubs] }
  if ( $1 != echo && $1 != say ) { /notice $1 [12CowStats > remain in 4Buff-In:02 %dnet.temp1 14blocks (02 $+ %dnet.temp2 14work units)] }
  if ( %dnet.temp1 <= 50 ) { /echo $timestamp [12CowStats > 4Warning! Buff-in is Low! Less then 50 blocks available!] }
  ;beide keer kan je 50 veranderen door het desgewenste getal
}
/dnetLTresult {
  %dnet.temp1LT = $remove($4,$chr(91))
  %dnet.temp2LT = $remove($5,$chr(93))
  if ($1 = echo ) { echo $timestamp [12CowStats > Last: 02 $+ %dnet.temp1LT 14 $+ %dnet.temp2LT $+ ] }
  if ($1 = say ) { say [12CowStats > Last: 02 $+ %dnet.temp1LT 14 $+ %dnet.temp2LT $+ ] }
  if ( $1 != echo && $1 != say ) { /notice $1 [12CowStats > Last: 02 $+ %dnet.temp1LT 14 $+ %dnet.temp2LT $+ ] }
}
;DISCLAMER:
;© MaCe (mace@marijse.net) met dank aan DaMaster (dpc_damaster@hotmail.com)
;Wij zijn in geen enkele vorm aansprakelijk voor eventuele statsverslaving, opgeblazen processoren, RSI-patiënten ed.
;Laat uw dank blijken door te flushen op email addres: randstad-koe@isnummer1.nl }:O
;En zo ons subteam "De Randstad Koeien" te joinen ;)
;Voor vragen/suggesties/aanvullingen/vragen over "De Randstad Koeien" en dergelijke mail ons!
;Alles in dit script mag naar hartelust gewijzigd worden, op deze Disclamer na!!!
;En daar vertrouwen we dan maar op... ;)

code:

;Dit behoort in de REMOTE (ALT+R) te staan:
menu channel {
  DPC - ogr [Set Logfile]:/dnetsetlogfile
  DPC - ogr Echo
  .Echo Stats (All):/dnetout echo | /dnetin echo | /dnetLT echo
  .-
  .Echo StatsOut:/dnetout echo
  .Echo StatsIn:/dnetin echo
  .Echo Last Transfer:/dnetLT echo
  .-
  DPC - ogr Say
  .Say Stats (All):/dnetout say | /dnetin say | /dnetLT say
  .-
  .Say StatsOut:/dnetout say
  .Say StatsIn:/dnetin say
  .Say Last Transfer:/dnetLT say
  .-
}
on *:TEXT:*!koe*:*: {
  //dnetout $nick
  //dnetin $nick
  //dnetLT $nick
}
;DISCLAMER:
;© MaCe (mace@marijse.net) met dank aan DaMaster (dpc_damaster@hotmail.com)
;Wij zijn in geen enkele vorm aansprakelijk voor eventuele statsverslaving, opgeblazen processoren, RSI-patiënten ed.
;Laat uw dank blijken door te flushen op email addres: randstad-koe@isnummer1.nl }:O
;En zo ons subteam "De Randstad Koeien" te joinen ;)
;Voor vragen/suggesties/aanvullingen/vragen over "De Randstad Koeien" en dergelijke mail ons!
;Alles in dit script mag naar hartelust gewijzigd worden, op deze Disclamer na!!!
;En daar vertrouwen we dan maar op... ;)

Virussen? Scan ze hier!

zondag 24 december 2000 20:29

Acties:

Verwijderd

Topicstarter

Nog een 'bug' gevonden en wel in versie
dnetc v2.8011-464-GTR-00110721 for Win32 (Windows 4.10).

Deze versie werkt met STATS UNITS ipv Work Units.
Lijkt me niet zo'n moeilijk probleem, maar ik ga zo ff sociaal doen op deze mooie kerstavond, ik ga nl. gezellig beneden zitten...

zondag 24 december 2000 21:26

Acties:

RubZie

Koel ik ga meteen proberen of dit allemaal een beetje werkt. Oh ja en ik ga zwaar agressief kickbannen in #DPC op deze shit, want ik haat scrippies

LOL

Usarchy: nieuws over usability en online marketing

zondag 24 december 2000 22:30

Acties:

d33n

vin dit een beetje onzin.
je kan toch ook gewoon ff cut'en en pasten uit je client?

en zo'n script vinnik wel vet irritant, tracer en DaM hebben em ook in #dpc

zondag 24 december 2000 22:48

Acties:

Chaos

Mhja.. ik denk dat ik Ruben maar ga helpen met agressief kickbannen.. het begint idd irritant te worden.

maandag 25 december 2000 12:43

Acties:

Verwijderd

Topicstarter

/me is DaM...
Maar er zit ook een echo-optie op, dus je hoeft het niet de hele tijd te laten zien...

maandag 25 december 2000 13:28

Acties:

Bigs

Voor de kerstsfeer in je mIRC:

/timerx-mas 0 0 /cline $rand(1,13) $active $rand(1,$nick($active,0))

(met /timerx-mas off gaat ie weer uit trouwens

)

dinsdag 26 december 2000 12:52

Acties:

Flapmo

and back is gigi!

Bij het invoeren wat probleempjes gehad maar dat kwam door mezelf. (of door die belabberde uitleg) Er staat eerst doe rechtermuis er staat dpc-rc5 en dan pas komen die scrippies... Tja wist ik veel dat je eerst scrippie moest invoeren .......

mzzla

"The purpose of computing is insight, not numbers." -- Richard Hamming

dinsdag 26 december 2000 12:53

Acties:

wildhagen

Blablabla

Goeie, Henk

Tikkie terug, Jaap...

Virussen? Scan ze hier!

dinsdag 26 december 2000 13:26

Acties:

Tim

Ik gebruik gewoon dit (zelf geschreven) scriptje.. Werkt perfect trouwens..

Pleur in aliases:

code:

/koe {
  /set %koelog C:\Progra~1\distributed.net\log.txt 

  /filter -ff %koelog out1.txt *completed*
  /set %koeblokjes $lines(out1.txt)
  /filter -ff %koelog out2.txt *keys/sec*
  /set %koespeed $read -l $lines(out2.txt) out2.txt
  /set %temp $pos(%koespeed,[,1)
  /set %koespeed $right(%koespeed, $calc($len(%koepspeed) - %temp + 1))

  /filter -ff %koelog out3.txt *Mkeys/s*
  /set %koespeed2 $read -l $lines(out3.txt) out3.txt
  /set %temp $pos(%koespeed2,[,1)
  /set %koespeed2 $mid(%koespeed2, $calc(%temp + 1) , $calc($len(%koepspeed2) - 1))

  /filter -ff %koelog out4.txt *sent*
  /set %koeflush $read -l $lines(out4.txt) out4.txt
  /set %koeflush $mid( %koeflush , 2, 19)

// plaats koeWU loop evt hier..

  /msg $chan 3Zeekoe [RC5] : %koeblokjes blokjes gegraasd
// plaats ( WUs: %koeWUs ) achter de regel hierboven om de resultaten van de WU loop te zien..
  /msg $chan 3Koespeed: %koespeed2 %koespeed
  /msg $chan 3Laatste flush: %koeflush

  /remove out1.txt
  /remove out2.txt
  /remove out3.txt
  /remove out4.txt

}

met /koe krijg je de resultaten..
Evtueel nog uit te breiden met:

code:

; De volgende loop telt het aantal WU's, en zorgt ervoor dat de computer 'even' hangt
  ; Hoe meer WU's hoe langer de PC niet reageert, als je lang spaart is hetmisschien slim
  ; om de loop weg te laten.. 
  /var %i 1
  /set %koeWUs 0
  /set %tot $lines(out4.txt)
  while (%i < $lines(out4.txt)) {

    /set %koeWU $read -l %i out4.txt
    /set %temp $pos(%koeWU,packets,1)
    /set %temp2 $pos(%koeWU,work,1)
    /set %temp3 $mid(%koeWU, $calc(%temp + 9) , $calc(%temp2 - 2))
    /set %koeWUs $calc( %koeWUs + %temp3)

    /inc %i 1

  }

Deze is RC5 only en je hebt een logfile nodig..

donderdag 4 januari 2001 12:19

Acties:

mees

Duuuussss...

U P D A T E
-----------
er is een nieuwe client uit (v2.8012-465-GTR-00122516) die de logs íets anders weergeeft.

snor daarom in je ALIAS even deze regeltjes op:

%dnet.temp1 = $6

wordt
%dnet.temp1 = $7

%dnet.temp1out = $6

wordt
%dnet.temp1out = $7

als het nog niet werkt, contact me (MaCe, mees): MaCe@marijse.net

8 bitterballen = 1 byterbal

zondag 18 februari 2001 14:54

Acties:

Sir Abarth

The secret word is: ToeT!

Aangezien dit script niet meer (goed) werkte bij mij, ben ik maar eens aan het scripten gegaan. Aangezien dit mijn eerste poging is met scripts, moet je maar niet te nauw kijken

Ik heb het script ook enigzins uitgebreid, maar Client Version vertraagt de boel aanzienlijk, dus die kun je eruit slopen als je dat soort (en meer als je wilt

)

Dit script is gemaakt voor Client Version v2.8012-465-GTR-01012012 for Win32 (Windows 4.10) en mIRC 5.81. Als het met andere client versions enz. ook werkt, meld het dan ff.

In je Aliasses (Alt-A):

code:

/dnetsetlogfile {
  %dnet.logfile = $file="select Distributed.net logfile" c:\
  echo $timestamp $cf.vs 02,15[14,15distributed logfile is set to02,15 %dnet.logfile $+ ]
}
/dnetout {
  %temp3out = $lines(%dnet.logfile)
  if (are !isin $read -l $+ %temp3out $shortfn(%dnet.logfile)) {
    :loop
    dec %temp3out 1
    if (%temp3out >= 1) {
      %temp2out = $read -l $+ %temp3out $shortfn(%dnet.logfile)
      if (are isin %temp2out) {
        if ($1 = say) { dnetoutresult say %temp2out }
        elseif ($1 = echo) { dnetoutresult echo %temp2out }
        else { dnetoutresult $1 %temp2out }
        goto okout
      }
      else {
        goto loop
      }
      :okout
    }
  }
  else { //dnetoutresult $1 $read -l $+ %temp3out $shortfn(%dnet.logfile) }
}
/dnetin {
  %temp3in = $lines(%dnet.logfile)
  if (remain !isin $read -l $+ %temp3in $shortfn(%dnet.logfile)) {
    :loop
    dec %temp3in 1
    if (%temp3in >= 1) {
      %temp2in = $read -l $+ %temp3in $shortfn(%dnet.logfile)
      if (remain isin %temp2in) {
        if ($1 = say) { dnetinresult say %temp2in }
        elseif ($1 = echo) { dnetinresult echo %temp2in }
        else { dnetinresult $1 %temp2in }
        goto okin
      }
      else {
        goto loop
      }
      :okin
    }
  }
  else { /dnetinresult echo $read -l $+ %temp3in $shortfn(%dnet.logfile) }
}
/dnetLT {
  %temp3LT = $lines(%dnet.logfile)
  if (keys/s !isin $read -l $+ %temp3LT $shortfn(%dnet.logfile)) {
    :loop
    dec %temp3LT 1
    if (%temp3LT >= 1) {
      %temp2Lt = $read -l $+ %temp3LT $shortfn(%dnet.logfile)
      if (keys/s isin %temp2LT) {
        if ($1 = say) { dnetLTresult say %temp2LT }
        elseif ($1 = echo) { dnetLTresult echo %temp2LT }
        else { dnetLTresult $1 %temp2LT }
        goto okin
      }
      else {
        goto loop
      }
      :okin
    }
  }
  else { /dnetLTresult echo $read -l $+ %temp3LT $shortfn(%dnet.logfile) }
}
/dnetLS {
  %temp3LS = $lines(%dnet.logfile)
  if (completed !isin $read -l $+ %temp3LS $shortfn(%dnet.logfile)) {
    :loop
    dec %temp3LS 1
    if (%temp3LS >= 1) {
      %temp2LS = $read -l $+ %temp3LS $shortfn(%dnet.logfile)
      if (completed isin %temp2LS) {
        inc %temp3LS 1
        %temp2LS = $read -l $+ %temp3LS $shortfn(%dnet.logfile)
        if ($1 = say) { dnetLSresult say %temp2LS }
        elseif ($1 = echo) { dnetLSresult echo %temp2LS }
        else { dnetLSresult $1 %temp2LS }
        goto okin
      }
      else {
        goto loop
      }
      :okin
    }
  }
  else {  inc %temp3LS 1
  /dnetLSresult echo $read -l $+ %temp3LS $shortfn(%dnet.logfile) }
}
/dnetVS {
  %temp3VS = $lines(%dnet.logfile)
  if (dnetc !isin $read -l $+ %temp3VS $shortfn(%dnet.logfile)) {
    :loop
    dec %temp3VS 1
    if (%temp3VS >= 1) {
      %temp2VS = $read -l $+ %temp3VS $shortfn(%dnet.logfile)
      if (dnetc isin %temp2VS) {
        if ($1 = say) { dnetVSresult say %temp2VS }
        elseif ($1 = echo) { dnetVSresult echo %temp2VS }
        else { dnetVSresult $1 %temp2VS }
        goto okin
      }
      else {
        goto loop
      }
      :okin
    }
  }
  else { /dnetVSresult echo $read -l $+ %temp3VS $shortfn(%dnet.logfile) }
}
/dnetoutresult {
  %dnet.temp1out = $7
  %dnet.temp2out = $remove($9,$chr(40))
  if ($1 = echo ) { echo $timestamp [12CowStats > remain in 4Buff-Out:02 %dnet.temp1out 14packets (02 $+ %dnet.temp2out 14stats units)] }
  if ($1 = say ) { say [12CowStats > remain in 4Buff-Out:02 %dnet.temp1out 14packets (02 $+ %dnet.temp2out 14stats units)] }
  if ( $1 != echo && $1 != say ) { /notice $1 [12CowStats > remain in 4Buff-Out:02 %dnet.temp1out 14packets (02 $+ %dnet.temp2out 14stats units)] }
}
/dnetinresult {
  %dnet.temp1 = $7
  %dnet.temp2 = $remove($9,$chr(40))
  if ($1 = echo ) { echo $timestamp [12CowStats > remain in 4Buff-In:02 %dnet.temp1 14packets (02 $+ %dnet.temp2 14stats units)] }
  if ($1 = say ) { say [12CowStats > remain in 4Buff-In:02 %dnet.temp1 14packets (02 $+ %dnet.temp2 14stats units)] }
  if ( $1 != echo && $1 != say ) { /notice $1 [12CowStats > remain in 4Buff-In:02 %dnet.temp1 14packets (02 $+ %dnet.temp2 14stats units)] }
  if ( %dnet.temp1 <= 50 ) { /echo $timestamp [12CowStats > 4Warning! Buff-in is Low! Less then 50 packets available!] }
  ;beide keer kan je 50 veranderen door het desgewenste getal
}
/dnetLTresult {
  %dnet.temp1LT = $remove($4,$chr(91))
  %dnet.temp2LT = $remove($5,$chr(93))
  if ($1 = echo ) { echo $timestamp [12CowStats > Average Speed: 02 $+ %dnet.temp1LT 14 $+ %dnet.temp2LT $+ ] }
  if ($1 = say ) { say [12CowStats > Average Speed: 02 $+ %dnet.temp1LT 14 $+ %dnet.temp2LT $+ ] }
  if ( $1 != echo && $1 != say ) { /notice $1 [12CowStats > Average Speed: 02 $+ %dnet.temp1LT 14 $+ %dnet.temp2LT $+ ] }
}
/dnetLSresult {
  %dnet.temp1LS = $remove($4,$chr(91))
  %dnet.temp2LS = $remove($5,$chr(93))
  if ($1 = echo ) { echo $timestamp [12CowStats > Last Speed: 02 $+ %dnet.temp1LS 14 $+ %dnet.temp2LS $+ ] }
  if ($1 = say ) { say [12CowStats > Last Speed: 02 $+ %dnet.temp1LS 14 $+ %dnet.temp2LS $+ ] }
  if ( $1 != echo && $1 != say ) { /notice $1 [12CowStats > Last Speed: 02 $+ %dnet.temp1LS 14 $+ %dnet.temp2LS $+ ] }
}
/dnetVSresult {
  %dnet.temp1VS = $remove($3-,dnetc)
  if ($1 = echo ) { echo $timestamp [12CowStats > Distributed.net Client: 02 $+ %dnet.temp1VS $+ ] }
  if ($1 = say ) { say [12CowStats > Distributed.net Client: 02 $+ %dnet.temp1VS $+ ] }
  if ( $1 != echo && $1 != say ) { /notice $1 [12CowStats > Distributed.net Client: 02 $+ %dnet.temp1VS $+ ] }
}
;DISCLAMER:
;© MaCe (mace@marijse.net) met dank aan DaMaster (dpc_damaster@hotmail.com)
;Wij zijn in geen enkele vorm aansprakelijk voor eventuele statsverslaving, opgeblazen processoren, RSI-patiënten ed.
;Laat uw dank blijken door te flushen op email addres: randstad-koe@isnummer1.nl }:O
;En zo ons subteam "De Randstad Koeien" te joinen ;)
;Voor vragen/suggesties/aanvullingen/vragen over "De Randstad Koeien" en dergelijke mail ons!
;Alles in dit script mag naar hartelust gewijzigd worden, op deze Disclamer na!!!
;En daar vertrouwen we dan maar op... ;)
;Aangepast en uitgebreid door Sir Abarth op 18feb2001

In je Remote (Alt-R):

code:

menu channel {

  DPC RC5-64
  .DPC - rc5 [Set Logfile]:/dnetsetlogfile
  .DPC - rc5 Echo
  ..Echo Stats (All):/dnetVS echo | /dnetout echo | /dnetin echo | /dnetLT echo | /dnetLS echo
  ..-
  ..Echo Client Version:/dnetVS echo
  ..Echo StatsOut:/dnetout echo
  ..Echo StatsIn:/dnetin echo
  ..Echo Average:/dnetLT echo
  ..Echo Last Speed:/dnetLS echo
  ..-
  .DPC - rc5 Say
  ..Say Stats (All):/dnetVS say | /dnetout say | /dnetin say | /dnetLT say | /dnetLS say
  ..-
  ..Say Client Version:/dnetVS say
  ..Say StatsOut:/dnetout say
  ..Say StatsIn:/dnetin say
  ..Say Average:/dnetLT say
  ..Say Last Speed:/dnetLS say
  ..-
}
on *:TEXT:*!koe*:*: {
  //dnetVS $nick
  //dnetout $nick
  //dnetin $nick
  //dnetLT $nick
  //dnetLS $nick
}
;DISCLAMER:
;© MaCe (mace@marijse.net) met dank aan DaMaster (dpc_damaster@hotmail.com)
;Wij zijn in geen enkele vorm aansprakelijk voor eventuele statsverslaving, opgeblazen processoren, RSI-patiënten ed.
;Laat uw dank blijken door te flushen op email addres: randstad-koe@isnummer1.nl }:O
;En zo ons subteam "De Randstad Koeien" te joinen ;)
;Voor vragen/suggesties/aanvullingen/vragen over "De Randstad Koeien" en dergelijke mail ons!
;Alles in dit script mag naar hartelust gewijzigd worden, op deze Disclamer na!!!
;En daar vertrouwen we dan maar op... ;)
;Aangepast en uitgebreid door Sir Abarth op 18feb2001

Ik hoop dat deze ook met andere client versions werkt...iemand testen?

ToeTerdeToeTToeT! | May the ToeT be with you | There is no ToeT | specs
Still the gentleman ;)
[Clan of ToeT]

zaterdag 23 juni 2001 17:03

Acties:

Martink

ken niemand dat script als download zetten?
als ik kopieer komt alles achter elkaar

zaterdag 23 juni 2001 21:22

Acties:

Robinski

A.K.A. RHarmsen

ff op de Qoute knop dukken en dan uit de TEXTBOX knippen

10xAXItec AC-265P = 2,650kWp @ SolarEdge SE2200 - PVOutput

donderdag 23 januari 2003 17:57

Acties:

Verwijderd

ik probeerde zeld om het aan te passen naar rc72 de buff-inn kreeg ik wel voor elkaar maar de bufout niet. Was er toevallig al iemand die wel weet hoe dit werkt of het script zelf al aangepast heeft?

Mijn dank zou groot zijn

/edit Zpelvouten

[ Voor 5% gewijzigd door Verwijderd op 23-01-2003 17:58 ]

donderdag 23 januari 2003 18:46

Acties:

Mobster

Los Alcoholicos

Sodeju! Ik dacht al, het is toch lang geen kerst meer

Toch maar eens een andere sig bedenken :P

donderdag 23 januari 2003 23:18

Acties:

Verwijderd

Moet je eens naar het jaartal kijken

Ouwe koe topic twee van de week

vrijdag 24 januari 2003 00:30

Acties:

mees

Duuuussss...

Hmz, das lang geleden... ik zal er van t weekend eens naar kijken...

dus heb geduld

8 bitterballen = 1 byterbal

vrijdag 24 januari 2003 09:40

Acties:

Cow_tipping

On the run for D.B.!

Mobster schreef op 23 January 2003 @ 18:46:
Sodeju! Ik dacht al, het is toch lang geen kerst meer

slapert!

En het feit dat de smilies niet werkten deed bij jou geen (kerst-)belletje rinkelen?

“The first principle is that you must not fool yourself, and you are the easiest person to fool.“

vrijdag 24 januari 2003 09:56

Acties:

Mobster

Los Alcoholicos

Cow_tipping schreef op 24 januari 2003 @ 09:40:
[...]

slapert!
En het feit dat de smilies niet werkten deed bij jou geen (kerst-)belletje rinkelen?

Ik had het over het topic TipperT