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
|
// TMW2 Scripts.
// Author:
// Jesusalva
003-2,38,34,0 script Lua#003-2 NPC_FEMALE,{
mesn;
mesq l("Hello, I act on the Alliance's behalf.");
L_Menu:
mes "";
menu
l("Ok, see you later."),L_Close,
rif(getgmlevel(), l("I need a GM set, please!")), L_GMItems,
rif(getgmlevel() && #GMEVENT_T <= gettimetick(2), l("I plan in doing an event! Give me the coins!")), L_GMEvent,
rif(getgmlevel(), l("Tell people the name of a new hero.")), L_NewHero,
l("What alliance?"),-;
mes "";
mesn;
mesq l("The Alliance which was formed after the war!");
close;
L_GMItems:
getnameditem "GMRobe", strcharinfo(0);
getnameditem "GMCap", strcharinfo(0);
logmes(strcharinfo(0)+" just took a GM set.");
logmes(strcharinfo(0)+" just took a GM set.", LOGMES_ATCOMMAND);
mes "";
mesn;
mesq lg("Here they are, miss.", "Here they are, mister.");
mes "";
goto L_Menu;
L_GMEvent:
#GMEVENT_T=gettimetick(2)+(60*60*24);
getitem "StrangeCoin", 20;
logmes(strcharinfo(0)+" just took twenty event coins.");
logmes(strcharinfo(0)+" just took twenty event coins.", LOGMES_ATCOMMAND);
mes "";
mesn;
mesq lg("Here they are, miss.", "Here they are, mister.");
mes "";
goto L_Menu;
L_NewHero:
mes "";
mes l("Current hero: @@", $MOST_HEROIC$);
input .@MH$;
logmes "Changing hero from "+$MOST_HEROIC$+" to "+.@MH$;
logmes(strcharinfo(0)+" changed the world's hero.", LOGMES_ATCOMMAND);
$MOST_HEROIC$ = .@MH$;
goto L_Menu;
L_Close:
close;
OnInit:
.@npcId = getnpcid(0, .name$);
setunitdata(.@npcId, UDT_HEADTOP, 1322); // Dress
setunitdata(.@npcId, UDT_HEADMIDDLE, 2204); // Not needed
setunitdata(.@npcId, UDT_HEADBOTTOM, 1800); // Shoes
setunitdata(.@npcId, UDT_WEAPON, 3501);
setunitdata(.@npcId, UDT_HAIRSTYLE, 12);
setunitdata(.@npcId, UDT_HAIRCOLOR, 5);
.sex = G_FEMALE;
.distance = 4;
end;
}
|
