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
.createpentagram

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

 .createpentagram 
Author Message
westrupp



Joined: 01 Aug 2007
Posts: 26
Location: Brazil
PostPosted: Wed Mar 26, 2008 3:01 pm    Post subject: .createpentagram Reply with quote
Code:

use uo;
use os;

include "include/logger";

program MakePent( who )

   var x := who.x;
   var y := who.y - 5;
   var z := who.z;

var item := TargetCoordinates( who );
   
item:=CreateItemAtLocation( (x + 2) , (y + 7) , z , 0x1CF1 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 1) , (y + 7) , z , 0x1CF2 , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  x      , (y + 7) , z , 0x1CF3 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x - 1) , (y + 7) , z , 0x1CF4 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x - 2) , (y + 7) , z , 0x1CF5 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x - 2) , (y + 6) , z , 0x1CF6 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x - 2) , (y + 5) , z , 0x1CF7 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x - 2) , (y + 4) , z , 0x1CF8 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x - 2) , (y + 3) , z , 0x1CF9 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x - 1) , (y + 3) , z , 0x1CFA , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x - 1) , (y + 2) , z , 0x1CFB , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  x      , (y + 2) , z , 0x1CFC , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 1) , (y + 2) , z , 0x1CFD , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 2) , (y + 2) , z , 0x1CFE , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 3) , (y + 2) , z , 0x1CFF , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 3) , (y + 3) , z , 0x1D00 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 3) , (y + 4) , z , 0x1D01 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 3) , (y + 5) , z , 0x1D02 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 3) , (y + 6) , z , 0x1D03 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 2) , (y + 6) , z , 0x1D04 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 1) , (y + 6) , z , 0x1D05 , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  x      , (y + 6) , z , 0x1D06 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x - 1) , (y + 6) , z , 0x1D07 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x - 1) , (y + 5) , z , 0x1D08 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x - 1) , (y + 4) , z , 0x1D09 , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  x      , (y + 3) , z , 0x1D0A , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 1) , (y + 3) , z , 0x1D0B , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 2) , (y + 3) , z , 0x1D0C , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 2) , (y + 4) , z , 0x1D0D , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 2) , (y + 5) , z , 0x1D0E , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 1) , (y + 5) , z , 0x1D0F , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  x      , (y + 5) , z , 0x1D10 , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  x      , (y + 4) , z , 0x1D11 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (x + 1) , (y + 4) , z , 0x1D12 , 1 );
item.movable := 0;
   
Endprogram


the script compile normal but say ingame cmd dont exist...what i making wrong?

Thanks,[/code]

  
Author Message
coltain



Joined: 20 Mar 2007
Posts: 96
Location: Poland
PostPosted: Wed Mar 26, 2008 3:22 pm    Post subject: Reply with quote
is it in text command directory???

  
Author Message
Pierce



Joined: 02 Feb 2006
Posts: 256
PostPosted: Wed Mar 26, 2008 5:02 pm    Post subject: Reply with quote
Where is this script located?
If it is in e.g. scripts/textcmd/"whatevercmdlevel/" you can use it once it is there. If it is in something like another pkg like e.g. pkg/whatever/textcmd/"whatevercmdlevel/" the new command needs a server restart.
That's at least my experience Very Happy

  
Author Message
*Edwards



Joined: 29 Dec 2007
Posts: 85
Location: Montreal, Canada
PostPosted: Wed Mar 26, 2008 6:13 pm    Post subject: Reply with quote
[...]
5+5 = 10
6+4 = 10
3+7 = 10
20 -10 = 10
[...]

That's the same with coding...

Code:
use uo;

program MakePent( mobile )

   var targ := Target(mobile),
         item;
   
item:=CreateItemAtLocation( targ.x+2, targ.y+7, targ.z , 0x1CF1 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+1, targ.y+7, targ.z , 0x1CF2 , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  targ.x , targ.y+7, targ.z , 0x1CF3 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-1, targ.y+7, targ.z , 0x1CF4 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( (targ.x-2, targ.y+7, targ.z , 0x1CF5 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-2, targ.y+6, targ.z , 0x1CF6 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-2, targ.y+5, targ.z , 0x1CF7 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-2, targ.y+4, targ.z , 0x1CF8 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-2, targ.y+3, targ.z , 0x1CF9 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-1, targ.y+3, targ.z , 0x1CFA , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-1, targ.y+2, targ.z , 0x1CFB , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  targ.x, targ.y+2, targ.z , 0x1CFC , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+1, targ.y+2, targ.z , 0x1CFD , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+2, targ.y+2, targ.z , 0x1CFE , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+3, targ.y+2, targ.z , 0x1CFF , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+3, targ.y+3, targ.z , 0x1D00 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+3, targ.y+4, targ.z , 0x1D01 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+3, targ.y+5, targ.z , 0x1D02 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+3, targ.y+6, targ.z , 0x1D03 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+2, targ.y+6, targ.z , 0x1D04 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+1, targ.y+6, targ.z , 0x1D05 , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  targ.x, targ.y+6, targ.z , 0x1D06 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-1, targ.y+6, targ.z , 0x1D07 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-1, targ.y+5, targ.z , 0x1D08 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-1, targ.y+4, targ.z , 0x1D09 , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  targ.x, targ.y+3, targ.z , 0x1D0A , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+1, targ.y+3, targ.z , 0x1D0B , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+2, targ.y+3, targ.z , 0x1D0C , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+2, targ.y+4, targ.z , 0x1D0D , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+2, targ.y+5, targ.z , 0x1D0E , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+1, targ.y+5, targ.z , 0x1D0F , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  targ.x, targ.y+5, targ.z , 0x1D10 , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  targ.x, targ.y+4, targ.z , 0x1D11 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+1, targ.y+4, targ.z , 0x1D12 , 1 );
item.movable := 0;
   
Endprogram


Last edited by *Edwards on Thu Mar 27, 2008 7:29 pm; edited 1 time in total

  
Author Message
westrupp



Joined: 01 Aug 2007
Posts: 26
Location: Brazil
PostPosted: Wed Mar 26, 2008 11:36 pm    Post subject: Reply with quote
Code:

use uo;

program MakePent( mobile, item )

   var targ := Target(mobile); 
   
item:=CreateItemAtLocation( targ.x+2, targ.y+7, targ.z , 0x1CF1 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+1, targ.y+7, targ.z , 0x1CF2 , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  targ.x , targ.y+7, targ.z , 0x1CF3 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-1, targ.y+7, targ.z , 0x1CF4 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-2, targ.y+7, targ.z , 0x1CF5 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-2, targ.y+6, targ.z , 0x1CF6 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-2, targ.y+5, targ.z , 0x1CF7 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-2, targ.y+4, targ.z , 0x1CF8 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-2, targ.y+3, targ.z , 0x1CF9 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-1, targ.y+3, targ.z , 0x1CFA , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-1, targ.y+2, targ.z , 0x1CFB , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  targ.x, targ.y+2, targ.z , 0x1CFC , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+1, targ.y+2, targ.z , 0x1CFD , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+2, targ.y+2, targ.z , 0x1CFE , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+3, targ.y+2, targ.z , 0x1CFF , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+3, targ.y+3, targ.z , 0x1D00 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+3, targ.y+4, targ.z , 0x1D01 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+3, targ.y+5, targ.z , 0x1D02 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+3, targ.y+6, targ.z , 0x1D03 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+2, targ.y+6, targ.z , 0x1D04 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+1, targ.y+6, targ.z , 0x1D05 , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  targ.x, targ.y+6, targ.z , 0x1D06 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-1, targ.y+6, targ.z , 0x1D07 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-1, targ.y+5, targ.z , 0x1D08 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x-1, targ.y+4, targ.z , 0x1D09 , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  targ.x, targ.y+3, targ.z , 0x1D0A , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+1, targ.y+3, targ.z , 0x1D0B , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+2, targ.y+3, targ.z , 0x1D0C , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+2, targ.y+4, targ.z , 0x1D0D , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+2, targ.y+5, targ.z , 0x1D0E , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+1, targ.y+5, targ.z , 0x1D0F , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  targ.x, targ.y+5, targ.z , 0x1D10 , 1 );
item.movable := 0;
item:=CreateItemAtLocation(  targ.x, targ.y+4, targ.z , 0x1D11 , 1 );
item.movable := 0;
item:=CreateItemAtLocation( targ.x+1, targ.y+4, targ.z , 0x1D12 , 1 );
item.movable := 0;
   
Endprogram


Thanks Edwards, work fine...i put items variable in top and fix something in line 15, Thanks again...

PS.: this is cmd to create big large pentagram put in scripts\textcmd\gm

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

 




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