Creating MDestroy Script

[Zaksmeer]

Trying to create a script similar to mtele but it deletes things instead of teleporting you.

I have this so far, but it tells me that "var location has not been declared".

Code: Select all

use uo;

include "include/security";

program textcmd_MDestroy( mobile )

        if( !AuthorizationCode( mobile ))
                SendSysMessage( mobile, "Cancelled." );use uo;

include "include/security";

program textcmd_Destroy( mobile )

        if( !AuthorizationCode( mobile ))
                SendSysMessage( mobile, "Cancelled." );
                return 0;
        endif

	SendSysMessage( mobile, "What do you want to destroy?" );

	var targ := TargetCoordinates( mobile ).item;
	if( !targ )
		SendSysMessage( mobile, "Cancelled." );
		return 0;
	endif

	var result := DestroyItem( targ );
	if( result.errortext )
		SendSysMessage( mobile, "DestroyItem() Error - "+result.errortext );
		return 0;
	endif

	return 1;
endprogram
                return 0;
        endif

	SendSysMessage( mobile, "What do you want to destroy?" );

	var targ := TargetCoordinates( mobile ).item;
	if( !targ )
		SendSysMessage( mobile, "Cancelled." );
		return 0;
	endif

	var result := DestroyItem( targ );
	if( result.errortext )
		SendSysMessage( mobile, "DestroyItem() Error - "+result.errortext );
		return 0;
	endif

	return 1;
endprogram 

[Austin]

Code: Select all

use uo;

program textCommand(user)
     while ( 1 )
          SendSysMessage(user, "Select item to destroy. Press escape to stop.");
     
          var targ := Target(user);
          if ( targ.IsA(POLCLASS_ITEM) )
               DestroyItem(targ);
          else
               SendSysMessage(user, "Cancelled");
               return 0;
          endif
     endwhile
endprogram

[Zaksmeer]

thanks austin.

We had a command like this back when a friend and I was working on making his shard, about 3 years ago. I just missed having it around.