• Crafter Gate

Posted: **Fri Dec 29, 2006 6:01 pm**

Hi People,

i have a problem with a script..

craftermine.src

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?

Posted: **Sat Dec 30, 2006 4:08 pm**

thanks for help

:sad:

Posted: **Sat Dec 30, 2006 7:15 pm**

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:

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.
}
```

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

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.

Posted: **Sun Dec 31, 2006 6:27 am**

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

Posted: **Sun Dec 31, 2006 9:01 am**

error in function iscrafter (byref who)

getintarray and getstringarray is not definied..

o.O

Posted: **Sun Dec 31, 2006 5:39 pm**

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.