/* Automatic Credits Remover (c) 1993 Wild Rabbit Productions

   Programme pour enlever des credits pour des fichiers anciens,
   ou existant deja. */

Optins failat 100
options results

/* On passe en arguments:
- No de la node (~NOD)
- Le nom du fichier avec chemin (~STA)
- La taille du fichier (~ATA)
- L'uploader (~FRO)
*/

parse arg Node File Size Uploader

do while left(Uploader,1)=' '
  Uploader=right(Uploader, length(Uploader)-1)
end

Port = 'PLINKREXX.'Node

Address value Port

putln
Put "Voulez-vous enlever des credits? (o/N) : "
Hotkey "TOUCHE NO
"
if TOUCHE='N' then Exit

Size = trunc(Size / 1000)
putln
Putln 'Le fichier a une taille de' Size 'K.'
put "Combien de credits voulez-vous enlever? (0-5) : "

Hotkey "CREDITS 012345"

if CREDITS = 0 then exit

Found=0

putln
putln "Recherche de l'utilisateur..."
putln

GetUserVar Uploader
if plinkrexx.node.pseudo ~="" then do
  putln plinkrexx.node.pseudo "a uploade pour" plinkrexx.node.byteupload "KBytes."
  putln "Deduction de" size*credits
  plinkrexx.node.byteupload = plinkrexx.node.byteupload - (size*credits)
  SetUserVar Uploader
  Found=1
end


if Found=0 then exit

putln
put 'Voulez-vous laisser un message a 'USER'? (o/N) : '
HotKey "COURRIER NO
"
putln
if COURRIER='N' then exit

putln 'Raison de la deduction de credit:'
getln "RAISON 70"

WHO "SYSOP"

Fichier = "T:TEMPO"

if ~open("FILE",Fichier,"W") then exit

writeln("FILE",'Vous avez uploade le fichier 'FILE' d''une taille de 'Size' Kbytes.')
writeln("FILE",'Votre ratio sera diminue de 'size*credits' Kbytes pour la raison suivante:')
writeln("FILE",' ')
writeln("FILE",RAISON)
writeln("FILE",' ')
writeln("FILE",SYSOP)
writeln("FILE",' ')
writeln("FILE",'** Automatic Credits Remover V1.0 (c) 1993 Wild Rabbit Productions')

close("FILE")

PLINKREXX.Node.ADDRESSEE = plinkrexx.node.pseudo
PLINKREXX.Node.SUBJECT = "Credits enleves"

MAIL Fichier

address command "delete >nil: " || Fichier

exit