Guest User

Untitled

a guest
Apr 21st, 2018
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 1.93 KB | None | 0 0
  1.    //F1
  2.     magic := frmmain.GetMagicByKey(char ((0) + byte('1') + byte($14)) );
  3.     if magic <> nil then
  4.       DSkillBar1.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
  5.     else
  6.       DSkillBar1.SetImgIndex(g_WMagIconImages, -1);
  7.  
  8.     //F2
  9.     magic := frmmain.GetMagicByKey(char ((1) + byte('1') + byte($14)) );
  10.     if magic <> nil then
  11.       DSkillBar2.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
  12.     else
  13.       DSkillBar2.SetImgIndex(g_WMagIconImages, -1);
  14.  
  15.     //F3
  16.     magic := frmmain.GetMagicByKey(char ((2) + byte('1') + byte($14)) );
  17.     if magic <> nil then
  18.       DSkillBar3.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
  19.     else
  20.       DSkillBar3.SetImgIndex(g_WMagIconImages, -1);
  21.  
  22.     //F4
  23.     magic := frmmain.GetMagicByKey(char ((3) + byte('1') + byte($14)) );
  24.     if magic <> nil then
  25.       DSkillBar4.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
  26.     else
  27.       DSkillBar4.SetImgIndex(g_WMagIconImages, -1);
  28.  
  29.     //F5
  30.     magic := frmmain.GetMagicByKey(char ((4) + byte('1') + byte($14)) );
  31.     if magic <> nil then
  32.       DSkillBar5.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
  33.     else
  34.       DSkillBar5.SetImgIndex(g_WMagIconImages, -1);
  35.  
  36.     //F6
  37.     magic := frmmain.GetMagicByKey(char ((5) + byte('1') + byte($14)) );
  38.     if magic <> nil then
  39.       DSkillBar6.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
  40.     else
  41.       DSkillBar6.SetImgIndex(g_WMagIconImages, -1);
  42.  
  43.     //F7
  44.     magic := frmmain.GetMagicByKey(char ((6) + byte('1') + byte($14)) );
  45.     if magic <> nil then
  46.       DSkillBar7.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
  47.     else
  48.       DSkillBar7.SetImgIndex(g_WMagIconImages, -1);
  49.  
  50.     //F8
  51.     magic := frmmain.GetMagicByKey(char ((7) + byte('1') + byte($14)) );
  52.     if magic <> nil then
  53.       DSkillBar8.SetImgIndex(g_WMagIconImages, magic.Def.btEffect * 2)
  54.     else
  55.       DSkillBar8.SetImgIndex(g_WMagIconImages, -1);
Add Comment
Please, Sign In to add comment