EQEmulator Forums - auto-train on level for the extra lazy

Page 1 of 2

Show 40 post(s) from this thread on one page

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)

- Quests::Custom (https://www.eqemulator.org/forums/forumdisplay.php?f=671)

- - auto-train on level for the extra lazy (https://www.eqemulator.org/forums/showthread.php?t=36263)

c0ncrete

01-13-2013 11:37 AM

auto-train on level for the extra lazy

lots of people seem to enjoy skill trainer and spell scriber/disc trainer npcs. since you're going to be increasing skills for free, why not just pop it in global_player.pl and trigger it when the player levels? no need to add a new spawn.

this script will increase skills to the maximum level allowed by the player's race/class/level (and only those that he/she can learn). it also automatically scribes spells and trains discs.

Code:

sub EVENT_LEVEL_UP {



    AutoTrain();



}



sub AutoTrain {



    $client->Message( 15, "Your experiences across the realm have infused you with increased power and knowledge..." );



    # set all available skills to maximum for race/class at current level

    foreach my $skill ( 0 .. 74 ) {

        next unless $client->CanHaveSkill($skill);

        my $maxSkill = $client->MaxSkill( $skill, $client->GetClass(), $ulevel );

        next unless $maxSkill > $client->GetRawSkill($skill);

        $client->SetSkill( $skill, $maxSkill );

    }



    # scribe all spells for current level

    quest::scribespells( $ulevel, $ulevel - 1 );



    # train all discs for current level

    quest::traindiscs( $ulevel, $ulevel - 1 );



}

sorvani

01-13-2013 01:09 PM

Why train level and level minus one? Those commands should accept same level as both arguments, is there a bug in them?

c0ncrete

01-13-2013 01:30 PM

not bug. not sure why i didn't just use $ulevel for both, honestly. i was probably half asleep and thought for sure i had a really good reason at the time. just tried to keep the script from attempting to scribe spells for levels 0 to current every time.

Figback65

01-17-2013 06:09 PM

When you die and lose a level and then re-ding, it checks and regives all the spells and retrains the skills again. Is there a way to put a level check or something in, so it doesnt re-apply what it already has?

c0ncrete

01-17-2013 06:20 PM

this line should be checking to verify that the max skill available at the level obtained is higher than the current raw skill before setting the skill to the new value:

Code:

next unless $maxSkill > $client->GetRawSkill($skill);

i would think that since the current skill is already at the max for the level when you re-ding, it should skip the skill in question. i believe i'd already tested this and it worked, but i can always test it again to verify.

as for the spells and discs, i'm sure it could be changed to not re-train/scribe already known items, but it would require source code modification as the work is actually done server-side and not in the script.

Figback65

01-17-2013 06:24 PM

The reason I enquired more about is, bc I have added an AA point to the level ding as well. So when they ding, u get spells, skills, and 1 AA. The death and re-ding with the AA is whats getting me. I didnt want it to let people exploit it. Also tryen to make it start at level 10.

Figback65

01-17-2013 06:38 PM

got the level requirement working, just not the delevel exploit

c0ncrete

01-17-2013 06:38 PM

fdshjakfhksf...

so the problem isn't as you described it at all. it's with your additions, correct?

thanks for the clarification.

1) use a qglobal to store the highest level the character has obtained and check the value before supplying a new aa point.
2) use a condition to check for the character's level before calling AutoTrain().

Figback65

01-17-2013 10:11 PM

Thanks for the direction. I am learning as I go :)

xplodr

05-30-2013 01:29 PM

How do I do this? I mean how do I find the file you're talking about and where would I put this coding? Also I don't want the auto skill ups business, trying to leave it still somewhat legit. Basically I would just want spells and discs.

Kingly_Krab

05-30-2013 04:22 PM

Go in to your server folder, quests, templates, find global_player.pl and add these lines to the script and save it, enter the game, and type #reloadworld to repop all zones and reload scripts world-wide.

xplodr

05-30-2013 06:20 PM

