WOW Add On/2011년프로젝트/초성퀴즈

HelloWoW.toc
----------------------------
##Interface:40200
##Title:HelloWOW
##Notes:Example
HelloWoW.xml
HelloWoW.lua
---------------------------

HelloWoW.xml
----------------------------------------
<UI xmlns="http://www.blizzard.com/wow/ui"  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"  xsi:schemaLocation="http://www.blizzard.com/wow/ui">
<script file="HelloWoW.lua"/>
<Frame name="HelloWoWFrame">
<Scripts>
	<OnLoad>
		HelloWoW_ShowMessage();
	</OnLoad>
	</Scripts>
</Frame>
</UI>
---------------------------------

HelloWoW.lua
---------------------------------
function HelloWoW_ShowMessage()
	message("Hello WOW!");
end
---------------------------------

---------------------------------------
function HelloWoW_ShowMessage()

	local baseName
	local count = 1
	local base = {}
	baseName =  GetItemInfo(25)
	for i=25, 70000 do		
		baseName = GetItemInfo(i)
		if count > 10000 then 
			break
		end

		if baseName ~= nil then
			base[count] = baseName
			count = count+1
		end
	end
	for i = 1, #base do
		print(base[i])
	end
end
--------------------------

-----------------------------------------
function HelloWoW_ShowMessage()

	local baseName = nil

	repeat
		i = random(25,70000)
		baseName = GetItemInfo(i)
	until baseName ~= nil

	print(baseName)
end
----------------------------------

~lua
function charLen(str)
	calc = string.byte(str:sub(1,1))
	--lua에서 byte로 char형을 변환하면 0이상이 나온다.
	if(calc >= 0 and calc <= 127) then return 1
	elseif(calc >= 192 and calc <= 223) then return 2
	elseif(calc >= 224 and calc <= 239) then return 3
	elseif(calc >= 240 and calc <= 247) then return 4
	elseif(calc >= 248 and calc <= 251) then return 5
	elseif(calc >= 252 and calc <= 253) then return 6
	else return 0
	end			
end

~lua
Chosung = {"ㄱ","ㄲ","ㄴ","ㄷ","ㄸ","ㄹ","ㅁ","ㅂ","ㅃ","ㅅ","ㅆ","o","ㅈ","ㅉ","ㅊ","ㅋ","ㅌ","ㅍ","ㅎ"};
Middle = {"ㅏ","ㅐ","ㅑ","ㅒ","ㅓ","ㅔ","ㅕ","ㅖ","ㅗ","ㅠ","ㅘ","ㅛ","ㅙ","ㅚ","ㅜ","ㅝ","ㅞ","ㅟ","ㅡ","ㅢ","ㅣ"};
Last = { "\0","ㄱ","ㄲ","ㄳ","ㄴ","ㄵ","ㄶ","ㄷ","ㄹ","ㄺ","ㄻ","ㄽ","ㄾ","ㄿ","ㅀ","ㅁ","ㅂ","ㅄ","ㅅ","ㅆ","o","ㅈ","ㅊ","ㅋ","ㅌ","ㅍ","ㅎ"};	

function samplingFirst(str)
	-- 1110xxxx 10yyyyzz 10zzwwww
	local first = string.byte(str:sub(1,1)) - 224  -- 1110xxxx
	local second = math.floor((string.byte(str:sub(2,2)) - 128)/4) 
	local third = math.floor((string.byte(str:sub(2,2))%4)*4 + (string.byte(str:sub(3,3)) - 128)/16)
	local fourth = math.floor(string.byte(str:sub(3,3))%16)
		
	local unicode = first * 16* 16* 16 + second * 16 * 16 + third * 16 + fourth
	unicode = unicode - 0xAC00
	local cho = math.floor(unicode / 21/ 28)
	local goong = math.floor((unicode % (21*28))/28)
	local jong = math.floor((unicode % 28))

	return Chosung[cho+1];	
end

~lua
function cstc(len, str)
	return {type = len, body = str}; 
end

function makingTable(str)
	
	stringtable = {}
	for i = 1, #str do
		len = charLen(str:sub(i,i))
		if len ~= 0 then -- 이거 안좋은데..
			stringtable[#stringtable+1] = cstc(len, str:sub(i,i+len-1))
		end		
	end
		
	chosungtable = {}
	for i, v in ipairs(stringtable) do		
		if v.type == 3 then
			chosungtable[#chosungtable+1] = cstc(v.type, samplingFirst(v.body)) 
		else 
			chosungtable[#chosungtable+1] = cstc(v.type, v.body)
		end
	end
	
	return stringtable, chosungtable
end


local a = "카르가스\:얼라이언스\:Aldiana"
t,x = makingTable(a)
for i, v in ipairs(t) do
	print(v.type .. " " .. v.body)
end
for i, v in ipairs(x) do
	print(v.type .. " " .. v.body)
end

출력결과 :
카르가스:얼라이언스:Aldiana
ㅋㄹㄱㅅ:ㅇㄹㅇㅇㅅ:Aldiana

~lua
function HelloWoW_OnLoad(self)
	SLASH_HelloWoW1 = '/hiw';
	SLASH_HelloWoW2 = '/hellow';
	SLASH_HelloWoW3 = '/HelloWOW';
	SlashCmdList["HelloWoW"] = function (msg)
         	   HelloWoWF(msg)
	end
end

function HelloWoWF(msg, editbox) -- 4.
	print("Hello WOW")
end

와우 입력 :/hiw
와우 시스템 출력 : Hello WOW