Toon posts:

Update: IRC Cow script

Pagina: 1
Acties:

dinsdag 23 januari 2001 16:22

Acties:
  • mees
  • Registratie: December 2000
  • Laatst online: 10-03 16:24

mees

Duuuussss...

Topicstarter
Zoals jullie misschien een tijdje geleden gemerkt hebben bestaat er een script voor mIRC waarmee je je buff-in en die zooi in mIRC kan zien/laten zien. Aangezien er in de nieuwe client heel wat console veranderingen zijn gemaakt, heb ik het script aangepast...

Voor de duidelijkheid de stappen die je moet ondernemen:
-verwijder eventueel oude script out je alias/remote
-Copy / paste de onderstaande scripts naar je alias/remote
-restart je client
-rechtermuisknop in een kanaal waar je zit
-klik op [Set DPC Logfile] en kies de logfile van je client
-rechtermuisknop in een kanaal waar je zit
-ga naar het menu van het project waar je dus aan meedoet, en maak je keuze.

simpel toch ?

Hier de code voor je ALIAS:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241

/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 {
      if (%temp3out != 1) 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 {
      if (%temp3in != 1) goto loop
      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 okLT
    }
    else {
      if (%temp3LT != 1) goto loop
    }
    :okLT
  }
}
else { /dnetLTresult echo $read -l $+ %temp3LT $shortfn(%dnet.logfile) }
}

/dnetoutresult {
%dnet.temp1out = $7
%dnet.temp2out = $remove($9,$chr(40))
if (%dnet.temp2out == are) %dnet.temp2out = 0.00
if ($1 = echo ) { echo $timestamp [3RC5 CowStats> remain in 4Buff-Out:12 %dnet.temp1out packets (12 $+ %dnet.temp2out stats units)] }
if ($1 = say ) { say [3RC5 CowStats> remain in 4Buff-Out:12 %dnet.temp1out packets (12 $+ %dnet.temp2out stats units)] }
if ( $1 != echo && $1 != say ) { /notice $1 [3RC5 CowStats> remain in 4Buff-Out:12 %dnet.temp1out packets (12 $+ %dnet.temp2out stats units)] }

}
/dnetinresult {
%dnet.temp1 = $7
%dnet.temp2 = $remove($9,$chr(40))
if (%dnet.temp2in == remain) %dnet.temp2in = 0.00
if ($1 = echo ) { echo $timestamp [3RC5 CowStats> remain in 4Buff-In:12 %dnet.temp1 packets (12 $+ %dnet.temp2 stats units)] }
if ($1 = say ) { say [3RC5 CowStats> remain in 4Buff-In:12 %dnet.temp1 packets (12 $+ %dnet.temp2 stats units)] }
if ( $1 != echo && $1 != say ) { /notice $1 [3RC5 CowStats> remain in 4Buff-In:12 %dnet.temp1 packets (12 $+ %dnet.temp2 stats units)] }
if ( %dnet.temp1 <= 50 ) { /echo $timestamp [3RC5 CowStats> 4Warning! Buff-in Low !] }
}
/dnetLTresult {
%dnet.temp1LT = $remove($4,$chr(91))
%dnet.temp2LT = $remove($5,$chr(93))
if ($1 = echo ) { echo $timestamp [3RC5 CowStats> Last: 12 $+ %dnet.temp1LT 3 $+ %dnet.temp2LT $+ ] }
if ($1 = say ) { say [3RC5 CowStats> Last: 12 $+ %dnet.temp1LT 3 $+ %dnet.temp2LT $+ ] }
if ( $1 != echo && $1 != say ) { /notice $1 [3RC5 CowStats> Last: 12 $+ %dnet.temp1LT 3 $+ %dnet.temp2LT $+ ] }
}

/dnetoutogr {
%temp3out = $lines(%dnet.logfile)
if (are !isin $read -l $+ %temp3out $shortfn(%dnet.logfile)) {
  :loopoutogr
  dec %temp3out 1
  if (%temp3out >= 1) {
    %temp2out = $read -l $+ %temp3out $shortfn(%dnet.logfile)
    if (are isin %temp2out) {
      if ($1 = say) { dnetoutresultogr say %temp2out } 
      elseif ($1 = echo) { dnetoutresultogr echo %temp2out } 
      else { dnetoutresultogr $1 %temp2out }
      goto loopdoneogr
    }
    else {
      if (%temp3out != 1) goto loopoutogr
      //echo Error: no Buff-out info in %dnet.logfile
    }
    :okoutogr
    goto loopdoneogr
    :loopdoneogr
    dec %temp3out 1
    if (%temp3out >= 1) {
      %temp2out2 = $read -l $+ %temp3out $shortfn(%dnet.logfile)
      if (Loaded isin %temp2out2) {
        if (nodes isin %temp2out2) {
          if ($1 = say) { dnetoutresultogr2 say %temp2out2 } 
          elseif ($1 = echo) { dnetoutresultogr2 echo %temp2out2 } 
          else { dnetoutresultogr2 $1 [Jan 21 22:23:46 UTC] OGR: Loaded OGRPACKET (0.00 Gnodes done) }
          goto okdoneogr
        }
      }
      else {
        if (%temp3out2 != 1) goto loopdoneogr
        //echo Error: no Buff-out (2) info in %dnet.logfile
      }
      :okdoneogr
    }
  }
  else { //dnetoutresultogr $1 $read -l $+ %temp3out $shortfn(%dnet.logfile) }
}
}
/dnetinogr {
%temp3in = $lines(%dnet.logfile)
if (remain !isin $read -l $+ %temp3in $shortfn(%dnet.logfile)) {
  :loopinogr
  dec %temp3in 1
  if (%temp3in >= 1) {
    %temp2in = $read -l $+ %temp3in $shortfn(%dnet.logfile)
    if (remain isin %temp2in) {
      if ($1 = say) { dnetinresultogr say %temp2in }
      elseif ($1 = echo) { dnetinresultogr echo %temp2in }
      else { dnetinresultogr $1 %temp2in }
      goto okinogr
    }
    else {
      if (%temp3in != 1) goto loopinogr
      //echo Error: no Buff-in info in %dnet.logfile
    }
    :okinogr
  }
}
else { /dnetinresultogr echo $read -l $+ %temp3in $shortfn(%dnet.logfile) }
}
/dnetLTogr {
%temp3LT = $lines(%dnet.logfile)
if (nodes/s] !isin $read -l $+ %temp3LT $shortfn(%dnet.logfile)) {
  :loop
  dec %temp3LT 1
  if (%temp3LT >= 1) {
    %temp2Lt = $read -l $+ %temp3LT $shortfn(%dnet.logfile)
    if (nodes/s] isin %temp2LT && $chr(44) isin %temp2LT) {
      if ($1 = say) { dnetLTresultogr say %temp2LT }
      elseif ($1 = echo) { dnetLTresultogr echo %temp2LT }
      else { dnetLTresult $1 %temp2LT }
      goto okin
    }
    else {
      if (%temp3LT != 1) goto loop
      //echo Error: no Last Transfer info in %dnet.logfile
    }
    :okin
  }
}
else { /dnetLTresultogr echo $read -l $+ %temp3LT $shortfn(%dnet.logfile) }
}

