NEcRoPhEuS
Messages postés1Date d'inscriptionvendredi 21 mars 2003StatutMembreDernière intervention11 septembre 2003
-
11 sept. 2003 à 13:46
cs_jhd
Messages postés338Date d'inscriptionmardi 13 août 2002StatutMembreDernière intervention29 novembre 2007
-
12 sept. 2003 à 13:23
J'ai trouvé sur le net un script qui est supposé mettre à jour les statistiques d'un salon et de les envoyer sur un ftp en même temps, seulement cette version date de 2000 et lorsque j'essaye de faire un update cela me dit "Cannot find mIRCstats program files" je suppose que ca ne fonctionne pas car le script est pas adapté aux nouvelles version de mIRC et également à la nouvelle version de mIRCstats donc si quelqu'un pouvait regarder ce qui ne va pas dans ce script car pour ma part je m'y connais pas assez :s
[ MSTATS.MRC ]
dialog ms.config {
title "mIRCstats Automation Control Panel"
size -1 -1 640 370
box "", 50, 5 335 630 27,
text "Welcome to mIRCstats Automation Control Panel", 51, 12 345 433 15,
}
on 1:DIALOG:ms.config:init:0 {
did -o ms.config 103 1 $readini mircstats.ini Global FreqHour
did -o ms.config 106 1 $readini mircstats.ini Global FreqDay
if ($readini mircstats.ini Global FreqType == h) {
did -u ms.config 106
did -b ms.config 106
did -c ms.config 102
}
else {
did -u ms.config 103
did -b ms.config 103
did -c ms.config 105
}
did -o ms.config 201 1 $readini mircstats.ini Global Program
if ($readini mircstats.ini Global State == a) { did -c ms.config 203 }
if ($readini mircstats.ini Global Reuse == 1) { did -c ms.config 204 }
set %ms.chans $readini mircstats.ini Global Chans
if (%ms.chans != $null) {
set %ms.chancount $numtok(%ms.chans, 44)
:ms.cPchanloop
did -a ms.config 303 $gettok(%ms.chans, %ms.chancount, 44)
dec %ms.chancount
if (%ms.chancount > 0) { goto ms.cPchanloop }
unset %ms.chan*
did -f ms.config 1
}
did -c ms.config 326
/ms.botstate d
}
on 1:DIALOG:ms.config:sclick:*: {
if ($did == 102) {
if ($did(102).state == 1) {
did -e ms.config 103
did -u ms.config 106
did -b ms.config 106
}
}
if ($did == 105) {
if ($did(105).state == 1) {
did -e ms.config 106
did -u ms.config 103
did -b ms.config 103
}
}
if ($did == 202) { .timer -m 1 1 /ms.browse 201 Select Location of mIRCstats program file: }
if ($did == 303) {
if ($did(302).text != $null) { /ms.saveChan $did(302).text }
/ms.loadChan $did(303, $did(303, 1).sel).text
}
if ($did == 304) { /ms.saveChan $did(302).text }
if ($did == 305) { /ms.delChan $did(302).text $did(303, 1).sel }
if ($did == 306) {
unset %ms.dAfullupdate
if ($did(329).state == 1) { /ms.botdownload $did(302).text }
else { /ms.update $did(302).text }
}
if ($did == 307) {
unset %ms.dAfullupdate
if ($readini mircstats.ini $did(302).text ftpState == e) { /ms.upload $did(302).text }
}
if ($did == 320) { .timer -m 1 1 /ms.browse 319 Select Location of Log file for this channel: }
if ($did == 323) { .timer -m 1 1 /ms.browse 322 Select Location of .html file for this channel: }
if ($did == 324) { if (($did(324).state 1) && ($did(337).state 0)) { did -e ms.config 325 } if (($did(324).state 0) && ($did(337).state 0)) { did -b ms.config 325 }
}
if ($did == 337) { if (($did(337).state 1) && ($did(324).state 0)) { did -e ms.config 325 } if (($did(337).state 0) && ($did(324).state 0)) { did -b ms.config 325 }
}
if ($did == 326) {
if ($did(326).state == 1) { /ms.ftpstate e }
else { /ms.ftpstate d }
}
if ($did == 329) {
if ($did(329).state == 1) { /ms.botstate e }
else { /ms.botstate d }
}
if ($did == 401) { set %ms.FUnotbytimer 1 | /ms.doall }
if ($did == 402) { /ms.saveOpts }
if ($did == 404) { run http://mAC.scriptmania.com/helplink.html }
if ($did == 1) {
/ms.saveOpts
/ms.saveChan $did(302).text
if ($did(203).state == 1) { /ms.enable }
else { /ms.disable }
}
}
on 1:DIALOG:ms.config:edit:*: {
if ($did == 302) {
if (($chr(44) !isin $did(302).text) && ($left($did(302).text, 1) == $chr(35)) && ($len($did(302).text) > 1)) {
set %ms.ceChanList $readini mircstats.ini Global Chans
if ($istok(%ms.ceChanList, $did(302).text, 44) == $false) { /ms.newChan $did(302).text }
unset %ms.ceChanList
}
if ($did == 335) {
set %ms.botLogName $did(335).text
set %ms.botLogName $gettok(%ms.botLogName, $numtok(%ms.botLogName, 47), 47)
did -o ms.config 319 1 $mircdir $+ %ms.botLogName
unset %ms.botLogName
}
}
}
on 1:CONNECT: {
if ($readini mircstats.ini Global State == a) { ms.enable }
}
on 1:TEXT:*:#: { if (($1 !nextupdate) && ($ms.isInChans($chan) $true)) {
set %ms.nUtemp $readini mircstats.ini Global LTS
set %ms.nUtemp $gettok(%ms.nUtemp, 2, 32)
if ($timer(.ms.enable) != $null) { set %ms.nUtemp $calc((%ms.nUtemp + $timer(.ms.enable).delay) - $ctime) }
elseif ($timer(.ms.autoupdate) != $null) { set %ms.nUtemp $calc((%ms.nUtemp + $timer(.ms.autoupdate).delay) - $ctime) }
notice $nick 2[12m10A12C2] 6-> 14Next $chan Stats Update in $duration(%ms.nUtemp)
unset %ms.nUtemp
}
}
alias /mircstats {
if ($readini mircstats.ini Global Init == $null) { /ms.init }
dialog -m ms.config ms.config
}
alias ms.init {
writeini mircstats.ini Global Init y
writeini mircstats.ini Global FreqType h
writeini mircstats.ini Global FreqHour 1
writeini mircstats.ini Global FreqDay 1
writeini mircstats.ini Global State m
echo -s 2[12m10A12C2] 6-> 14Searching for mIRCstats.exe
set %ms.programloc $findfile($left($mircdir, 3), mircstats.exe, 1)
if (%ms.programloc != $null) {
echo -s 2[12m10A12C2] 6-> 14Found mIRCstats.exe @ %ms.programloc
writeini mircstats.ini Global Program %ms.programloc
}
else { echo -s 2[12m10A12C2] 6-> 14mIRCstats.exe not found! }
unset %ms.programloc
}
alias ms.browse {
set %ms.browsetemp $dir=" $2- " c:\
if (%ms.browsetemp != $null) { did -o ms.config $1 1 %ms.browsetemp }
unset %ms.browsetemp
}
alias ms.saveChan {
if (($chr(44) isin $1) || ($chr(35) != $left($1, 1)) || ($len($1) < 2)) { $ms.status(Error: Invalid channel name) | did -f ms.config 302 | return }
if ($did(326).state == 1) {
if ($did(309).text == $null) { $ms.status(Error: Please enter FTP hostname) | did -f ms.config 309 | return }
if ($did(311).text == $null) { $ms.status(Error: Please enter FTP username) | did -f ms.config 311 | return }
if ($did(313).text == $null) { $ms.status(Error: Please enter FTP password) | did -f ms.config 313 | return }
if ($did(315).text == $null) { $ms.status(Error: Please enter Remote Location) | did -f ms.config 315 | return }
writeini mircstats.ini $1 ftpState e
writeini mircstats.ini $1 ftpHost $did(309).text
writeini mircstats.ini $1 ftpLogin $did(311).text
writeini mircstats.ini $1 ftpPassword $did(313).text
writeini mircstats.ini $1 RemoteLocation $did(315).text
}
else { writeini mircstats.ini $1 ftpState d }
if ($did(317).text == $null) { $ms.status(Error: Please enter Configuration Filename) | did -f ms.config 317 | return } if ($did(329).state 0) { if ($did(319).text $null) { $ms.status(Error: Please enter Log Filename) | did -f ms.config 319 | return } }
if ($did(322).text == $null) { $ms.status(Error: Please enter .html Filename) | did -f ms.config 322 | return }
if ($did(329).state == 1) {
if ($did(328).text == $null) { $ms.status(Error: Please enter bot FTP hostname) | did -f ms.config 328 | return }
if ($did(331).text == $null) { $ms.status(Error: Please enter bot FTP username) | did -f ms.config 331 | return }
if ($did(333).text == $null) { $ms.status(Error: Please enter bot FTP password) | did -f ms.config 333 | return }
if ($did(335).text == $null) { $ms.status(Error: Please enter bot log path + filename) | did -f ms.config 335 | return }
writeini mircstats.ini $1 botState e
writeini mircstats.ini $1 botftpHost $did(328).text
writeini mircstats.ini $1 botLogin $did(331).text
writeini mircstats.ini $1 botPW $did(333).text
writeini mircstats.ini $1 botLog $did(335).text
writeini mircstats.ini $1 botIncLog $did(336).state
writeini mircstats.ini $1 Log $mircdir $+ $gettok($did(335).text, $numtok($did(335).text, 47), 47)
if ($did == 304) { did -o ms.config 319 1 $mircdir $+ $gettok($did(335).text, $numtok($did(335).text, 47), 47) }
}
else {
writeini mircstats.ini $1 botState d
writeini mircstats.ini $1 Log $did(319).text
}
writeini mircstats.ini $1 Config $did(317).text
writeini mircstats.ini $1 HTML $did(322).text
if ($did(325).text != $null) {
writeini mircstats.ini $1 Topic $did(325).text
writeini mircstats.ini $1 SetTopic $did(324).state
writeini mircstats.ini $1 SayTopic $did(337).state
}
else {
writeini mircstats.ini $1 SetTopic 0
writeini mircstats.ini $1 SayTopic 0
did -u ms.config 324
did -b ms.config 325
}
if ($ms.isInChans($1) == $false) {
did -a ms.config 303 $1
did -c ms.config 303 $did(303).lines
writeini mircstats.ini Global Chans $1 $+ $chr(44) $+ $readini mircstats.ini Global Chans
$ms.status(Successfully saved new [ $1 ] channel info)
}
else { $ms.status(Successfully saved [ $1 ] channel info changes) }
}
alias ms.loadChan {
did -o ms.config 302 1 $1
if ($readini mircstats.ini $1 ftpState == e) {
did -c ms.config 326
/ms.ftpstate e
}
else {
did -u ms.config 326
/ms.ftpstate d
}
did -o ms.config 309 1 $readini mircstats.ini $1 ftpHost
did -o ms.config 311 1 $readini mircstats.ini $1 ftpLogin
did -o ms.config 313 1 $readini mircstats.ini $1 ftpPassword
did -o ms.config 315 1 $readini mircstats.ini $1 RemoteLocation
did -o ms.config 317 1 $readini mircstats.ini $1 Config
did -o ms.config 319 1 $readini mircstats.ini $1 Log
did -o ms.config 322 1 $readini mircstats.ini $1 HTML
did -o ms.config 325 1 $readini -n mircstats.ini $1 Topic if (($readini mircstats.ini $1 SetTopic 1) || ($readini mircstats.ini $1 SayTopic 1)) {
if ($readini mircstats.ini $1 SetTopic == 1) { did -c ms.config 324 }
if ($readini mircstats.ini $1 SayTopic == 1) { did -c ms.config 337 }
did -e ms.config 325
}
else {
did -u ms.config 324
did -u ms.config 337
did -b ms.config 325
}
if ($readini mircstats.ini $1 botState == e) {
did -c ms.config 329
/ms.botstate e
else { did -u ms.config 336 }
}
else {
did -u ms.config 329
/ms.botstate d
}
if ($readini mircstats.ini $1 botIncLog == 1) { did -c ms.config 336 }
else { did -u ms.config 336 }
did -o ms.config 328 1 $readini mircstats.ini $1 botftpHost
did -o ms.config 331 1 $readini mircstats.ini $1 botLogin
did -o ms.config 333 1 $readini mircstats.ini $1 botPW
did -o ms.config 335 1 $readini mircstats.ini $1 botLog
$ms.status(Successfully loaded [ $1 ] channel info)
}
alias ms.delChan {
if ($1 == $null) { return }
if ($ms.isInChans($1) == $true) {
set %ms.dCchanstemp $readini mircstats.ini Global Chans
if ($numtok(%ms.dCchanstemp, 44) > 1) { writeini mircstats.ini Global Chans $remtok(%ms.dCchanstemp, $1, 1, 44) }
else { remini mircstats.ini Global Chans }
unset %ms.dCchanstemp
remini mircstats.ini $1
did -d ms.config 303 $2
}
did -r ms.config 302
did -r ms.config 309
did -r ms.config 311
did -r ms.config 313
did -r ms.config 315
did -r ms.config 317
did -r ms.config 319
did -r ms.config 322
did -r ms.config 325
did -u ms.config 324
did -u ms.config 337
did -b ms.config 325
did -c ms.config 326
/ms.ftpstate e
did -u ms.config 329
did -r ms.config 328
did -r ms.config 331
did -r ms.config 333
did -r ms.config 335
did -u ms.config 336
/ms.botstate d
$ms.status(Successfully deleted [ $1 ] channel info)
}
alias ms.newChan {
if ($did(204).state == 0) {
/ms.ftpstate e
did -c ms.config 326
did -r ms.config 309
did -r ms.config 311
did -r ms.config 313
did -r ms.config 315
did -o ms.config 317 1 settings.cfg
did -o ms.config 319 1 $logdir $+ $1 $+ .log
did -o ms.config 322 1 $nofile($did(201).text) $+ html\ $+ $right($1, -1) $+ .html
did -r ms.config 325
did -u ms.config 324
did -u ms.config 337
did -b ms.config 325
did -o ms.config 325 1 Visit the $1 stats page at [url] Last update $chr(36) $+ date(mmm dd), $chr(36) $+ time(HH:nn)
did -u ms.config 329
did -r ms.config 328
did -r ms.config 331
did -r ms.config 333
did -r ms.config 335
did -u ms.config 336
/ms.botstate d
}
did -u ms.config 303 $did(303).sel
$ms.status(New channel detected - don't forget to save!)
}
alias ms.isInChans {
set %ms.iICtemp $readini mircstats.ini Global Chans
if ($istok(%ms.iICtemp, $1, 44) == $true) { unset %ms.iICtemp | return $true }
else { unset %ms.iICtemp | return $false }
}
alias ms.saveOpts {
if ($exists($did(201).text) == $false) { $ms.status(Error: Enter mIRCstats program path and filename) | did -f ms.config 201 | halt }
writeini mircstats.ini Global Program $did(201).text
if ($did(203).state == 1) { writeini mircstats.ini Global State a }
else { writeini mircstats.ini Global State m }
writeini mircstats.ini Global Reuse $did(204).state
if ($did(102).state == 1) {
if (($did(103).text !isnum 1-23) || ($chr(46) isin $did(103).text)) { $ms.status(Error: Enter a value between 1 and 23) | did -f ms.config 103 | halt }
writeini mircstats.ini Global FreqType h
writeini mircstats.ini Global FreqHour $did(103).text
}
if ($did(105).state == 1) {
if (($did(103).text !isnum 1-28) || ($chr(46) isin $did(103).text)) { $ms.status(Error: Enter a value between 1 and 28) | did -f ms.config 106 | halt }
writeini mircstats.ini Global FreqType d
writeini mircstats.ini Global FreqDay $did(106).text
}
$ms.status(Successfully saved global options)
}
alias ms.trueState {
if ($exists( [ $mircdir $+ mircstats.ini ] ) == $false) { return N/A }
if ($readini mircstats.ini Global State == a) { return On }
else { return Off }
}
alias ms.state {
if ($exists( [ $mircdir $+ mircstats.ini ] ) == $false) { return Configure }
if ($readini mircstats.ini Global State == a) { return Disable }
else { return Enable }
}
alias ms.changestate {
if ($exists( [ $mircdir $+ mircstats.ini ] ) == $false) { /mircstats | return }
if ($readini mircstats.ini Global State == a) {
writeini mircstats.ini Global State m
ms.disable
}
else {
writeini mircstats.ini Global State a
ms.enable
}
}
alias ms.doAll {
if ($1 == $null) {
if (%ms.FUnotbytimer == $null) { writeini mircstats.ini Global LTS $date(yyyy.) $+ $ms.dayofyear($date(m), $date(d)) $+ $time(.H) $ctime }
else { unset %ms.FUnotbytimer }
set %ms.dAchanstext $readini mircstats.ini Global Chans
if (%ms.dAchanstext == $null) { $ms.status(Error: No channels defined) | unset %ms.* | return }
set %ms.dAchancount $numtok(%ms.dAchanstext, 44)
set %ms.dAcurrentchan 1
set %ms.dAfullupdate active
}
if ($timer(.ms.enable) != $null) { .timer.ms.enable off }
if ($readini mircstats.ini $gettok(%ms.dAchanstext, %ms.dAcurrentchan, 44) botState == e) { /ms.botdownload $gettok(%ms.dAchanstext, %ms.dAcurrentchan, 44) }
else { /ms.update $gettok(%ms.dAchanstext, %ms.dAcurrentchan, 44) }
}
alias ms.topic {
if ($server == $null) { return }
set %ms.ttemp $readini mircstats.ini $1 Topic
set %ms.ttemp $replace(%ms.ttemp, [url], $ms.url( [ $1 ] ))
set %ms.ttemp $replace(%ms.ttemp, ^K, $chr(3))
set %ms.ttemp $replace(%ms.ttemp, ^B, $chr(2))
set %ms.ttemp $replace(%ms.ttemp, ^U, $chr(31))
set %ms.ttemp $replace(%ms.ttemp, ^R, $chr(22))
if (($me isop $1) && ($readini mircstats.ini $1 SetTopic == 1)) {
topic $1 %ms.ttemp
}
if (($me ison $1) && ($readini mircstats.ini $1 SayTopic == 1)) {
.raw privmsg $1 : $+ %ms.ttemp
echo $1 2[12m10A12C2] 6-> 14Said in $1 $+ :99 %ms.ttemp
}
unset %ms.ttemp
}
alias ms.ftpstate {
if ($1 == e) {
did -e ms.config 309
did -e ms.config 311
did -e ms.config 313
did -e ms.config 315
}
else {
did -b ms.config 309
did -b ms.config 311
did -b ms.config 313
did -b ms.config 315
}
}
alias ms.botstate {
if ($1 == e) {
did -e ms.config 328
did -e ms.config 331
did -e ms.config 333
did -e ms.config 335
did -e ms.config 336
did -b ms.config 319
did -b ms.config 320
}
else {
did -b ms.config 328
did -b ms.config 331
did -b ms.config 333
did -b ms.config 335
did -b ms.config 336
did -e ms.config 319
did -e ms.config 320
}
}
alias ms.doallpopup {
if ($server != $null) {
set %ms.FUnotbytimer 1
/ms.doall
}
}