Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //F1
- magic := frmmain.GetMagicByKey(char ((0) + byte('1') + byte($14)) );
- if magic <> nil then
- DSkillBar1.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
- else
- DSkillBar1.SetImgIndex(g_WMagIconImages, -1);
- //F2
- magic := frmmain.GetMagicByKey(char ((1) + byte('1') + byte($14)) );
- if magic <> nil then
- DSkillBar2.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
- else
- DSkillBar2.SetImgIndex(g_WMagIconImages, -1);
- //F3
- magic := frmmain.GetMagicByKey(char ((2) + byte('1') + byte($14)) );
- if magic <> nil then
- DSkillBar3.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
- else
- DSkillBar3.SetImgIndex(g_WMagIconImages, -1);
- //F4
- magic := frmmain.GetMagicByKey(char ((3) + byte('1') + byte($14)) );
- if magic <> nil then
- DSkillBar4.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
- else
- DSkillBar4.SetImgIndex(g_WMagIconImages, -1);
- //F5
- magic := frmmain.GetMagicByKey(char ((4) + byte('1') + byte($14)) );
- if magic <> nil then
- DSkillBar5.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
- else
- DSkillBar5.SetImgIndex(g_WMagIconImages, -1);
- //F6
- magic := frmmain.GetMagicByKey(char ((5) + byte('1') + byte($14)) );
- if magic <> nil then
- DSkillBar6.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
- else
- DSkillBar6.SetImgIndex(g_WMagIconImages, -1);
- //F7
- magic := frmmain.GetMagicByKey(char ((6) + byte('1') + byte($14)) );
- if magic <> nil then
- DSkillBar7.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
- else
- DSkillBar7.SetImgIndex(g_WMagIconImages, -1);
- //F8
- magic := frmmain.GetMagicByKey(char ((7) + byte('1') + byte($14)) );
- if magic <> nil then
- DSkillBar8.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
- else
- DSkillBar8.SetImgIndex(g_WMagIconImages, -1);
Add Comment
Please, Sign In to add comment