theworldofdreams.com

Drocket you and bigbadwolf2022 came up with a super cool level up system which I would like to implement into my shard, but mine is much easier. (I think?)
Instead of getting points to put into all your skills and then actually distributing them, I just want each level up to add 1 whole point to all your prim/sec/trade skills, and 1 point to str/dex/int.

Could you please help me out on this one?

Thank you.

Are you busy or on vacation or what? Havent seen a response from you in a few days.

I suspect he is busy. Just be patient.

Sorry, just a combination of laziness and busyness

Let me see, the last thing I posted about the level system stuff was an AwardExperience function that makes points available to spend. Quick copy-n-paste here so we're all on the same page:

Code: Select all

function AwardExperience (character, newxp)
newxp := CINT (newxp);
if (!character or !newxp)
return;
endif

set_critical (1);
var oldxp := GetObjProperty (character, "experience");
if (!oldxp)
oldxp := 0;
endif
var totalxp := oldxp + newxp;

var xpneeded := GetExperienceForNextLevel (character);
if (totalxp >= xpneeded)
//We're going to level up
var currentlevel := GetObjProperty (character, "experiencelevel");
currentlevel := currentlevel + 1;
SetObjProperty (character, "experiencelevel), currentlevel);
totalxp := totalxp - xpneeded;

SendSysMessage (character, "Welcome to level " + currentlevel + "!");

var pointsavailable := GetObjProperty (character, "pointsavailable");
if (!pointsavailable)
pointsavailable := 0;
endif
pointsavailable := pointsavailable + 10;
SetObjProperty (character, "pointsavailable", pointsavailable);
endif

SetObjProperty (character, "experience", totalxp);
set_critical (0);

endfunction

(nothing new yet, that's just the old code)

Just to make it a bit easier to work on, I'm going to split out the level up stuff from the award experience function and just make that its own level:

Code: Select all

function AwardExperience (character, newxp)
newxp := CINT (newxp);
if (!character or !newxp)
return;
endif

set_critical (1);
var oldxp := GetObjProperty (character, "experience");
if (!oldxp)
oldxp := 0;
endif
var totalxp := oldxp + newxp;

var xpneeded := GetExperienceForNextLevel (character);
if (totalxp >= xpneeded)
//We're going to level up
var currentlevel := GetObjProperty (character, "experiencelevel");
currentlevel := currentlevel + 1;
SetObjProperty (character, "experiencelevel), currentlevel);
totalxp := totalxp - xpneeded;

SendSysMessage (character, "Welcome to level " + currentlevel + "!");
//Replaced this section here with the new code
AwardPointsForLevelUp (character);
endif
endif

SetObjProperty (character, "experience", totalxp);
set_critical (0);

endfunction

Ok, so now we make a new AwardPointsForLevelUp (character) function, which will add one point to your skills and stats. That would look something like this:

Code: Select all

function AwardPointsForLevelUp (character)
var basestr := CINT (GetAttributeBaseValue (character, "Strenth")/10);
var maxstr := GetObjProperty (character, "maxstr");
if (!maxstr)
maxstr := 75;
endif

basestr := basestr + 1;
if (basestr > maxstr)
basestr := maxstr;
endif
SetAttributeBaseValue (character, "Strength", basestr*10);

//Do the exact same thing for int and dex

//now for skills
//be sure you include skills.inc and attributes.inc
var specs := LoadSpecializations (character);
for i := 1 to 3
var skillid := specs[i];
if (skillid or skillid == 0)
var skillval := CINT (GetAttributeBaseValue (character, GetAttributeIDBySkillid (skillid))/10);
skillval := skillval + 1;
if (skillval > 100)
skillval := 100;
endif
SetAttributeBaseValue (character, GetAttributeIDBySkillID (skillid), skillval * 10);
endif
endfor

//secondaries
for i := 4 to 6
var skillid := specs[i];
if (skillid or skillid == 0)
var skillval := CINT (GetAttributeBaseValue (character, GetAttributeIDBySkillid (skillid))/10);
skillval := skillval + 1;
if (skillval > 80)
skillval := 80;
endif
SetAttributeBaseValue (character, GetAttributeIDBySkillID (skillid), skillval * 10);
endif
endfor

//the tradeskill
var skillid := specs[7];
if (skillid or skillid == 0)
var skillval := CINT (GetAttributeBaseValue (character, GetAttributeIDBySkillid (skillid))/10);
skillval := skillval + 1;
if (skillval > 100)
skillval := 100;
endif
SetAttributeBaseValue (character, GetAttributeIDBySkillID (skillid), skillval * 10);
endif

endfunction


As normal, none of this is tested in any way

No... I have ADHD, and no I am not kidding, so patience is something I do not have.

Thanks for the code, I will try to put it in as soon as I can.

I checked ot drocket.net and your links. Is there a NEWBY (like an idiot guide) guide for pol? I thought I could do some stuff but I just cant. Its too... weird.

Thanks again.

This was wrong.. ALL wrong. I messed up and it caused a lot of errors, and I mean A LOT!
I will add all the info you need in my next post. I got it down to a few errors, not 50 like before.

(I edited this post. I posted a bunch of wrong info here. All mistakes were made by me. I should learn how to check stuff before I post utter crap. )

These are the errors that I am getting.

Function SetObjProperty: Parameter property_value_strin_only was not passed, and there is no defualt.
Erro in getting arguments for function SetObjProperty
Error compiling statement starting at File : ... /include/experience.inc, line 18.
Error compiling statement at .../include/experience.inc, Line 17
Error in function 'AwardExperience, Fule ...//include/experience.inc, line 22


Ok so we got it down to under 10 errors! HEY HEY lol.

Thank you for all your help!
In the next 2 posts I will put my experience.inc and my death.src files. Can you please go over them and tell me what I did wrong?

Thanks!

I dont know if you just forget the " or if its really supposed to be like that, but I cant seem to find anything else thats wrong with the script.


SetObjProperty (character, "experiencelevel), currentlevel);

The "experiencelevel
does it need a close "?
I tried it both ways. Still nothing.

It definitely should be a quotation mark instead of a parethesis. As I said, I really didn't test anything

Thats the ONLY thing I could find that was wrong, but I still get those errors I posted and it doesnt compile.
Any clue as to whats up?
I posted my EXP and DEATH scripts above.
If you can find anything worng, please post it.

I think this should do it:

Code: Select all

   function AwardExperience (character, newxp)
newxp := CINT (newxp);
if (!character or !newxp)
return;
endif

set_critical (1);
var oldxp := GetObjProperty (character, "experience");
if (!oldxp)
oldxp := 0;
endif
var totalxp := oldxp + newxp;

var xpneeded := GetExperienceForNextLevel (character);
if (totalxp >= xpneeded)
//We're going to level up
var currentlevel := GetObjProperty (character, "experiencelevel");
currentlevel := currentlevel + 1;
SetObjProperty (character, "experiencelevel", currentlevel);
totalxp := totalxp - xpneeded;

SendSysMessage (character, "Welcome to level " + currentlevel + "!");
//Replaced this section here with the new code
AwardPointsForLevelUp (character);
endif


SetObjProperty (character, "experience", totalxp);
set_critical (0);

endfunction

Thanks a ton for the quick response. I'll see if it'l chomp this time.
P.S.
What are you still doing up? I have an excuse. Im addicted to UO and these boards

Lol thanks again.

With the 095 upgrade the lvl system is not working. It compiles and everything looks fine. I have a monster that I assigned an exp value to. Whenever he is killed, it jsut says I have gained virtue. Ill post my death.src and exp.inc.
I have no idea how it would compile but do nothing...