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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
// TMW2 Script
// Author:
// Jesusalva
// Description:
// Smith System (Player, Guild, NPC)
// Notes:
// Base for Evol MR
// This one is more crazy. Cannot be equipping target craft.
// After successful craft, we use CraftDB return code to equip() the
// new item and apply a random option bonus based on crafter skills
// eg. setequipoption(EQI_HAND_R, 1, VAR_STRAMOUNT, 5)
// We should be able to apply several bonuses for the nicest experience :3
// We should also add a movespeed bonus... So demure can specialize herself in
// crafting really fast weapons in every aspects, and this system would allow her
// to do so :> But then, maybe we should have a crafting skill where players can
// allocate status points?
// Usage: SmithSystem ({scope})
// Scopes: CRAFT_NPC, CRAFT_PLAYER, CRAFT_GUILD
// CRAFT_NPC - Unlocks all recipes
// CRAFT_PLAYER - Normal behavior
// CRAFT_GUILD - Items created will be Guild-bound
// Returns true on success, false on failure
function script SmithSystem {
// Set .scope, .knowledge and .success
.scope=getarg(0, CRAFT_PLAYER);
copyarray(.knowledge,RECIPES_EQUIPMENT,getarraysize(RECIPES_EQUIPMENT));
.success=false;
mesc l("WARNING: Strange bugs may happen if you attempt to craft an item you already have on inventory!"), 1;
setskin "craft4";
.@var$ = requestcraft(4);
.@craft = initcraft(.@var$);
.@entry = findcraftentry(.@craft, CRAFT_EQUIPMENT);
if (debug || $@GM_OVERRIDE) mes "found craft entry: " + .@entry;
if (debug || $@GM_OVERRIDE) mes "knowledge value: " + .knowledge[.@entry];
if (.@entry < 0) {
.success=false;
} else {
if (.scope == CRAFT_NPC) {
usecraft .@craft;
.@it=getcraftcode(.@entry);
getitem(.@it, 1);
.success=true;
} else if (.knowledge[.@entry] || $@GM_OVERRIDE) {
// Player craft item
usecraft .@craft;
.@it=getcraftcode(.@entry);
// Hotfix
if (CRAFTING_SCORE && !CRAFTING_SCORE_COMPLETE) {
CRAFTING_SCORE_COMPLETE=CRAFTING_SCORE*39;
Exception("Your char is corrupted, updater failed!");
}
// Mark the crafting in your score variable
CRAFTING_SCORE_COMPLETE+=getiteminfo(.@it, ITEMINFO_ELV);
// Update your score book
CRAFTING_SCORE=(CRAFTING_SCORE_COMPLETE/40);
if (.scope == CRAFT_GUILD)
getitembound(.@it, 1, 2); // Create a guild-bound item
else
getnameditem(.@it, strcharinfo(0));
if (getskilllv(TMW2_CRAFT)) {
delinventorylist(); // Needed, because we'll rely on rfind()
getinventorylist();
.@index=array_rfind(@inventorylist_id, .@it);
if (csys_Check(.@index, 75000)) {
csys_Apply(.@index);
}
}
// Get experience for the craft
.@xp=getiteminfo(.@it, ITEMINFO_SELLPRICE);
getexp .@xp+BaseLevel, (.@xp/3)+BaseLevel+JobLevel;
// Monster points too, if appliable - by your Job Level
if (MPQUEST)
Mobpt+=JobLevel;
.success=true;
} else {
.success=false;
}
}
deletecraft .@craft;
setskin "";
return .success;
}
|
