API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 18th, 2015
189
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Autohotkey 19.11 KB | None | 0 0
raw download clone embed print report
  1. #SingleInstance
  2. #NoEnv
  3.  
  4. Gui, Add, CheckBox, x22 y10 w170 h30 vLowCheck , Filter all low items!
  5. Gui, Add, CheckBox, x22 y40 w170 h30 vNormalCheck, Filter all normal items!
  6. Gui, Add, CheckBox, x22 y70 w170 h30 vSuperiorCheck, Filter all superior quality normal items!
  7. Gui, Add, CheckBox, x22 y100 w170 h30 vMagicCheck , Filter all magic items!
  8. Gui, Add, CheckBox, x22 y130 w170 h30 vRareCheck , Filter all rare items!
  9. Gui, Add, CheckBox, x22 y160 w170 h30 vSetCheck , Filter sets! -- Include the ones
  10. Gui, Add, CheckBox, x22 y190 w170 h30 vUniqueCheck , Filter uniques! -- Include the ones
  11. Gui, Add, CheckBox, x22 y220 w170 h30 vGemCheck , Filter Gems`, Runes`, Potions!
  12. Gui, Add, Edit, x242 y10 w270 h30 vLowEdit ,
  13. Gui, Add, Text, x512 y10 w100 h30 , Low Excludes
  14. Gui, Add, Edit, x242 y40 w270 h30 vNormalEdit ,
  15. Gui, Add, Text, x512 y40 w100 h30 , Normal Excludes
  16. Gui, Add, Edit, x242 y70 w270 h30 vSuperiorEdit, upt,uui,xtp,uar,uh9,xsk,dr8,paf,pab,pac,pae,ugh,uit,7wa,61w,amc,amb,6l7,6hx,7gd,7st,7p7,7wc,7h7,7pa,7s8,7vo,ame,7qr,7hw,wsp,wst,fla
  17. Gui, Add, Text, x512 y70 w100 h30 , Superior Excludes
  18. Gui, Add, Edit, x242 y100 w270 h30 vMagicEdit , jew
  19. Gui, Add, Edit, x242 y130 w270 h30 vRareEdit, jew,amu,rin
  20. Gui, Add, Edit, x242 y160 w270 h30 vSetEdit, Set Includes
  21. Gui, Add, Edit, x242 y190 w270 h30 vUniqueEdit, Unique Includes
  22. Gui, Add, Edit, x242 y220 w270 h30 vGemEdit, rvi,r33,r32,r31,r30,r29,r28,r27,r26,r25,r24,r23,r22,r21,r20,r19,r18,r17,r16,r15,r14,gzv,glw,glg,glr,glb,skl,gly,gpw,gpv,gpb,gpy,gpr,skz,gpg
  23. Gui, Add, Text, x512 y100 w100 h30 , Magic Excludes
  24. Gui, Add, Text, x512 y130 w100 h30 , Rare Excludes
  25. Gui, Add, Text, x512 y160 w100 h30 , Set Includes
  26. Gui, Add, Text, x512 y190 w100 h30 , Unique Includes
  27. Gui, Add, Text, x512 y220 w100 h30 , Gem`, Potions`, Runes EXCLUDES
  28. Gui, Add, Text, x22 y260 w380 h70 , I have a master list of all items included for each quality. When you exclude something it checks against my list and will not write a hide label for that item group under that category. Sets and uniques I include nothing that is your discretion. I have default values set in for my personal excludes. You can find the item codes online by googling Diablo 2 item codes.
  29. Gui, Add, Button, x522 y340 w100 h30 gInit , Create INI!
  30. Gui, Add, CheckBox, x400 y250 w170 h30 vMiscCheck , Filter Arrows, Bolts, and Other Misc
  31. ; Generated using SmartGUI Creator for SciTE
  32. Gui, Show, w635 h379, Ini Writer by ArrowFarm
  33. return
  34.  
  35. ; ================================================
  36. ;                   Mass Data Collection
  37. ;=================================================
  38. init:
  39. Gui, Submit
  40. Armor = ci0,ci1,ci2,ci3,cap,skp,hlm,fhl,ghm,crn,msk,bhm,qui,lea,hla,stu,rng,scl,chn,brs,spl,plt,fld,gth,ful,aar,ltp,buc,sml,lrg,kit,tow,gts,bsh,spk,lgl,vgl,mgl,tgl,lbt,vbt,mbt,tbt,hbt,lbl,vbl,mbl,tbl,hbl,dr1,dr2,dr3,dr4,dr5,ba1,ba2,ba3,ba4,ba5,pa1,pa2,pa3,pa4,pa5,ne1,ne2,ne3,ne4,ne5,xap,xkp,xlm,xhl,xhm,xrn,xsk,xh9,xui,xea,xla,xtu,xng,xcl,xhn,xrs,xpl,xlt,xld,xth,xul,xar,xtp,xuc,xml,xrg,xit,xow,xts,xsh,xpk,xlg,xvg,xmg,xtg,xlb,xvb,xmb,xtb,xhb,zlb,zvb,zmb,ztb,zhb,dr6,dr7,dr8,dr9,dra,ba6,ba7,ba8,ba9,baa,pa6,pa7,pa8,pa9,paa,ne6,ne7,ne8,ne9,nea,uap,ukp,ulm,uhl,uhm,urn,usk,uh9,uui,uea,ula,utu,ung,ucl,uhn,urs,upl,ult,uld,uth,uul,uar,utp,uuc,uml,urg,uit,uow,uts,ush,upk,ulg,uvg,umg,utg,ulb,uvb,umb,utb,uhb,ulc,uvc,umc,utc,uhc,drb,drc,drd,dre,drf,bab,bac,bad,bae,baf,pab,pac,pad,pae,paf,neb,nec,ned,nee,nef
  41.  
  42. Weapons = hax,axe,2ax,mpi,wax,lax,bax,btx,gax,gix,clb,spc,mac,mst,fla,whm,mau,gma,ssd,scm,sbr,flc,crs,bsd,lsd,wsd,2hs,clm,gis,bsw,flb,gsd,dgr,dir,kri,bld,tkf,tax,bkf,bal,jav,pil,ssp,glv,tsp,spr,tri,brn,spt,pik,bar,vou,scy,pax,hal,wsc,sbw,hbw,lbw,cbw,sbb,lbb,swb,lwb,lxb,mxb,hxb,rxb,sst,lst,gst,bst,wst,wnd,ywn,bwn,gwn,scp,gsc,wsp,ktr,wrb,axf,ces,clw,btl,skr,ob1,ob2,ob3,ob4,ob5,am1,am2,am3,am4,am5,9ha,9ax,92a,9mp,9wa,9la,9ba,9bt,9ga,9gi,9cl,9sp,9ma,9mt,9fl,9wh,9m9,9gm,9ss,9sm,9sb,9fc,9cr,9bs,9ls,9wd,92h,9cm,9gs,9b9,9fb,9gd,9dg,9di,9kr,9bl,9tk,9ta,9bk,9b8,9ja,9pi,9s9,9gl,9ts,9sr,9tr,9br,9st,9p9,9b7,9vo,9s8,9pa,9h9,9wc,8sb,8hb,8lb,8cb,8s8,8l8,8sw,8lw,8lx,8mx,8hx,8rx,8ss,8ls,8cs,8bs,8ws,9wn,9yw,9bw,9gw,9sc,9qs,9ws,9ar,9wb,9xf,9cs,9lw,9hw,9qr,ob6,ob7,ob8,ob9,oba,am6,am7,am8,am9,ama,7ha,7ax,72a,7mp,7wa,7la,7ba,7bt,7ga,7gi,7cl,7sp,7ma,7mf,7fl,7wh,7m7,7gm,7ss,7sm,7sb,7fc,7cr,7bs,7ls,7wd,72h,7cm,7gs,7b7,7fb,7gd,7dg,7di,7kr,7bl,7tk,7ta,7bk,7b8,7ja,7pi,7s7,7gl,7ts,7sr,7tr,7br,7st,7p7,7o7,7vo,7s8,7pa,7h7,7wc,6sb,6hb,6lb,6cb,6s7,6l7,6sw,6lw,6lx,6mx,6hx,6rx,6ss,6ls,6cs,6bs,6ws,7wn,7yw,7bw,7gw,7sc,7qs,7ws,7ar,7wb,7xf,7cs,7lw,7hw,7qr,obb,obc,obd,obe,obf,amb,amc,amd,ame,amf
  43.  
  44. Potions = gps,ops,gpm,opm,gpl,opl,yps,vps,wms,hp1,mp1,hp2,mp2,hp3,mp3,hp4,mp4,hp5,mp5,rvs,rvl
  45.  
  46. Runes = r01,r02,r03,r04,r05,r06,r07,r08,r09,r10,r11,r12,r13,r14,r15,r16,r17,r18,r19,r20,r21,r22,r23,r24,r25,r26,r27,r28,r29,r30,r31,r32,r33
  47.  
  48. ; misc is likes tombs, ears
  49. Misc = aqv,aqv2,cqv2,cqv,key,gld,ear,ibk,tbk,isc,tsc
  50. ;Rings and ammy and jewels.
  51. Jewelry=amu,rin,jew
  52.  
  53. Gems = gcv,gcw,gcg,gcr,gcb,skc,gcy,gfv,gfw,gfg,gfr,gfb,skf,gfy,gsv,gsw,gsg,gsr,gsb,sku,gsy,gzv,glw,glg,glr,glb,skl,gly,gpw,gpv,gpb,gpy,gpr,skz,gpg
  54.  
  55. ; ================================================
  56. ;             Data Manipulation
  57. ;==================================================
  58. ;Get the values.
  59. Guicontrolget, LowCheckValue,, LowCheck
  60. GuiControlget, LowEdit2,, LowEdit
  61. Guicontrolget, NormalCheckValue,, NormalCheck
  62. GuiControlget, NormalEdit2,, NormalEdit
  63. Guicontrolget, SuperiorCheckValue,, SuperiorCheck
  64. GuiControlget, SuperiorEdit2,, SuperiorEdit
  65. Guicontrolget, MagicCheckValue,, MagicCheck
  66. GuiControlget, MagicEdit2,, MagicEdit
  67. Guicontrolget, RareCheckValue,, RareCheck
  68. GuiControlget, RareEdit2,, RareEdit
  69. Guicontrolget, SetCheckValue,, SetCheck
  70. GuiControlget, SetEdit2,, SetEdit
  71. Guicontrolget, UniqueCheckValue,, UniqueCheck
  72. GuiControlget, UniqueEdit2,, UniqueEdit
  73. Guicontrolget, GemCheckValue,, GemCheck
  74. GuiControlget, GemEdit2,, GemEdit
  75. Guicontrolget, MiscCheckValue,, MiscCheck
  76.  
  77. ;Parse Master list against excludes.
  78.  
  79. ;================================================
  80. ;                   Low Quality
  81. ;=================================================
  82. Haystack := Armor
  83. ; armor
  84.  Loop, Parse, Armor , `,
  85. {
  86.     If A_LoopField =
  87.     {
  88.         Break
  89.     }
  90.     TopLoopVar := A_LoopField
  91.     Loop, Parse, LowEdit2, `,
  92.     {
  93.         If A_LoopField =
  94.         {
  95.             Break
  96.         }
  97.         SubLoopVar := A_LoopField
  98.         If (TopLoopVar = SubLoopVar)
  99.         {
  100.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  101.             While InStr(Haystack, ",,")
  102.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  103.         }
  104.     }
  105. }
  106. Stringleft, Check, Haystack, 1
  107. If Check = ,
  108.     stringtrimleft, Haystack, Haystack, 1
  109. LowQualityTotal .= Haystack
  110.  
  111.  
  112. ;Weapons
  113. Haystack := Weapons
  114.  Loop, Parse, Weapons , `,
  115. {
  116.     If A_LoopField =
  117.     {
  118.         Break
  119.     }
  120.     TopLoopVar := A_LoopField
  121.     Loop, Parse, LowEdit2, `,
  122.     {
  123.         If A_LoopField =
  124.         {
  125.             Break
  126.         }
  127.         SubLoopVar := A_LoopField
  128.         If (TopLoopVar = SubLoopVar)
  129.         {
  130.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  131.             While InStr(Haystack, ",,")
  132.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  133.         }
  134.     }
  135. }
  136. Stringleft, Check, Haystack, 1
  137. If Check = ,
  138.     stringtrimleft, Haystack, Haystack, 1
  139. LowQualityTotal .= "," Haystack
  140.  
  141. ;Jewelry was on original list...thought i'd just add
  142. Haystack := Jewelry
  143.  Loop, Parse, Jewelry , `,
  144. {
  145.     If A_LoopField =
  146.     {
  147.         Break
  148.     }
  149.     TopLoopVar := A_LoopField
  150.     Loop, Parse, LowEdit2, `,
  151.     {
  152.         If A_LoopField =
  153.         {
  154.             Break
  155.         }
  156.         SubLoopVar := A_LoopField
  157.         If (TopLoopVar = SubLoopVar)
  158.         {
  159.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  160.             While InStr(Haystack, ",,")
  161.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  162.         }
  163.     }
  164. }
  165. Stringleft, Check, Haystack, 1
  166. If Check = ,
  167.     stringtrimleft, Haystack, Haystack, 1
  168. LowQualityTotal .= "," Haystack
  169.  
  170. ;==============================================================
  171. ;                           Normal Quality
  172. ;==============================================================
  173.  
  174. Haystack := Armor
  175. ; armor
  176.  Loop, Parse, Armor , `,
  177. {
  178.     If A_LoopField =
  179.     {
  180.         Break
  181.     }
  182.     TopLoopVar := A_LoopField
  183.     Loop, Parse, NormalEdit2, `,
  184.     {
  185.         If A_LoopField =
  186.         {
  187.             Break
  188.         }
  189.         SubLoopVar := A_LoopField
  190.         If (TopLoopVar = SubLoopVar)
  191.         {
  192.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  193.             While InStr(Haystack, ",,")
  194.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  195.         }
  196.     }
  197. }
  198. Stringleft, Check, Haystack, 1
  199. If Check = ,
  200.     stringtrimleft, Haystack, Haystack, 1
  201. NormalQualityTotal .= Haystack
  202.  
  203.  
  204. ;Weapons
  205. Haystack := Weapons
  206.  Loop, Parse, Weapons , `,
  207. {
  208.     If A_LoopField =
  209.     {
  210.         Break
  211.     }
  212.     TopLoopVar := A_LoopField
  213.     Loop, Parse, NormalEdit2, `,
  214.     {
  215.         If A_LoopField =
  216.         {
  217.             Break
  218.         }
  219.         SubLoopVar := A_LoopField
  220.         If (TopLoopVar = SubLoopVar)
  221.         {
  222.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  223.             While InStr(Haystack, ",,")
  224.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  225.         }
  226.     }
  227. }
  228. Stringleft, Check, Haystack, 1
  229. If Check = ,
  230.     stringtrimleft, Haystack, Haystack, 1
  231. NormalQualityTotal .= "," Haystack
  232.  
  233.  
  234.  
  235. ;========================================================================
  236. ;                   Superior Quality
  237. ;========================================================================
  238.  
  239. Haystack := Armor
  240. ; armor
  241.  Loop, Parse, Armor , `,
  242. {
  243.     If A_LoopField =
  244.     {
  245.         Break
  246.     }
  247.     TopLoopVar := A_LoopField
  248.     Loop, Parse, SuperiorEdit2, `,
  249.     {
  250.         If A_LoopField =
  251.         {
  252.             Break
  253.         }
  254.         SubLoopVar := A_LoopField
  255.         If (TopLoopVar = SubLoopVar)
  256.         {
  257.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  258.             While InStr(Haystack, ",,")
  259.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  260.         }
  261.     }
  262. }
  263. Stringleft, Check, Haystack, 1
  264. If Check = ,
  265.     stringtrimleft, Haystack, Haystack, 1
  266. SuperiorQualityTotal .= Haystack
  267.  
  268.  
  269. ;Weapons
  270. Haystack := Weapons
  271.  Loop, Parse, Weapons , `,
  272. {
  273.     If A_LoopField =
  274.     {
  275.         Break
  276.     }
  277.     TopLoopVar := A_LoopField
  278.     Loop, Parse, SuperiorEdit2, `,
  279.     {
  280.         If A_LoopField =
  281.         {
  282.             Break
  283.         }
  284.         SubLoopVar := A_LoopField
  285.         If (TopLoopVar = SubLoopVar)
  286.         {
  287.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  288.             While InStr(Haystack, ",,")
  289.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  290.         }
  291.     }
  292. }
  293. Stringleft, Check, Haystack, 1
  294. If Check = ,
  295.     stringtrimleft, Haystack, Haystack, 1
  296. SuperiorQualityTotal .= "," Haystack
  297.  
  298.  
  299. ;===============================================
  300. ;           Magic Items
  301. ;==============================================
  302.  
  303. Haystack := Armor
  304. ; armor
  305.  Loop, Parse, Armor , `,
  306. {
  307.     If A_LoopField =
  308.     {
  309.         Break
  310.     }
  311.     TopLoopVar := A_LoopField
  312.     Loop, Parse, MagicEdit2, `,
  313.     {
  314.         If A_LoopField =
  315.         {
  316.             Break
  317.         }
  318.         SubLoopVar := A_LoopField
  319.         If (TopLoopVar = SubLoopVar)
  320.         {
  321.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  322.             While InStr(Haystack, ",,")
  323.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  324.         }
  325.     }
  326. }
  327. Stringleft, Check, Haystack, 1
  328. If Check = ,
  329.     stringtrimleft, Haystack, Haystack, 1
  330. MagicQualityTotal .= Haystack
  331.  
  332.  
  333. ;Weapons
  334. Haystack := Weapons
  335.  Loop, Parse, Weapons , `,
  336. {
  337.     If A_LoopField =
  338.     {
  339.         Break
  340.     }
  341.     TopLoopVar := A_LoopField
  342.     Loop, Parse, MagicEdit2, `,
  343.     {
  344.         If A_LoopField =
  345.         {
  346.             Break
  347.         }
  348.         SubLoopVar := A_LoopField
  349.         If (TopLoopVar = SubLoopVar)
  350.         {
  351.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  352.             While InStr(Haystack, ",,")
  353.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  354.         }
  355.     }
  356. }
  357. Stringleft, Check, Haystack, 1
  358. If Check = ,
  359.     stringtrimleft, Haystack, Haystack, 1
  360. MagicQualityTotal .= "," Haystack
  361.  
  362. ;Jewelry
  363. Haystack := Jewelry
  364.  Loop, Parse, Jewelry , `,
  365. {
  366.     If A_LoopField =
  367.     {
  368.         Break
  369.     }
  370.     TopLoopVar := A_LoopField
  371.     Loop, Parse, MagicEdit2, `,
  372.     {
  373.         If A_LoopField =
  374.         {
  375.             Break
  376.         }
  377.         SubLoopVar := A_LoopField
  378.         If (TopLoopVar = SubLoopVar)
  379.         {
  380.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  381.             While InStr(Haystack, ",,")
  382.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  383.         }
  384.     }
  385. }
  386. Stringleft, Check, Haystack, 1
  387. If Check = ,
  388.     stringtrimleft, Haystack, Haystack, 1
  389. MagicQualityTotal .= "," Haystack
  390.  
  391. ;======================================================================
  392. ;                               Rare Items
  393. ;======================================================================
  394.  
  395. Haystack := Armor
  396. ; armor
  397.  Loop, Parse, Armor , `,
  398. {
  399.     If A_LoopField =
  400.     {
  401.         Break
  402.     }
  403.     TopLoopVar := A_LoopField
  404.     Loop, Parse, RareEdit2, `,
  405.     {
  406.         If A_LoopField =
  407.         {
  408.             Break
  409.         }
  410.         SubLoopVar := A_LoopField
  411.         If (TopLoopVar = SubLoopVar)
  412.         {
  413.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  414.             While InStr(Haystack, ",,")
  415.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  416.         }
  417.     }
  418. }
  419. Stringleft, Check, Haystack, 1
  420. If Check = ,
  421.     stringtrimleft, Haystack, Haystack, 1
  422. RareQualityTotal .= Haystack
  423.  
  424.  
  425. ;Weapons
  426. Haystack := Weapons
  427.  Loop, Parse, Weapons , `,
  428. {
  429.     If A_LoopField =
  430.     {
  431.         Break
  432.     }
  433.     TopLoopVar := A_LoopField
  434.     Loop, Parse, RareEdit2, `,
  435.     {
  436.         If A_LoopField =
  437.         {
  438.             Break
  439.         }
  440.         SubLoopVar := A_LoopField
  441.         If (TopLoopVar = SubLoopVar)
  442.         {
  443.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  444.             While InStr(Haystack, ",,")
  445.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  446.         }
  447.     }
  448. }
  449. Stringleft, Check, Haystack, 1
  450. If Check = ,
  451.     stringtrimleft, Haystack, Haystack, 1
  452. RareQualityTotal .= "," Haystack
  453.  
  454. ;Jewelry
  455. Haystack := Jewelry
  456.  Loop, Parse, Jewelry , `,
  457. {
  458.     If A_LoopField =
  459.     {
  460.         Break
  461.     }
  462.     TopLoopVar := A_LoopField
  463.     Loop, Parse, RareEdit2, `,
  464.     {
  465.         If A_LoopField =
  466.         {
  467.             Break
  468.         }
  469.         SubLoopVar := A_LoopField
  470.         If (TopLoopVar = SubLoopVar)
  471.         {
  472.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  473.             While InStr(Haystack, ",,")
  474.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  475.         }
  476.     }
  477. }
  478. Stringleft, Check, Haystack, 1
  479. If Check = ,
  480.     stringtrimleft, Haystack, Haystack, 1
  481. RareQualityTotal .= "," Haystack
  482.  
  483. ;====================================================================
  484. ;                           Gems, Potions, Runes
  485. ;====================================================================
  486.  
  487. Haystack := Runes
  488. ; Runes
  489.  Loop, Parse, Runes , `,
  490. {
  491.     If A_LoopField =
  492.     {
  493.         Break
  494.     }
  495.     TopLoopVar := A_LoopField
  496.     Loop, Parse, GemEdit2, `,
  497.     {
  498.         If A_LoopField =
  499.         {
  500.             Break
  501.         }
  502.         SubLoopVar := A_LoopField
  503.         If (TopLoopVar = SubLoopVar)
  504.         {
  505.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  506.             While InStr(Haystack, ",,")
  507.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  508.         }
  509.     }
  510. }
  511. Stringleft, Check, Haystack, 1
  512. If Check = ,
  513.     stringtrimleft, Haystack, Haystack, 1
  514. GemTotal .= Haystack
  515.  
  516.  
  517. ;Potions
  518. Haystack := Potions
  519.  Loop, Parse, Potions , `,
  520. {
  521.     If A_LoopField =
  522.     {
  523.         Break
  524.     }
  525.     TopLoopVar := A_LoopField
  526.     Loop, Parse, GemEdit2, `,
  527.     {
  528.         If A_LoopField =
  529.         {
  530.             Break
  531.         }
  532.         SubLoopVar := A_LoopField
  533.         If (TopLoopVar = SubLoopVar)
  534.         {
  535.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  536.             While InStr(Haystack, ",,")
  537.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  538.         }
  539.     }
  540. }
  541. Stringleft, Check, Haystack, 1
  542. If Check = ,
  543.     stringtrimleft, Haystack, Haystack, 1
  544. GemTotal .= "," Haystack
  545.  
  546. ;Gems
  547. Haystack := Gems
  548.  Loop, Parse, Gems , `,
  549. {
  550.     If A_LoopField =
  551.     {
  552.         Break
  553.     }
  554.     TopLoopVar := A_LoopField
  555.     Loop, Parse, GemEdit2, `,
  556.     {
  557.         If A_LoopField =
  558.         {
  559.             Break
  560.         }
  561.         SubLoopVar := A_LoopField
  562.         If (TopLoopVar = SubLoopVar)
  563.         {
  564.             Haystack := RegExReplace(Haystack, SubLoopVar, "")
  565.             While InStr(Haystack, ",,")
  566.                 StringReplace, Haystack, Haystack, `,`, , `, , All
  567.         }
  568.     }
  569. }
  570. Stringleft, Check, Haystack, 1
  571. If Check = ,
  572.     stringtrimleft, Haystack, Haystack, 1
  573. GemTotal .= "," Haystack
  574. ;=======================================================================
  575. ;                           Ini Writer
  576. ;=======================================================================
  577. FileAppend,
  578. (
  579. [D2Ex]
  580. BlobType=2
  581. EnteringFont=7
  582. MaxPlayers=64
  583. ServerPort=6112
  584. PermShowLife=1
  585. PermShowMana=1
  586. AutoShowMap=1
  587. Maphack=1
  588. Lagometer=1
  589. HideGold=1
  590. HideCrap=1
  591. BuffsEnabled=1
  592. BCLvl=18
  593. BOLvl=30
  594. SMLvl=15
  595.  
  596. ;to change hotkeys use virtual keycodes (as decimal value) google them if you have to
  597. ;to add modifier keys add 256 for alt, 512 for ctrl, 1024 for shift, and/or 2048 for windows key to the virtual keycode of the desired hotkey
  598. ;ex. Alt(256) + F1(112) = Alt+F1(368)
  599. CursorLockHKey=368      ;hotkey to toggle cursor lock
  600. AddFilterkHKey=45           ;hotkey to add an item to filter
  601. RemoveFilterHKey=46 ;hotkey to remove an item from filter
  602. HiddenColor=-1          ;-1 to use default color, or use color values below (0-15)
  603.  
  604. ; Colors
  605. ; WHITE = 0
  606. ; RED = 1
  607. ; LIGHTGREEN = 2
  608. ; BLUE = 3
  609. ; DARKGOLD = 4
  610. ; GREY = 5
  611. ; BLACK = 6
  612. ; GOLD = 7
  613. ; ORANGE = 8
  614. ; YELLOW = 9
  615. ; DARKGREEN = 10
  616. ; PURPLE = 11
  617. ; GREEN = 12
  618. ; WHITE2 = 13
  619. ; BLACK2 = 14
  620. ; DARKWHITE = 15
  621.  
  622. ;Item quality
  623. ; WHATEVER = 0
  624. ; LOW  = 1
  625. ; NORMAL = 2
  626. ; SUPERIOR = 3
  627. ; MAGIC = 4
  628. ; SET = 5
  629. ; RARE = 6
  630. ; UNIQUE = 7
  631. ; CRAFTED = 8
  632. ; TEMPERED = 9
  633.  
  634.  
  635. ; Usage : Number = item code, quality, color
  636. ; type hide for the color value to hide an item while you press alt
  637. ; Item codes :
  638. ;custom written by INI WRITER from ArrowFarm
  639. [Item Config]
  640.  
  641. ), %A_Workingdir%\D2Ex.ini
  642. TotalCount = 0
  643. If LowCheck = 1
  644. {
  645.     Loop, Parse, LowQualityTotal, `,
  646.     {
  647.     ;       if (A_LoopField="")
  648.     ;       break
  649.         TotalCount := totalcount + 1
  650.         FileAppend, %TotalCount%=%A_Loopfield% `, low`, hide`n, %A_WorkingDir%\D2ex.ini
  651.     }
  652. }
  653.  
  654. If NormalCheck = 1
  655. {
  656.     Loop, Parse, NormalQualityTotal, `,
  657.     {
  658.     ;       if (A_LoopField="")
  659.     ;       break
  660.         TotalCount := totalcount + 1
  661.         FileAppend, %TotalCount%=%A_Loopfield% `, normal`, hide`n, %A_WorkingDir%\D2ex.ini
  662.     }
  663. }
  664.  
  665. If SuperiorCheck = 1
  666. {
  667.     Loop, Parse, SuperiorQualityTotal, `,
  668.     {
  669.     ;       if (A_LoopField="")
  670.     ;       break
  671.         TotalCount := totalcount + 1
  672.         FileAppend, %TotalCount%=%A_Loopfield% `, superior`, hide`n, %A_WorkingDir%\D2ex.ini
  673.     }
  674. }
  675.  
  676. If MagicCheck = 1
  677. {
  678.     Loop, Parse, MagicQualityTotal, `,
  679.     {
  680.     ;       if (A_LoopField="")
  681.     ;       break
  682.         TotalCount := totalcount + 1
  683.         FileAppend, %TotalCount%=%A_Loopfield% `, magic`, hide`n, %A_WorkingDir%\D2ex.ini
  684.     }
  685. }
  686.  
  687. If RareCheck = 1
  688. {
  689.     Loop, Parse, NormalQualityTotal, `,
  690.     {
  691.     ;   if (A_LoopField="")
  692.     ;       break
  693.         TotalCount := totalcount + 1
  694.         FileAppend, %TotalCount%=%A_Loopfield% `, rare`, hide`n, %A_WorkingDir%\D2ex.ini
  695.     }
  696. }
  697. If SetCheck = 1
  698. {
  699.     Loop, Parse, SetEdit2, `,
  700.     {
  701.         If A_Loopfield = Set Includes
  702.             Break
  703.     ;   If A_Loopfield = ""
  704.     ;       Break
  705.         TotalCount := totalcount + 1
  706.         FileAppend, %TotalCount%=%A_Loopfield% `, set`, hide`n, %A_WorkingDir%\D2ex.ini
  707.     }
  708. }
  709.  
  710. If UniqueCheck = 1
  711. {
  712.     Loop, Parse, UniqueEdit2, `,
  713.     {
  714.         If A_Loopfield = Unique Includes
  715.             Break
  716.         If A_Loopfield = ""
  717.             Break      
  718.         TotalCount := totalcount + 1
  719.         FileAppend, %TotalCount%=%A_Loopfield% `, unique`, hide`n, %A_WorkingDir%\D2ex.ini
  720.     }
  721. }
  722.  
  723. If GemCheck = 1
  724. {
  725.     Loop, Parse, GemTotal, `,
  726.     {
  727.     ;if (A_LoopField="")
  728.     ;       break
  729.         TotalCount := totalcount + 1
  730.         FileAppend, %TotalCount%=%A_Loopfield% `, normal`, hide`n, %A_WorkingDir%\D2ex.ini
  731.     }
  732. }
  733.  
  734. If MiscCheck = 1
  735. {
  736.     Loop, Parse, Misc, `,
  737.     {
  738.     ;if (A_LoopField="")
  739.     ;       break
  740.         TotalCount := totalcount + 1
  741.         FileAppend, %TotalCount%=%A_Loopfield% `, normal`, hide`n, %A_WorkingDir%\D2ex.ini
  742.         FileAppend, %TotalCount%=%A_Loopfield% `, low`, hide`n, %A_WorkingDir%\D2ex.ini
  743.         FileAppend, %TotalCount%=%A_Loopfield% `, magic`, hide`n, %A_WorkingDir%\D2ex.ini
  744.         FileAppend, %TotalCount%=%A_Loopfield% `, rare`, hide`n, %A_WorkingDir%\D2ex.ini
  745.     }
  746. }
  747. return
  748.  
  749. GuiClose:
  750. ExitApp
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!