main
Spoiler
scn HaroKArrowForgeQST2Script
float fQuestDelayTime
ref CNTRef
short Alchemy
short Fire
short Frost
short Shock
short FireArea
short FrostArea
short ShockArea
short Light
short DamHeal
short DamMag
short DamFtg
short DamAtt
short DrainMag
short Dispel
short Silence
short TotalFire
short TotalFrost
short TotalShock
short TotalFireArea
short TotalFrostArea
short TotalShockArea
short TotalLight
short TotalDamHeal
short TotalDamMag
short TotalDamFtg
short TotalDamAtt
short TotalDrainMag
short TotalDispel
short TotalSilence
short DoOnce
begin GameMode
set fQuestDelayTime to 0.001
if (DoOnce == 0)
StopQuest HaroKArrowForgeQST2
return
endif
set DoOnce to 0
;Message "Start Enchanting..."
set CNTRef to HaroKArrowForgeCNT
SetQuestObject HaroKArrowForge 1
set TotalFire to call functionCountFire CNTRef
set TotalFrost to 0
set TotalShock to 0
set TotalFireArea to 0
set TotalFrostArea to 0
set TotalShockArea to 0
set TotalLight to 0
set TotalDamHeal to 0
set TotalDamMag to 0
set TotalDamFtg to 0
set TotalDamAtt to 0
set TotalDrainMag to 0
set TotalDispel to 0
set TotalSilence to 0
StopQuest HaroKArrowForgeQST2
end
scn HaroKArrowForgeQST2Script
float fQuestDelayTime
ref CNTRef
short Alchemy
short Fire
short Frost
short Shock
short FireArea
short FrostArea
short ShockArea
short Light
short DamHeal
short DamMag
short DamFtg
short DamAtt
short DrainMag
short Dispel
short Silence
short TotalFire
short TotalFrost
short TotalShock
short TotalFireArea
short TotalFrostArea
short TotalShockArea
short TotalLight
short TotalDamHeal
short TotalDamMag
short TotalDamFtg
short TotalDamAtt
short TotalDrainMag
short TotalDispel
short TotalSilence
short DoOnce
begin GameMode
set fQuestDelayTime to 0.001
if (DoOnce == 0)
StopQuest HaroKArrowForgeQST2
return
endif
set DoOnce to 0
;Message "Start Enchanting..."
set CNTRef to HaroKArrowForgeCNT
SetQuestObject HaroKArrowForge 1
set TotalFire to call functionCountFire CNTRef
set TotalFrost to 0
set TotalShock to 0
set TotalFireArea to 0
set TotalFrostArea to 0
set TotalShockArea to 0
set TotalLight to 0
set TotalDamHeal to 0
set TotalDamMag to 0
set TotalDamFtg to 0
set TotalDamAtt to 0
set TotalDrainMag to 0
set TotalDispel to 0
set TotalSilence to 0
StopQuest HaroKArrowForgeQST2
end
function
Spoiler
scn functionCountFire
ref CNTRef
short Alchemy
short Fire
short TotalFire
short multi1
short multi2
short multi3
short multi4
begin Function {CNTRef}
Set Alchemy to Player.GetActorValue Alchemy
if (Alchemy < 25)
set multi1 to 15
set multi2 to 0
set multi3 to 0
set multi4 to 0
elseif (Alchemy < 50)
set multi1 to 20
set multi2 to 30
set multi3 to 0
set multi4 to 0
elseif (Alchemy < 75)
set multi1 to 25
set multi2 to 40
set multi3 to 60
set multi4 to 0
elseif (Alchemy < 100)
set multi1 to 30
set multi2 to 50
set multi3 to 70
set multi4 to 90
else
set multi1 to 45
set multi2 to 75
set multi3 to 105
set multi4 to 135
endif
if (Alchemy >= 1)
set TotalFire to 0
set Fire to Fire + CNTRef.GetItemCount FireSalts
;mmm
set Fire to Fire + CNTRef.GetItemCount BeholderEye
set TotalFire to TotalFire + Fire * multi1
endif
;--------------------Level 2 Effect--------------------
if (Alchemy >= 25)
set TotalFire to 0
set Fire to Fire + CNTRef.GetItemCount SteelBlueEntolomaCap
;cobl
set Fire to Fire + CNTRef.GetItemCount cobTiSaltpetre
;ooo
set Fire to Fire + CNTRef.GetItemCount GolemMagmaHeart
set TotalFire to TotalFire + Fire * multi2
endif
;--------------------Level 3 Effect--------------------
if (Alchemy >= 50)
set TotalFire to 0
set Fire to Fire + CNTRef.GetItemCount SpiddalStick
;cobl
set Fire to Fire + CNTRef.GetItemCount cobColFishChowder
set Fire to Fire + CNTRef.GetItemCount cobGeoGoldDust
;ooo
set Fire to Fire + CNTRef.GetItemCount GoldDust
;mmm
set Fire to Fire + CNTRef.GetItemCount VCVirvatuliGlitter
set TotalFire to TotalFire + Fire * multi3
endif
;--------------------Level 4 Effect--------------------
if (Alchemy >= 75)
set TotalFire to 0
;-----Fire Damage
set Fire to Fire + CNTRef.GetItemCount ImpGall
;ooo
set Fire to Fire + CNTRef.GetItemCount ImpGallCrazed
;mmm
set Fire to Fire + CNTRef.GetItemCount ElementalSalts
set TotalFire to TotalFire + Fire * multi4
endif
;--------------------------------------------------
setfunctionvalue TotalFire
end
scn functionCountFire
ref CNTRef
short Alchemy
short Fire
short TotalFire
short multi1
short multi2
short multi3
short multi4
begin Function {CNTRef}
Set Alchemy to Player.GetActorValue Alchemy
if (Alchemy < 25)
set multi1 to 15
set multi2 to 0
set multi3 to 0
set multi4 to 0
elseif (Alchemy < 50)
set multi1 to 20
set multi2 to 30
set multi3 to 0
set multi4 to 0
elseif (Alchemy < 75)
set multi1 to 25
set multi2 to 40
set multi3 to 60
set multi4 to 0
elseif (Alchemy < 100)
set multi1 to 30
set multi2 to 50
set multi3 to 70
set multi4 to 90
else
set multi1 to 45
set multi2 to 75
set multi3 to 105
set multi4 to 135
endif
if (Alchemy >= 1)
set TotalFire to 0
set Fire to Fire + CNTRef.GetItemCount FireSalts
;mmm
set Fire to Fire + CNTRef.GetItemCount BeholderEye
set TotalFire to TotalFire + Fire * multi1
endif
;--------------------Level 2 Effect--------------------
if (Alchemy >= 25)
set TotalFire to 0
set Fire to Fire + CNTRef.GetItemCount SteelBlueEntolomaCap
;cobl
set Fire to Fire + CNTRef.GetItemCount cobTiSaltpetre
;ooo
set Fire to Fire + CNTRef.GetItemCount GolemMagmaHeart
set TotalFire to TotalFire + Fire * multi2
endif
;--------------------Level 3 Effect--------------------
if (Alchemy >= 50)
set TotalFire to 0
set Fire to Fire + CNTRef.GetItemCount SpiddalStick
;cobl
set Fire to Fire + CNTRef.GetItemCount cobColFishChowder
set Fire to Fire + CNTRef.GetItemCount cobGeoGoldDust
;ooo
set Fire to Fire + CNTRef.GetItemCount GoldDust
;mmm
set Fire to Fire + CNTRef.GetItemCount VCVirvatuliGlitter
set TotalFire to TotalFire + Fire * multi3
endif
;--------------------Level 4 Effect--------------------
if (Alchemy >= 75)
set TotalFire to 0
;-----Fire Damage
set Fire to Fire + CNTRef.GetItemCount ImpGall
;ooo
set Fire to Fire + CNTRef.GetItemCount ImpGallCrazed
;mmm
set Fire to Fire + CNTRef.GetItemCount ElementalSalts
set TotalFire to TotalFire + Fire * multi4
endif
;--------------------------------------------------
setfunctionvalue TotalFire
end
thanks