Advertisement
Guest User

CanpickupwithArrays Example

a guest
Feb 20th, 2017
123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 4.60 KB | None | 0 0
  1. #Region CanPickUp
  2. Func CanPickUp($aItem)
  3.  
  4.     ; ==== Party ====
  5.     local Static $Spam_Party_Array = [7, 6368, 6369, 6376, 21809, 21810, 21813, 36683] ; Party
  6.     ; ==== Sweets ====
  7.     local Static $Sweet_Town_Array = [10, 15528, 15479, 19170, 21492, 21812, 22644, 30208, 31150, 35125, 36681]; Sweets
  8.     ; ==== PCons ====
  9.     local Static $Sweet_Pcon_Array = [11, 17060, 17061, 17062, 22269, 22752, 28431, 28432, 28436, 29434, 31151, 31152, 31153, 35121]; PCons
  10.     ; ==== Special Event Drops ====
  11.     local Static $Special_Drops = [7, 556, 18345, 21491, 37765, 21833, 28433, 28434]; Special Event Drops
  12.     ; ==== Alcohol ====
  13.     local Static $Alcohol_Array = [19, 910, 2513, 5585, 6049, 6366, 6367, 6375, 15477, 19171, 19172, 19173, 22190, 24593, 28435, 30855, 31145, 31146, 35124, 36682]; Alcohol
  14.     ; ==== DP Removal ====
  15.     local Static $DPRemoval_Sweets = [8, 6370, 19039, 21488, 21489, 22191, 26784, 28433, 35127]; DP Removal
  16.     ; ==== Scroll's ====
  17.     local Static $Blue_Scroll_Array = [3, 5853, 5975, 5976]; Blue Scrolls
  18.     local Static $Gold_Scroll_Array = [8, 3256, 3746, 5594, 5595, 5611, 21233, 22279, 22280]; Gold Scrolls
  19.     ; ==== Crafting Material ====
  20.     local Static $Common_Crafting_Materials_Array = [11, 921, 925, 929, 933, 934, 940, 946, 948, 953, 954, 955]; Common Crafting Materials
  21.     local Static $Rare_Crafting_Material_Array = [25, 922, 923, 926, 927, 928, 930, 931, 932, 935, 936, 937, 938, 939, 941, 942, 943, 944, 945, 949, 950, 951, 952, 956, 6532, 6533]; Rare Crafting Material
  22.     ; ==== Stackable Trophies ====
  23.     local Static $Stackable_Trophies_Array = [191, 423, 424, 434, 435, 436, 439, 440, 441, 442, 443, 444, 446, 447, 448, 449, 450, 451, 452, 453, 454, 455, 457, 459, 460, 461, 462, 463, 464, 465, 466, 467, 468, 469, _
  24.     470, 471, 472, 473, 474, 475, 476, 477, 478, 479, 480, 481, 482, 483, 484, 485, 486, 487, 488, 489, 490, 492, 493, 494, 495, 496, 497, 498, 499, 500, 502, 503, 504, 505, 506, 508, 510, 511, 513, 514, 518, 519, 520, _
  25.     522, 523, 525, 526, 532, 604, 809, 810, 811, 813, 814, 815, 816, 817, 818, 819, 820, 822, 824, 825, 826, 827, 829, 833, 835, 836, 838, 841, 842, 843, 844, 846, 847, 848, 849, 850, 851, 852, 853, 854, 855, 1009, 1577, _
  26.     1578, 1579, 1580, 1581, 1582, 1583, 1584, 1587, 1588, 1590, 1597, 1598, 1600, 1601, 1603, 1604, 1605, 1609, 1610, 1617, 1619, 1620, 1629, 1668, 1671, 1675, 1681, 1682, 2994, 19183, 19184, 19185, 19187, 19188, 19189, _
  27.     19199, 24354, 27033, 27034, 27035, 27036, 27037, 27038, 27039, 27040, 27041, 27042, 27043, 27044, 27045, 27046, 27047, 27048, 27049, 27050, 27052, 27053, 27054, 27055, 27057, 27060, 27061, 27062, 27065, 27066, 27067, _
  28.     27069, 27070, 27071, 27729, 27974]; Stackable Trophies
  29.  
  30.  
  31.     Local $lModelID = DllStructGetData(($aItem), 'ModelID')
  32.     Local $lRarity = GetRarity($aItem)
  33.     If $lModelID == 2511 And GetGoldCharacter() < 99000 Then Return True    ; gold coins (only pick if character has less than 99k in inventory)
  34.     If $lModelID > 21785 And $lModelID < 21806 Then Return False    ; Elite/Normal Tomes
  35.     If $lModelID == $ITEM_ID_DYES Then  ; if dye
  36.         Switch DllStructGetData($aItem, "ExtraID")
  37.             Case $ITEM_EXTRAID_BLACKDYE, $ITEM_EXTRAID_WHITEDYE ; only pickup black and white dye  <----(declare this vars)
  38.                 Return True
  39.             Case Else
  40.                 Return False ;Set to True to collect all dyes
  41.         EndSwitch
  42.     EndIf
  43. ;~  If $lRarity == $RARITY_GOLD                                         Then Return False       ; Gold Items ====> Set to FALSE to not pick up gold drops!  <----(declare this vars)
  44.     If $lModelID == $ITEM_ID_LOCKPICKS                                      Then Return True        ; Lockpick  <----(declare this vars)
  45.     If CanPickUpArrayHelper($Spam_Party_Array , $lModelID)                  Then Return True
  46.     If CanPickUpArrayHelper($Sweet_Town_Array , $lModelID)                  Then Return True
  47.     If CanPickUpArrayHelper($Sweet_Pcon_Array , $lModelID)                  Then Return True
  48.     If CanPickUpArrayHelper($Special_Drops , $lModelID)                     Then Return True
  49.     If CanPickUpArrayHelper($Alcohol_Array , $lModelID)                     Then Return True
  50.     If CanPickUpArrayHelper($DPRemoval_Sweets , $lModelID)                  Then Return True
  51.     If CanPickUpArrayHelper($Blue_Scroll_Array, $lModelID)                  Then Return True
  52.     If CanPickUpArrayHelper($Gold_Scroll_Array, $lModelID)                  Then Return True
  53.     If CanPickUpArrayHelper($Common_Crafting_Materials_Array, $lModelID)    Then Return True
  54.     If CanPickUpArrayHelper($Rare_Crafting_Material_Array, $lModelID)       Then Return True
  55.     If CanPickUpArrayHelper($Stackable_Trophies_Array, $lModelID)           Then Return True
  56.     Return False ; True picks up all items
  57. EndFunc   ;==>CanPickUp
  58.  
  59. Func CanPickUpArrayHelper(Const ByRef $arrayX, $lModelIDToSearch)
  60. For $i = 1 To $arrayX[0]
  61.     If $lModelIDToSearch = $arrayX[$i] Then Return True
  62. Next
  63. Return False
  64. EndFunc
  65. #EndRegion CanPickUp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement