Code: Select all

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

Code: Select all

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