• Perfect EA Simulation

Posted: **Mon Aug 11, 2008 6:52 pm**

Hey I made a script that will emulate EA perfectly.

use uo;
use os;
use util;

program textcmd_lagtest( who )
	var counts := 0;
	While(counts <= 120)
		foreach charonline in EnumerateOnlineCharacters()
			MoveCharacterToLocation(charonline, charonline.x+1, charonline.y+1, charonline.z, MOVECHAR_FORCELOCATION);
		endforeach
		counts := counts + 1;
		SendSysMessage(who, "Complete: " + counts + " / 120" , color := 65 );
		Sleepms( RandomInt(1000) );
		foreach charonline in EnumerateOnlineCharacters()
			MoveCharacterToLocation(charonline, charonline.x-1, charonline.y-1, charonline.z, MOVECHAR_FORCELOCATION);
			SendSysMessage(charonline, "Complete: " + counts + " / 120" , color := 65 );
		endforeach
	endwhile
endprogram

Posted: **Mon Aug 11, 2008 7:39 pm**

A better approach is a 2 script method

Annoy.src

Code: Select all

program LagPlayer(data)
   var mobile := data[1]; // mobile
   var position := data[2]; // struct

   while ( mobile.online )
       MoveObjectToLocation(mobile, position.x, position.y, position.z, mobile.realm, MOVEOBJECT_FORCELOCATION);
        SleepMS(RandomInt(10)+1);
    endwhile

    return 1;
endprogram

StartAnnoyance.src

Code: Select all

program AnnoyThemToDeath()
     foreach mobile in ( EnumerateOnlineCharacters() )
          var pos := struct;
          pos.+x := mobile.x;
          pos.+y := mobile.y;
          pos.+z := mobile.z;
          Start_Script("Annoy", array{mobile, pos});
          SleepMS(2);
     endforeach
     return 1;
endprogram

Posted: **Mon Aug 11, 2008 10:35 pm**

*chokes with laughter*

Man oh man, when I saw these scripts, I had real tears in my eyes, laughed so hard my Wife thought I was watching monkey pr0n.

Hehe, thanks for the chuckles, Austin. Devious tho, April 1st is a long way off for my players, but still.....

Cheers
Justae

Posted: **Tue Aug 12, 2008 4:28 am**

Pfhhh Showoff. ROFL