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
Servers up, need scripting help.

 
Post new topic   Reply to topic    PenUltima Online Forum Index -> General Help (095)
Display posts from previous:   

Author Message
Lunne



Joined: 08 Apr 2006
Posts: 25

PostPosted: Mon Apr 17, 2006 11:33 am    Post subject: Servers up, need scripting help. Reply with quote

Hi!
The Servers kind of working fine now, but we need some things.

I would like to know how to make an item, that when used creates something in your backpack. Maybe this is a script, but I dont think it would be very hard for a scripter to make this. Maybe it can be done with a command, I dont know.

I would for example want a statue, that when doubleclicked sets ALL your skills to 100, and creates a full armor in your backpack, along with a full spellbook, and like 100 of each reagent.


Also, I would like to know how to set a timer on a gate.
My shard is a temporary PvP shard, so all players will have max skills, and I will not let them outside a small area. Therefore I would like to know how to make a 10 second timer on a gate before it teleports you, so that people cannot escape from fights so easily.

Author Message
DevGIB



Joined: 06 Feb 2006
Posts: 93

PostPosted: Mon Apr 17, 2006 12:30 pm    Post subject: Reply with quote

this is based on distro... because thats where most the scripts were stolen from Razz i was to lazy to script it all myself Smile
Code:
use os;
use uo;

const UOBJ_REG_START := 0xf78;
const UOBJ_REG_END := 0xf91;

include "include/client";
include "include/attributes";

program use_stone(who)
setskills(who, 100);
makeregs(who, 100);
spellbook(who);
makearmour(who);
endprogram


function setskill( who, amount )
var i;
for (i := 0; i <= SKILLID__HIGHEST; i := i + 1)

        print( "Setting Skill " + i + " to "+amount );
        var res := SetBaseSkillBaseValue( who, i, amount*10 );
        if (res == error)
            SendSysMessage( who, "Unable to set skill: " + res.errortext );
        else
            SendSysMessage( who, "New Effective Skill: " + GetEffectiveSkill(who,i) );
        endif
    endfor
endfunction

function makeregs(who, amount)
  amount := CInt(amount);
  if(!amount)
    amount := 20;
  endif
  var backpack := CreateItemInBackpack(who, "backpack", 1);
  backpack.color := 0x3;
  foreach thing in array( 0x0f7a, 0x0f7b, 0x0f84, 0x0f85, 0x0f86, 0x0f88, 0x0f8c, 0x0f8d )
    CreateItemInContainer(backpack, thing, amount);
  endforeach
endfunction

function spellbook( who )
//create normal book
    var book := CreateItemInBackpack(who,0x0efa, 1);
    var i;
    for (i := 0x1f2d; i <= 0x1f6c; i := i + 1)
        CreateItemInContainer(book,  i, 1);
    endfor

endfunction

function makearmour(who)
CreateItemInBackpack(who,0x1412, 1); //helm
CreateItemInBackpack(who,0x1415, 1); //breast
CreateItemInBackpack(who,0x1410, 1); //arms
CreateItemInBackpack(who,0x1411, 1); //legs
CreateItemInBackpack(who,0x1414, 1); //gloves
CreateItemInBackpack(who,0x1413, 1); //gorget
CreateItemInBackpack(who,0x1B76, 1); //heater shield
endfunction

Author Message
DevGIB



Joined: 06 Feb 2006
Posts: 93

PostPosted: Mon Apr 17, 2006 12:33 pm    Post subject: Reply with quote

oh and use a sleep(<time in seconds>); to make it wait eg for 10 seconds sleep(10); but i think you also need to add USE OS to make it sleep Smile

Author Message
Lunne



Joined: 08 Apr 2006
Posts: 25

PostPosted: Mon Apr 17, 2006 1:05 pm    Post subject: Reply with quote

Guys Im sorry but Im really not a scripter, can you explain what to do more exactly?

Author Message
Damien



Joined: 15 Apr 2006
Posts: 65

PostPosted: Mon Apr 17, 2006 1:57 pm    Post subject: Reply with quote

Hi Lunne -_-

Author Message
Lunne



Joined: 08 Apr 2006
Posts: 25

PostPosted: Mon Apr 17, 2006 2:01 pm    Post subject: Reply with quote

Hello Damien

Author Message
DevGIB



Joined: 06 Feb 2006
Posts: 93

PostPosted: Mon Apr 17, 2006 10:32 pm    Post subject: Reply with quote

http://forums.polserver.com/viewtopic.php?p=1233#1233

that link will take you to a package i made for you to do exactly what you want with a few minor changes. please feel free to download it and use it.

Author Message
Lunne



Joined: 08 Apr 2006
Posts: 25

PostPosted: Tue Apr 18, 2006 4:41 am    Post subject: Reply with quote

Thanks a lot!

Author Message
Lunne



Joined: 08 Apr 2006
Posts: 25

PostPosted: Tue Apr 18, 2006 4:41 am    Post subject: Reply with quote

By the way, how can I make it so you also get a tamed horse?

Author Message
Lunne



Joined: 08 Apr 2006
Posts: 25

PostPosted: Tue Apr 18, 2006 5:10 am    Post subject: Reply with quote

Erm Which file should I change stuff in. I changed stuff in use_statue.src but it didnt affect anything.

Author Message
DevGIB



Joined: 06 Feb 2006
Posts: 93

PostPosted: Tue Apr 18, 2006 5:28 am    Post subject: Reply with quote

itemdesc is where you wanna change the looks of the item and color etc
asfor the mount add this line in use_statue.src in the program use_statue

Code:
EquipItem(who,0x3ea2);

Author Message
Lunne



Joined: 08 Apr 2006
Posts: 25

PostPosted: Tue Apr 18, 2006 5:40 am    Post subject: Reply with quote

Thanks! But I also want to create a some weapons in the backpack.If you have MSN it would rock to get it, so I dont have to wait 2 hours for each answer.

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

 




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