API tools faq
paste
Advertisement
Guest User

Códigos

a guest
Jun 2nd, 2013
501
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 10.79 KB | None | 0 0
raw download clone embed print report
  1. 'Alguns Códigos usados no Trainer
  2.  
  3.  
  4. If ComboBox1.Text = "AK SOPMOD" Then
  5.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H267B0)
  6.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H25E48)
  7.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H25FA0)
  8.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H260F8)
  9.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H26250)
  10.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H263A8)
  11.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H26500)
  12.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H26658)
  13.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H267B0)
  14.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H26908)
  15.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H26A60)
  16.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H26BB8)
  17.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H26D10)
  18.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H26E68)
  19.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H26FC0)
  20.             WritePointerInteger("PointBlank", &HACFA08, 100003015, &H27118)
  21.             WritePointerInteger("PointBlank", &HA72994, 100003015, &H25CF0)
  22.         End If
  23.         If ComboBox1.Text = "Rangemaster .338" Then
  24.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H267B0)
  25.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H25E48)
  26.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H25FA0)
  27.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H260F8)
  28.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H26250)
  29.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H263A8)
  30.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H26500)
  31.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H26658)
  32.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H267B0)
  33.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H26908)
  34.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H26A60)
  35.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H26BB8)
  36.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H26D10)
  37.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H26E68)
  38.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H26FC0)
  39.             WritePointerInteger("PointBlank", &HACFA08, 300005021, &H27118)
  40.             WritePointerInteger("PointBlank", &HA72994, 300005021, &H25CF0)
  41.         End If
  42.         If ComboBox1.Text = "P90 M.C.S" Then
  43.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H267B0)
  44.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H25E48)
  45.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H25FA0)
  46.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H260F8)
  47.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H26250)
  48.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H263A8)
  49.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H26500)
  50.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H26658)
  51.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H267B0)
  52.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H26908)
  53.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H26A60)
  54.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H26BB8)
  55.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H26D10)
  56.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H26E68)
  57.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H26FC0)
  58.             WritePointerInteger("PointBlank", &HACFA08, 200004033, &H27118)
  59.             WritePointerInteger("PointBlank", &HA72994, 200004033, &H25CF0)
  60.         End If
  61.         If ComboBox1.Text = "L115A1 G." Then
  62.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H267B0)
  63.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H25E48)
  64.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H25FA0)
  65.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H260F8)
  66.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H26250)
  67.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H263A8)
  68.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H26500)
  69.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H26658)
  70.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H267B0)
  71.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H26908)
  72.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H26A60)
  73.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H26BB8)
  74.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H26D10)
  75.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H26E68)
  76.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H26FC0)
  77.             WritePointerInteger("PointBlank", &HACFA08, 300005015, &H27118)
  78.             WritePointerInteger("PointBlank", &HA72994, 300005015, &H25CF0)
  79.         End If
  80.         If ComboBox1.Text = "AUG A3 G." Then
  81.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H267B0)
  82.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H25E48)
  83.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H25FA0)
  84.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H260F8)
  85.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H26250)
  86.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H263A8)
  87.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H26500)
  88.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H26658)
  89.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H267B0)
  90.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H26908)
  91.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H26A60)
  92.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H26BB8)
  93.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H26D10)
  94.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H26E68)
  95.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H26FC0)
  96.             WritePointerInteger("PointBlank", &HACFA08, 100003037, &H27118)
  97.             WritePointerInteger("PointBlank", &HA72994, 100003037, &H25CF0)
  98.  
  99.         End If
  100.         If ComboBox1.Text = "Kriss S.V G." Then
  101.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H267B0)
  102.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H25E48)
  103.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H25FA0)
  104.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H260F8)
  105.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H26250)
  106.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H263A8)
  107.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H26500)
  108.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H26658)
  109.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H267B0)
  110.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H26908)
  111.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H26A60)
  112.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H26BB8)
  113.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H26D10)
  114.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H26E68)
  115.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H26FC0)
  116.             WritePointerInteger("PointBlank", &HACFA08, 200004026, &H27118)
  117.             WritePointerInteger("PointBlank", &HA72994, 200004026, &H25CF0)
  118.         End If
  119.         If ComboBox1.Text = "AK-47 F. C." Then
  120.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H267B0)
  121.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H25E48)
  122.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H25FA0)
  123.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H260F8)
  124.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H26250)
  125.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H263A8)
  126.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H26500)
  127.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H26658)
  128.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H267B0)
  129.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H26908)
  130.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H26A60)
  131.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H26BB8)
  132.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H26D10)
  133.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H26E68)
  134.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H26FC0)
  135.             WritePointerInteger("PointBlank", &HACFA08, 100003058, &H27118)
  136.             WritePointerInteger("PointBlank", &HA72994, 100003058, &H25CF0)
  137.         End If
  138.         If ComboBox1.Text = "L86 LSW" Then
  139.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H267B0)
  140.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H25E48)
  141.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H25FA0)
  142.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H260F8)
  143.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H26250)
  144.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H263A8)
  145.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H26500)
  146.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H26658)
  147.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H267B0)
  148.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H26908)
  149.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H26A60)
  150.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H26BB8)
  151.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H26D10)
  152.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H26E68)
  153.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H26FC0)
  154.             WritePointerInteger("PointBlank", &HACFA08, 500010004, &H27118)
  155.             WritePointerInteger("PointBlank", &HA72994, 500010004, &H25CF0)
  156.         End If
  157.  
  158. // Créditos
  159. //Napst4r e Mallesco
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!