Crafter Gate

[lokaum]

Hi People,

i have a problem with a script..

craftermine.src

Code: Select all

use os;
use uo;

include "include/classes";

program minocgate (who)

var crafter := GetObjProperty (who,"IsCrafter");

if (crafter)
MoveCharacterToLocation( who, 6001, 1519, 0 );
SendSysMessage( who, "Welcome to Crafter Area!",3,63);
else
SendSysMessage( who, "You must be qualified as a crafter to enter in the Crafter Area",3,33);
endif

endprogram

This script verify if the player is a crafter...

but i want that this script verify if the player have minimum 3 crafter skills higher 129... to can enter in arena...

can anyone help me?

[lokaum]

thanks for help

:sad:

[SMJ]

The problem is that you're expecting us to write your code for you. Most people are busy writing their own scriptbases, and don't have time to write yours for you.

But, just to push you in the right direction, what I would do is:

1. Write a config file containing the skills that I want to be considered "CraftSkills" as entrys.

   Code: Select all

   CraftSkills SkillList
   {
   	SkillID		0 // The Skill ID
   	AttributeID	Alchemy	// The Skill Name
   	// etc.
   }

2. Write an include file to externalize access to the file.
   IsCrafter.inc

   Code: Select all

   ...
   function IsCraftSkill( skill )
   	var craft_skill_cfg := ReadConfigFile("CraftSkills");
   	craft_skill_cfg := craft_skill_cfg["SkillList"];
   	var craft_skill_list;
   	if( Type(skill) == Type("") )
   		craft_skill_list := GetConfigIntArray(craft_skill_cfg,"SkillID");
   	elseif( Type(skill) == Type(0) )
   		craft_skill_list := GetConfigStringArray(craft_skill_cfg,"AttributeID");
   	endif
   
   	if( skill in craft_skill_list )
   		return 1;
   	endif
   	return 0;
   endfunction
   
   function IsCrafter(byref who)
   	var craft_skill_cfg := ReadConfigFile("CraftSkills");
   	craft_skill_cfg := craft_skill_cfg["SkillList"];
   	var craft_skill_list := GetConfigIntArray(craft_skill_cfg,"AttributeID");
   	var num_skills;
   	foreach craft_skill in craft_skill_list
   		if( GetAttribute(craft_skill) > 12900 ) // 129 * 100
   			num_skills := num_skills + 1;
   		endif
   	endforeach
   	if( num_skills >= 3 )
   		return 1;
   	endif
   	return 0;
   endfunction

3. Use it.

   Code: Select all

   ...
   // var crafter := GetObjProperty (who,"IsCrafter");
   var crafter := IsCrafter(who);
   ...

I know that I just contradicted myself and wrote it for you; but it's imperfect, and I'll leave the debugging and fixing to you.

In the future, please try harder to move away from being a Type1 POL User.

[lokaum]

it dont work

if you want... i have other script..

Code: Select all

Use os;
Use uo;

Include "include/client";
Include "include/classes";

Program Gate_Crafters( who )

    Var level;

    Foreach classe in GetClasseIds()
    EraseObjProperty( who , classe );
    level := IsFromThatClasse( who , GetClasseSkills(classe) );
    If( level )
    SetObjProperty( who, classe, level );
    Endif
    Endforeach

    Var CLvl := GetLevel( Who );

    If( IsCrafter( who ) && CLvl >= 3 )
    MoveCharacterToLocation( who, 1260, 1243, 0 );
    SendSysMessage( who, "Welcome to the Crafters Mine.", FONT_BOLD, 2600 );
    SendSysMessage( who, "This is a No-Pk/Looting Zone!", FONT_BOLD, 2611 );
    Else
    SendSysMessage( who, "You must be a Level 3 Crafter to enter.", FONT_BOLD, 2611 );
    Endif

EndProgram

Function GetLevel( Who )

    Var level;

    Foreach classe in GetClasseIds()
    EraseObjProperty( who , classe );
    level := IsFromThatClasse( who , GetClasseSkills(classe) );
    If( level )
    SetObjProperty( who, classe, level );
    Return level;
    Endif
    Endforeach

 EndFunction

[lokaum]

error in function iscrafter (byref who)

getintarray and getstringarray is not definied..

o.O

[SMJ]

Config.em Documentation.

Those two pieces are my fault; but there's only two commands in the entire core command list that resemble that, that I am aware of. And given their context, they shouldn't be hard to find.

I've already outlined your system for you; please don't expect me to perfect it for you, too.