-   script  modparty    -1,{
 
    OnWhisperGlobal:
        // Leave party if player has one
        if (getcharid(1))
            leaveparty;
        
        // Pause so char-server accepts data
        sleep2 1;
        
        // Make party while player does not have one
        while (!getcharid(1))
        {
            makeparty("someparty_"+ rand(1,10000));
            sleep2 1;   // Pause
        }
        
        end;
 
}