Somehow my GM 250 character is not allowed to use the #reloadworld command lol. Any idea what that's about?

Kingly_Krab

05-30-2013 06:57 PM

It may require more than 250 status, go in your database to the Commands table and check if anything requires above 250. A simple way to do so below this. If you do, set your status higher and relog.

Code:

/*Finds commands that are above 250 status.*/

SELECT * FROM `commands` WHERE `access` > 250;

xplodr

05-30-2013 11:33 PM

The only command over 250 is setstat and that's set to 255

Akkadius

05-31-2013 01:08 AM

command_add("reloadworld",NULL,255,command_reloadworld) ||

There was a time where I was a dipshit and originally implemented it with level 0. So new servers who didn't pay attention to this had this command on for regular players and could really hose up a server, that's tons of Mysql queries, quest reading depending on how many zones you have up.

It could have been 250 like the rest but I think I said something about it in coders and if someone was about to commit something to nail it up high so that's what it ended up being.

xplodr

05-31-2013 04:31 PM

Do you happen to know how to close off expansions? So I can have just vanilla open for awhile then have the others unlocked later?

Kingly_Krab

05-31-2013 05:21 PM

I replied to your question in your topic.

Mortow

06-13-2013 07:32 PM

Train only newly aquired skills?

C0ncrete, is there a way to auto train a newly acquired skill to its minimum? I know on live they auto train your skill when you reach the level that it can be trained and the character gets a message telling them they have gained a new skill. Would this require a script for each individual skill? It is really nice not having to run back to your trainer to train a new skill only to have to run back to where you were hunting.

ward3

06-22-2013 01:16 PM

Hmm, I can't seem to find global_player.pl. I see lots of player.pl files though.

Anyone know where I can find global_player.pl? Or maybe I am supposed to create one?

Thanks for your time.

Kingly_Krab

06-22-2013 01:36 PM

Ward, you can find it in quests/templates then you'll see 'global_player.pl'.

ward3

07-07-2013 08:40 PM

Hmm, has quests/templates been replaced by quests/globals? I reinstalled from scratch the other day, and now I can't find the templates directory under quests. I see a globals directory now under quests though. And it does have a global_player.pl listed.

The problem I am having is that I can't get the EVENT_LEVEL_UP to fire when I put it in the global_player.pl script. If I put the EVENT_LEVEL_UP inside player.pl for ecommons it works fine though.

Anyone have any ideas as to what I am doing wrong?

Thanks for your time.

Kingly_Krab

07-07-2013 09:41 PM

Yes, templates is now global. You may need to update your source to work with the new Perl changes.

ward3

07-07-2013 10:03 PM

Ahh, I see that in the change log now. Thanks for the information. I will get to updating. :)

ward3

07-07-2013 10:55 PM

Rockin. After updating, everything seems to be working. :)

Thanks for all of the help.

ward3

07-07-2013 11:36 PM

Probably not the place to ask this, but it is along the lines of auto adding spells on level. Sometimes when I level, I get multiple entries for the same spell.

I can't seem to delete any spells from my spell book. If I remember right, you would right click on the spell and then press the delete button. That doesn't seem to be working for me any longer.

Is there another way to delete spells? :)

Thanks for your time.

Ciraith

08-13-2014 12:12 AM

Here is what I am using to train 1 point into each skill. It unlocks the skill at the level you would normally train it by checking max skill > 0 and current skill < 1. It also gives you one point in all the generic skills even if you cant use them.

Quote:

sub EVENT_LEVEL_UP
{
foreach my $skill ( 0 .. 73 ) {
next unless $client->MaxSkill( $skill, $client->GetClass(), $ulevel ) > 0 & $client->GetRawSkill($skill) < 1;
$client->SetSkill( $skill, 1 );
}
}

Bandor

12-28-2014 12:28 PM

Is there any way of altering this to stop at a certain level?

c0ncrete

12-28-2014 12:35 PM

yes. check against $ulevel in a conditional.

Andrew425

01-11-2015 08:44 PM

