View difference between Paste ID: RG5G0JmV and 7juDxVuY
SHOW: | | - or go back to the newest paste.
1-
--[[ CREATED BY CARLSBERG----
1+
-- ###CARLSBERG###
2
3-
CREDITS:
3+
local npc_id = 72000
4
5-
CARLSBERG = SCRIPTING IT.
5+
6-
RIOCHET2 = SORTING UP SMALL THINGS
6+
7-
X543R = CAME UP WITH THE IDEA
7+
8
	pUnit:GossipMenuAddItem(0, "Change my Scale", 2, 0)
9-
Made for: ImmortalWoW
9+
10-
]]
10+
11
	pUnit:GossipSendMenu(pPlayer)
12-
local npc_id = 72000 -- Change to your NPC ID
12+
13
14
function GossipOnSelect(pUnit, event, pPlayer, id, intid, code)
15
	if (intid == 1) then
16
		local Choice = math.random(1, 6)
17
		if (Choice == 1) then
18
			pPlayer:SetModel(4875)
19
		elseif (Choice == 2) then
20
			pPlayer:SetModel(8715)
21
		elseif (Choice == 3) then
22
			pPlayer:SetModel(20976)
23
		elseif (Choice == 4) then
24
			pPlayer:SetModel(5293)
25
		elseif (Choice == 5) then
26
			pPlayer:SetModel(10318)
27-
			pPlayer:SetModel(30893)
27+
28
			pPlayer:SetModel(12064)
29-
			pPlayer:SetModel(21445)
29+
30
	elseif (intid == 2) then
31-
			pPlayer:SetModel(20023)
31+
32
		if (scale == 1) then
33-
			pPlayer:SetModel(22906)
33+
34
		elseif (scale == 2) then
35-
			pPlayer:SetModel(36597)
35+
36
		elseif (scale == 3) then
37-
			pPlayer:SetModel(30893)
37+
38
		elseif (scale == 4) then
39
			pPlayer:SetScale(2.5)
40
		elseif (scale == 5) then
41
			pPlayer:SetScale(5)
42
		elseif (scale == 6) then
43
			pPlayer:SetScale(0.3)
44
		elseif (scale == 7) then
45
			pPlayer:SetScale(4)
46
		end
47
	elseif (intid == 3) then
48
		local speed = math.random(1, 7)
49
		if (speed == 1) then
50
			pPlayer:SetPlayerSpeed(5)
51
		elseif (speed == 2) then
52
			pPlayer:SetPlayerSpeed(10)
53
		elseif (speed == 3) then
54
			pPlayer:SetPlayerSpeed(20)
55
		elseif (speed == 4) then
56
			pPlayer:SetPlayerSpeed(50)
57
		elseif (speed == 5) then
58
			pPlayer:SetPlayerSpeed(2)
59-
			pPlayer:SetPlayerSpeed(12)
59+
60
			pPlayer:SetPlayerSpeed(17)
61
		elseif (speed == 7) then
62
			pPlayer:SetPlayerSpeed(7)
63
		elseif (speed == 8) then
64
			pPlayer:SetPlayerSpeed(5)
65
		end
66
	elseif (intid == 4) then
67
		pPlayer:DeMorph()
68
		pPlayer:SetPlayerSpeed(7)
69
	end
70
	pPlayer:GossipComplete()
71
end
72
73
RegisterUnitGossipEvent(npc_id, 1, GossipOnTalk)
74
RegisterUnitGossipEvent(npc_id, 2, GossipOnSelect)