Guest User

Untitled

a guest
Jul 24th, 2019
67
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  Func CanPickUp2($aItem)
  2.     Local $M = DllStructGetData($aItem, "ModelID")
  3.     Local $E = DllStructGetData($aItem, "ExtraID")
  4.     Local $A = GetItemAttribute($aitem)
  5.     Local $Req = GetItemReq($aitem)
  6.     Local $R = GetRarity($aItem)
  7.  
  8.     Switch $M
  9.     Case 937, 938, 931, 932
  10.        Return True ; Rare Mats
  11.     Case 935
  12.        $Dias += 1
  13.        GUICtrlSetData($lblDia, "Diamonds: " & $Dias)
  14.        Return True
  15.     Case 936
  16.        $Onyx += 1
  17.        GUICtrlSetData($lblOnyx, "Onyx: " & $Onyx)
  18.        Return True
  19.     Case 146
  20.        If $E = 10 Or $E = 12 Then
  21.           Return True ; Black & White Dyes
  22.        EndIf
  23.     Case 2511
  24.        If GetGoldCharacter() < 99000 Then
  25.           Return True
  26.        EndIf
  27.     Case $Voltaic
  28.        Out("GZ! Voltaic!")
  29.        $Spears += 1
  30.        GUICtrlSetData($lblVolt, "Voltaic's: " & $Spears)
  31.        Return True
  32.     Case 22751 ; Lockpick
  33.        Return True
  34.     EndSwitch
  35.  
  36.     Switch $R
  37.     Case 2624
  38.        Return True
  39.     EndSwitch
  40.  
  41.     Switch $A
  42.     Case 21
  43.        If $Req = 8 And GetItemMaxDmg($aItem) = 16 And $R = 2623 Then
  44.           Return True
  45.        EndIf
  46.        If $Req = 8 And GetItemMaxDmg($aItem) = 16 And $R = 2624 Then
  47.           Return True
  48.        EndIf
  49.     Case 20
  50.        If $Req = 8 And GetItemMaxDmg($aItem) = 22 Then
  51.           Return True
  52.        EndIf
  53.     EndSwitch
  54.     Return False
  55.  EndFunc
RAW Paste Data