I cant seem to get the auto train code to work for my server. I am using the AXClassic-PEQ Repack and have placed the code in the player.pl file and it is not working. Originally I saw the text "Your experiences across..." but nothing would happen. I am not scribing spells or maxing skills. The only skill that increases is swimming for some reason. Any help would be appreciated.

jsr	02-18-2015 07:56 AM

It will help if you post your player.pl script and where the file is located. Otherwise are you getting any errors when you load scripts? (Subscribe to errors and #reloadpl)

Azrealvect

02-25-2015 01:34 AM

Any way to make this so that it does not train trade skills?

ghanja

02-25-2015 02:16 AM

Code:

sub EVENT_LEVEL_UP {



    AutoTrain(1); ## if 1 is passed it will train trade skills

    AutoTrain(); ## will not train trade skills (



}



sub AutoTrain {



    $client->Message( 15, "Your experiences across the realm have infused you with increased power and knowledge..." );



    # set all available skills to maximum for race/class at current level

    if ($_[0]) {my @skillsarray = [0..74];}

    else {my @skillsarray = [0..54,62,66,67,70..74];}

    foreach my $skill (@skillsarray) {

        next unless $client->CanHaveSkill($skill);

        my $maxSkill = $client->MaxSkill( $skill, $client->GetClass(), $ulevel );

        next unless $maxSkill > $client->GetRawSkill($skill);

        $client->SetSkill( $skill, $maxSkill );

    }



    # scribe all spells for current level

    quest::scribespells( $ulevel, $ulevel - 1 );



    # train all discs for current level

    quest::traindiscs( $ulevel, $ulevel - 1 );



}

untested

Azrealvect

02-25-2015 11:35 AM

Ill give it a try later today thank you

dew1960

06-07-2015 03:45 PM

Quote:

Originally Posted by Kingly_Krab (Post 221302)

I know this is an old post and it may not apply to the current build so if that is the case, please let me know.

I just built a private local server to play on and learn how to use MQemulator.

Is there still a global_player.pl file somewhere because I can't find it in my server. I went into the server folder, quests, but there is no template folder there and a search of my pc only finds a reference to global_player.pl in a SQL update and a changelog.txt

Is there a way to still accomplish this on the current windows server build?

Just curious because I like the idea of this!

Kingly_Krab

06-07-2015 04:17 PM

The 'templates' folder was renamed to 'global'.

dew1960

06-07-2015 06:26 PM

Quote:

Originally Posted by Kingly_Krab (Post 240789)

The 'templates' folder was renamed to 'global'.

OK, I can see that. There is no global_player.pl but there is a global_player.lua, is that the same thing?

Kingly_Krab

06-07-2015 06:30 PM

If you're not compiling Lua, the .lua file will not work, also, the code in this thread is Perl, so you'll have to use a global_player.pl file, which may require you deleting the global_player.lua file, as Lua has precedence.

jpyou127

10-25-2015 10:07 PM

How hard would this be to add to LUA?

Celestial

Kingly_Krab

10-26-2015 01:21 PM

Very simple, it's already enabled on the CMake by default. So unless you turn it off, it should be enabled already.

NatedogEZ

10-26-2015 06:55 PM

Quote:

Originally Posted by jpyou127 (Post 244691)

How hard would this be to add to LUA?

Celestial

Try this... (might want to test it.. lol I r bad at lua)

This will train all skills except tradeskills

Code:

function event_level_up(e)

        local skills = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 48, 49, 50, 51, 52, 53, 54, 56, 62, 66, 67, 70, 71, 72, 73, 74 };

        for i, curskill in ipairs(skills) do

                local maxskill = e.self:MaxSkill(curskill);

                if (e.self:CanHaveSkill(curskill) == false) then

                        --Do nothing...

                elseif (maxskill <= e.self:GetRawSkill(curskill)) then

                        --Do nothing...

                else

                        --Train!

                        e.self:SetSkill(curskill, maxskill);

                end

        end

end

All times are GMT -4. The time now is 05:09 PM.

Page 1 of 2

Show 40 post(s) from this thread on one page