/dnetCAogr {
%temp3CA = $lines(%dnet.logfile)
if (started !isin $read -l $+ %temp3CA $shortfn(%dnet.logfile)) {
  :loop
  dec %temp3CA 1
  if (%temp3CA >= 1) {
    %temp2CA = $read -l $+ %temp3CA $shortfn(%dnet.logfile)
    if (started isin %temp2CA) {
      if ($1 = say) { dnetCAresultogr say %temp2LT }
      elseif ($1 = echo) { dnetCAresultogr echo %temp2CA }
      else { dnetCAresult $1 %temp2CA }
      goto okCA
    }
    else {
      if (%temp3CA != 1) goto loop
      //echo Error: no cruncher info in %dnet.logfile
    }
    :okCA
  }
}
else { /dnetCAresultogr $1 $read -l $+ %temp3CA $shortfn(%dnet.logfile) }
}
}
/dnetCAresultogr {
%dnet.temp1CA = $6
%dnet.temp2CA = $7
if ($1 = echo ) { echo $timestamp [3OGR CowStats >12 %dnet.temp1CA  $+ active %dnet.temp2CA $+ ] }
if ($1 = say ) { say [3OGR CowStats >12 %dnet.temp1CA  $+ active %dnet.temp2CA $+ ] }
if ( $1 != echo && $1 != say ) { /notice $1 [3OGR CowStats >12 %dnet.temp1CA  $+ active %dnet.temp2CA $+ ] }
}
/dnetoutresultogr {
%dnet.temp1out = $7
%dnet.temp2out = $remove($9,$chr(40))
if (%dnet.temp2out == are) %dnet.temp2out = 0.00
if ($1 = echo ) { echo $timestamp [3OGR CowStats > remain in 4Buff-Out:12 %dnet.temp1out packets (12 $+ %dnet.temp2out stats units)] }
if ($1 = say ) { say [3OGR CowStats > remain in 4Buff-Out:12 %dnet.temp1out packets (12 $+ %dnet.temp2out stats units)] }
if ( $1 != echo && $1 != say ) { /notice $1 [3OGR CowStats > remain in 4Buff-Out:12 %dnet.temp1out packets (12 $+ %dnet.temp2out stats units)] }
}
/dnetoutresultogr2 {
%dnet.temp1out2 = $remove($9,$chr(40))    
%dnet.temp2out2 = $10
if ($1 = echo ) { echo $timestamp [3OGR CowStats > 4Done from open packet:12 %dnet.temp1out2  $+ %dnet.temp2out2 $+ ] }
if ($1 = say ) { say [3OGR CowStats > 4Done from open packet:12 %dnet.temp1out2  $+ %dnet.temp2out2 $+ ] }
if ( $1 != echo && $1 != say ) { /notice $1 [3OGR CowStats > 4Done from open packet:12 %dnet.temp1out2  $+ %dnet.temp2out2 $+ ] }
}
/dnetinresultogr {
%dnet.temp1 = $7
%dnet.temp2 = $remove($9,$chr(40))
if ($1 = echo ) { echo $timestamp [3OGR CowStats > remain in 4Buff-In:12 %dnet.temp1 packets] }
if ($1 = say ) { say [3OGR CowStats > remain in 4Buff-In:12 %dnet.temp1 packets] }
if ( $1 != echo && $1 != say ) { /notice $1 [3OGR CowStats > remain in 4Buff-In:12 %dnet.temp1 packets] }
if ( %dnet.temp1 <= 50 ) { /echo $timestamp [3OGR CowStats > 4Warning! Buff-in Low !] }
}
/dnetLTresultogr {
%dnet.temp1LT = $remove($4,$chr(91))
%dnet.temp2LT = $remove($5,$chr(93))
if ($1 = echo ) { echo $timestamp [3OGR CowStats > Last: 12 $+ %dnet.temp1LT  $+ %dnet.temp2LT $+ ] }
if ($1 = say ) { say [3OGR CowStats > Last: 12 $+ %dnet.temp1LT  $+ %dnet.temp2LT $+ ] }
if ( $1 != echo && $1 != say ) { /notice $1 [3OGR CowStats > Last: 12 $+ %dnet.temp1LT  $+ %dnet.temp2LT $+ ] }
}

en dan hier de code voor je REMOTE:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

menu channel {
  [Set DPC Logfile]:/dnetsetlogfile
  DPC - RC5
  .Echo RC5
  ..Echo Stats (All):/dnetout echo | /dnetin echo | /dnetLT echo
  ..-
  ..Echo StatsOut:/dnetout echo
  ..Echo StatsIn:/dnetin echo
  ..Echo Last Transfer:/dnetLT echo
  ..-
  .Say RC5
  ..Say Stats (All):/dnetout say | /dnetin say | /dnetLT say
  ..-
  ..Say StatsOut:/dnetout say
  ..Say StatsIn:/dnetin say
  ..Say Last Transfer:/dnetLT say
  ..-
  DPC - OGR
  .Echo OGR
  ..Echo Stats (All):/dnetCAogr echo | /dnetoutogr echo | /dnetinogr echo | /dnetLTogr echo
  ..-
  ..Echo Active crunchers:/dnetCAogr echo
  ..Echo StatsOut:/dnetoutogr echo
  ..Echo StatsIn:/dnetinogr echo
  ..Echo Last Transfer:/dnetLTogr echo
  ..-
  .Say OGR
  ..Say Stats (All):/dnetCAogr say | /dnetoutogr say | /dnetinogr say | /dnetLTogr say
  ..-
  ..Say Active crunchers:/dnetCAogr say
  ..Say StatsOut:/dnetoutogr say
  ..Say StatsIn:/dnetinogr say
  ..Say Last Transfer:/dnetLTogr say
  ..-
}

Als je client nog geen logfile aanmaakt, kun je dat aanzetten door in je client bij Configuration het volgende in te stellen:
code:
1
2
3
4

 4) Logging Options
   1) Log file type ==> none
      New Setting --> 1
    2) File to log to ==> <logfile>

En die blokjes die in het script staan, dat is goed, dus ga niet als een leip al die blokjes weg zitten halen, want dan werkt het zeker niet :)

Suc6 ermee

(vragen? stel ze in dit topic ;))

8 bitterballen = 1 byterbal

dinsdag 23 januari 2001 16:24

Acties:

Verwijderd

Dank U MaCe :)

dinsdag 23 januari 2001 16:27

Acties:

Verwijderd

uhm... die 3 regels van vanmorgen werken ook hoor :)

dinsdag 23 januari 2001 16:27

Acties:
  • R-Jean
  • Registratie: September 1999
  • Niet online

R-Jean

tnx MaCe

ga het vanavond ff inbouwen :)

dinsdag 23 januari 2001 16:33

Acties:

Verwijderd

Op dinsdag 23 januari 2001 16:27 schreef scsi-freak het volgende:
uhm... die 3 regels van vanmorgen werken ook hoor :)
Hehe :Y)

dinsdag 23 januari 2001 16:58

Acties:
  • B-Force
  • Registratie: Mei 2000
  • Laatst online: 18:07

B-Force

Hij werkt niet met IRCN helaas :(

dinsdag 23 januari 2001 17:03

Acties:
  • mees
  • Registratie: December 2000
  • Laatst online: 10-03 16:24

mees

Duuuussss...

Topicstarter
Op dinsdag 23 januari 2001 16:27 schreef scsi-freak het volgende:
uhm... die 3 regels van vanmorgen werken ook hoor :)
ja maar zijn niet zo efficiënt als dit....enne...haalt ook alle rotzooi weg... :)

(rotzooi = [Jan 23 15:26:01 UTC] RC5: )

8 bitterballen = 1 byterbal

dinsdag 23 januari 2001 17:21

Acties:
  • scim
  • Registratie: Maart 2000
  • Laatst online: 18-03 09:18

scim

Nani?

Uhm, bij mij werkt ie wel bij ircn hoor...

dinsdag 23 januari 2001 19:23

Acties:
  • B-Force
  • Registratie: Mei 2000
  • Laatst online: 18:07

B-Force

Ik krijg dta [Set DPC Logfile] niet :'(
Iemand?

Ik heb bovenstaande gewoon c/p gedaan... :?

dinsdag 23 januari 2001 19:25

Acties:

Verwijderd

nou ik hoef het niet.

|:(

dinsdag 23 januari 2001 19:34

Acties:
  • Witlof
  • Registratie: Mei 2000
  • Laatst online: 24-05 09:35

Witlof

Op dinsdag 23 januari 2001 16:27 schreef scsi-freak het volgende:
uhm... die 3 regels van vanmorgen werken ook hoor :)
3 regels? Doe mij die maar dan :+

dinsdag 23 januari 2001 19:39

Acties:

Verwijderd

dis mooi :D:D

dinsdag 23 januari 2001 23:17

Acties:
  • Flupse
  • Registratie: Januari 2001
  • Laatst online: 13-01-2022

Flupse

werkt het bovenste nu wel of niet in ircn, want ik heb dus nu bijna de hele zooi er in staan en het werkt dus nog niet

dinsdag 23 januari 2001 23:34

Acties:

Verwijderd

Werkt niet. IrcN is een script en gooit een hoop om. Alleen mirc32.exe en mirc32.hlp zijn nog orgineel. De rest niet meer.

En aangezien ik rechtermuis knop zie. Die dus verandert is in het script zelf. Zal het niet werken.:(

Jammer....

woensdag 24 januari 2001 17:01

Acties:
  • mees
  • Registratie: December 2000
  • Laatst online: 10-03 16:24

mees

Duuuussss...

Topicstarter
dan zou het alsnog kunnen werken....gewoon alles handmatig doen:

om logfile te selecteren:
/dnetsetlogfile

om je buff-out te bekijken:
/dnetout
(en van OGR:)
/dnetoutogr

om je buff-in te bekijken:
/dnetin
(en van OGR):
/dnetinogr

om je laatste snelheid te zien:
/dnetLT
(en van OGR):
/dnetLTogr

simpel toch ?

8 bitterballen = 1 byterbal

Pagina: 1
Reageer