PenUltima Online Forum Index Official Core: 096.7
Official Core: 097 2008-02-26
Donate towards the POL web hosting bill!
 POL Home   FAQ   Search    Memberlist   Usergroups    Register    Profile   Log in to check your private messages   Log in
Where is Account cleaner ?

 
Post new topic   Reply to topic    PenUltima Online Forum Index -> POL Tools
 Display posts from previous 
Display posts from previous:   

 Where is Account cleaner ? 
Author Message
CrazyMan



Joined: 05 Apr 2006
Posts: 54
PostPosted: Sun Apr 16, 2006 8:12 am    Post subject: Where is Account cleaner ? Reply with quote
How i now pol cant delete account from the scripts.
Where i can find perl or some like that script for clean my accounts.txt - delete all baned accounts ?

 Re: Where is Account cleaner ? 
Author Message
Shinigami
POL Core Developer


Joined: 30 Jan 2006
Posts: 292
Location: Germany, Bavaria
PostPosted: Sun Apr 16, 2006 12:03 pm    Post subject: Re: Where is Account cleaner ? Reply with quote
CrazyMan wrote:
How i now pol cant delete account from the scripts.

...in Pol096

Shinigami

Last edited by Shinigami on Tue Apr 18, 2006 4:50 am; edited 2 times in total

  
Author Message
CrazyMan



Joined: 05 Apr 2006
Posts: 54
PostPosted: Sun Apr 16, 2006 12:06 pm    Post subject: Reply with quote
my bad english....
How i can delete all banned accounts?

  
Author Message
CrazyMan



Joined: 05 Apr 2006
Posts: 54
PostPosted: Sun Apr 16, 2006 12:08 pm    Post subject: Reply with quote
*Stupid CrazyMan...*


05-25 Shinigami
Added : Account.delete() - delete this empty account
Added : Account.split( newacctname : string, index : 1..5 )
create a new account and move character to it
Added : Account.move_char( destacctname : string, index : 1..5 )
move character from this account to destination account.
you can use it to flip chars on same account too - it's not a bug, it's a feature ;oP

Sorry...

  
Author Message
Harley



Joined: 18 Mar 2006
Posts: 92
Location: World Earth
PostPosted: Sat Apr 22, 2006 6:19 am    Post subject: Reply with quote
I am sorry, as I still noob in scripting, you could not show me how this script looks. Thanks.

  
Author Message
CrazyMan



Joined: 05 Apr 2006
Posts: 54
PostPosted: Sat Apr 22, 2006 6:38 am    Post subject: Reply with quote
Code:

use uo;
program newbie_acccleaner()

var acc_list := ListAccounts();
var account;
foreach acc_name in acc_list
    account := FindAccount(acc_name);
    account.Delete();
endforeach

endprogram

  
Author Message
Harley



Joined: 18 Mar 2006
Posts: 92
Location: World Earth
PostPosted: Sat Apr 22, 2006 6:54 am    Post subject: Reply with quote
very interesting, but! How it work? .acccleaner [acc] and nothing has occured! Tell please, how it work. Thanks.

  
Author Message
FreeSoul



Joined: 04 Feb 2006
Posts: 90
Location: Aman
PostPosted: Sat Apr 22, 2006 7:27 am    Post subject: Reply with quote
Account.delete() - delete this empty account
EMPTY account

Code:
use uo;
include "util/bank";
program acccleaner(who, name)
    var account;
    account := FindAccount(name);
    if (account)
       var char,cnt;
       for(cnt :=1; cnt <=5; cnt :=cnt+1)
          char := account.getcharacter(cnt);
          if (char)
               SendSysMessage(who, "character at slot "+cnt);
               if (WipeBankBox( char ))
                  SendSysMessage(who, "Bankbox wiped!");
               else
                  SendSysMessage(who, "no bankbox to wipe!");
               endif
               foreach thing in listequippeditems(char)
                  Destroyitem(thing);
              endforeach
              SendSysMessage(who, "equippment destroyed!");
                    account.deletecharacter(cnt);
          endif
       endfor
       account.Delete();
    else
       SendSysMessage(who,"no account with that name");
    endif
endprogram

Post new topic   Reply to topic    PenUltima Online Forum Index -> POL Tools All times are GMT - 4 Hours
Page 1 of 1

 




Powered by phpBB © 2001, 2005 phpBB Group :: Theme & Graphics by GHS & Scott E. Royalty