require("ScriptDefine")
require("ScriptUtil")
require("ScriptExtraCommand")
function OnReadScript()
ScriptLoader_OnReadScript()
end
function OnShutScript()
ScriptLoader_OnShutScript()
end
function OnTimerThread()
ScriptLoader_OnTimerThread()
end
function OnCommandManager(aIndex,code,arg)
if ScriptLoader_OnCommandManager(aIndex,code,arg) ~= 0 then
return 1
end
return 0
end
function OnCharacterEntry(aIndex)
local UserName = GetObjectName(aIndex)
local TargetIndex = GetObjectIndexByName(UserName)
local UserAccountLevel = GetObjectAccountLevel(aIndex)
local UserLevel = GetObjectLevel(aIndex)
local UserAccountExpireDate = GetObjectAccountExpireDate(aIndex)
NoticeSend(aIndex,0,string.format(MessageGet(256,GetObjectLang(aIndex)),UserName))
local SQL_ODBC = "MuOnline"
local SQL_USER = ""
local SQL_PASS = ""
SQLConnect(SQL_ODBC,SQL_USER,SQL_PASS)
if SQLQuery(string.format("SELECT Bonus FROM Character WHERE Name='%s'",GetObjectName(aIndex))) == 0 or SQLFetch() == 0 then
SQLClose()
SQLQuery(string.format("INSERT INTO Character (Name,Bonus) VALUES ('%s',1)",GetObjectName(aIndex)))
SQLClose()
else
local BonusStatus = SQLGetNumber("Bonus")
SQLClose()
if BonusStatus == 0 then
SQLQuery(string.format("UPDATE Character SET Bonus=1 WHERE Name='%s'",GetObjectName(aIndex)))
SQLClose()
EffectAdd(TargetIndex,0,29,86400,0,0,0,0)
EffectAdd(TargetIndex,0,44,86400,0,0,0,0)
EffectAdd(TargetIndex,0,45,86400,0,0,0,0)
EffectAdd(TargetIndex,0,46,86400,0,0,0,0)
EffectAdd(TargetIndex,0,47,86400,0,0,0,0)
EffectAdd(TargetIndex,0,48,86400,0,0,0,0)
EffectAdd(TargetIndex,0,49,86400,0,0,0,0)
EffectAdd(TargetIndex,0,89,86400,0,0,0,0)
EffectAdd(TargetIndex,0,90,86400,0,0,0,0)
ItemGive(TargetIndex,51)
NoticeSend(aIndex,1,"You received a starter pack")
end
end
if UserAccountLevel == 0 then
NoticeSend(aIndex,1,"Welcome to MuEdge Season13")
NoticeSend(aIndex,1,"www.muedge.com.br")
elseif UserAccountLevel == 0 then
NoticeSend(aIndex,1,string.format(MessageGet(248,GetObjectLang(aIndex)),UserAccountExpireDate))
elseif UserAccountLevel == 1 then
NoticeSend(aIndex,1,string.format(MessageGet(249,GetObjectLang(aIndex)),UserAccountExpireDate))
elseif UserAccountLevel == 2 then
NoticeSend(aIndex,1,string.format(MessageGet(250,GetObjectLang(aIndex)),UserAccountExpireDate))
elseif UserAccountLevel == 3 then
NoticeSend(aIndex,1,string.format(MessageGet(251,GetObjectLang(aIndex)),UserAccountExpireDate))
end
ScriptLoader_OnCharacterEntry(aIndex)
end
function OnCharacterClose(aIndex)
ScriptLoader_OnCharacterClose(aIndex)
end
function OnNpcTalk(aIndex,bIndex)
if ScriptLoader_OnNpcTalk(aIndex,bIndex) ~= 0 then
return 1
end
return 0
end
function OnMonsterDie(aIndex,bIndex)
ScriptLoader_OnMonsterDie(aIndex,bIndex)
end
function OnUserDie(aIndex,bIndex)
ScriptLoader_OnUserDie(aIndex,bIndex)
end
function OnUserRespawn(aIndex,KillerType)
ScriptLoader_OnUserRespawn(aIndex,KillerType)
end
function OnCheckUserTarget(aIndex,bIndex)
if ScriptLoader_OnCheckUserTarget(aIndex,bIndex) == 0 then
return 0
end
return 1
end
function OnCheckUserKiller(aIndex,bIndex)
if ScriptLoader_OnCheckUserKiller(aIndex,bIndex) == 0 then
return 0
end
return 1
end
function OnPacketRecv(aIndex,buff,size)
ScriptLoader_OnPacketRecv(aIndex,buff,size)
end
require("ScriptUtil")
require("ScriptExtraCommand")
function OnReadScript()
ScriptLoader_OnReadScript()
end
function OnShutScript()
ScriptLoader_OnShutScript()
end
function OnTimerThread()
ScriptLoader_OnTimerThread()
end
function OnCommandManager(aIndex,code,arg)
if ScriptLoader_OnCommandManager(aIndex,code,arg) ~= 0 then
return 1
end
return 0
end
function OnCharacterEntry(aIndex)
local UserName = GetObjectName(aIndex)
local TargetIndex = GetObjectIndexByName(UserName)
local UserAccountLevel = GetObjectAccountLevel(aIndex)
local UserLevel = GetObjectLevel(aIndex)
local UserAccountExpireDate = GetObjectAccountExpireDate(aIndex)
NoticeSend(aIndex,0,string.format(MessageGet(256,GetObjectLang(aIndex)),UserName))
local SQL_ODBC = "MuOnline"
local SQL_USER = ""
local SQL_PASS = ""
SQLConnect(SQL_ODBC,SQL_USER,SQL_PASS)
if SQLQuery(string.format("SELECT Bonus FROM Character WHERE Name='%s'",GetObjectName(aIndex))) == 0 or SQLFetch() == 0 then
SQLClose()
SQLQuery(string.format("INSERT INTO Character (Name,Bonus) VALUES ('%s',1)",GetObjectName(aIndex)))
SQLClose()
else
local BonusStatus = SQLGetNumber("Bonus")
SQLClose()
if BonusStatus == 0 then
SQLQuery(string.format("UPDATE Character SET Bonus=1 WHERE Name='%s'",GetObjectName(aIndex)))
SQLClose()
EffectAdd(TargetIndex,0,29,86400,0,0,0,0)
EffectAdd(TargetIndex,0,44,86400,0,0,0,0)
EffectAdd(TargetIndex,0,45,86400,0,0,0,0)
EffectAdd(TargetIndex,0,46,86400,0,0,0,0)
EffectAdd(TargetIndex,0,47,86400,0,0,0,0)
EffectAdd(TargetIndex,0,48,86400,0,0,0,0)
EffectAdd(TargetIndex,0,49,86400,0,0,0,0)
EffectAdd(TargetIndex,0,89,86400,0,0,0,0)
EffectAdd(TargetIndex,0,90,86400,0,0,0,0)
ItemGive(TargetIndex,51)
NoticeSend(aIndex,1,"You received a starter pack")
end
end
if UserAccountLevel == 0 then
NoticeSend(aIndex,1,"Welcome to MuEdge Season13")
NoticeSend(aIndex,1,"www.muedge.com.br")
elseif UserAccountLevel == 0 then
NoticeSend(aIndex,1,string.format(MessageGet(248,GetObjectLang(aIndex)),UserAccountExpireDate))
elseif UserAccountLevel == 1 then
NoticeSend(aIndex,1,string.format(MessageGet(249,GetObjectLang(aIndex)),UserAccountExpireDate))
elseif UserAccountLevel == 2 then
NoticeSend(aIndex,1,string.format(MessageGet(250,GetObjectLang(aIndex)),UserAccountExpireDate))
elseif UserAccountLevel == 3 then
NoticeSend(aIndex,1,string.format(MessageGet(251,GetObjectLang(aIndex)),UserAccountExpireDate))
end
ScriptLoader_OnCharacterEntry(aIndex)
end
function OnCharacterClose(aIndex)
ScriptLoader_OnCharacterClose(aIndex)
end
function OnNpcTalk(aIndex,bIndex)
if ScriptLoader_OnNpcTalk(aIndex,bIndex) ~= 0 then
return 1
end
return 0
end
function OnMonsterDie(aIndex,bIndex)
ScriptLoader_OnMonsterDie(aIndex,bIndex)
end
function OnUserDie(aIndex,bIndex)
ScriptLoader_OnUserDie(aIndex,bIndex)
end
function OnUserRespawn(aIndex,KillerType)
ScriptLoader_OnUserRespawn(aIndex,KillerType)
end
function OnCheckUserTarget(aIndex,bIndex)
if ScriptLoader_OnCheckUserTarget(aIndex,bIndex) == 0 then
return 0
end
return 1
end
function OnCheckUserKiller(aIndex,bIndex)
if ScriptLoader_OnCheckUserKiller(aIndex,bIndex) == 0 then
return 0
end
return 1
end
function OnPacketRecv(aIndex,buff,size)
ScriptLoader_OnPacketRecv(aIndex,buff,size)
end
Last edited: