/
Allinoneheadgear.txt
38 lines (35 loc) · 1.01 KB
/
Allinoneheadgear.txt
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
//example
//2201,Sunglasses,Sunglasses,5,5000,,100,,0,,0,0xFFFFFFFF,7,2,512,,0,0,12,{ your bonuses here },{ set @gear,3; callfunc ChooseHeadgear; },{ setlook 3,0; }
//be sure put the set @gear and the callfunc ChooseHeadgear; in the OnEquip
//as well as the setlook in the On UnEquip
//@gear and setlook determins which gear is changed
//3 Lower
//4 Upper
//5 Mid
function script ChooseHeadgear {
set .@Max,873; //This is the max used headgear veiw ID
mes "~Headgear~";
mes "Why dont I change our look?";
while(.@i < 10){
mes "Veiw ID: "+.@look+"";
switch(select("Next:Back:Choose One:This One")){
case 1:
set .@look,.@look+1;;
if(.@look > .@Max) set .@look,0;
setlook @gear,.@look;
break;
case 2:
set .@look,.@look-1;
if(.@look < 0)set .@look,.@Max;
setlook @gear,.@look;
break;
case 3:
input .@look;
if(.@look > .@Max) set .@look,0;
if(.@look < 0)set .@look,.@Max;
setlook @gear,.@look;
break;
case 4: set .@i, 50; mes "We look wonderful."; close; break;
}
}
}