From 183054e5ba0a00da7f3df69f928793ed669566dd Mon Sep 17 00:00:00 2001 From: Gerry Rosen Date: Tue, 19 May 2020 08:41:04 -0700 Subject: [PATCH] Alpha 5 Add Area A/B Form Attempt to calculate CRC for Traps (Untested) Do not write System Data to Traps Edited CRC for Type 3 to not be set for Traps Fixes Trap Data being read and written Moved some Portal Functionality to new Module Put all Portal Read/Write methods into Background worker Refactored Trap Module to be more efficient --- .vs/SkyReader-GUI/v16/.suo | Bin 153600 -> 157184 bytes SkyReader-GUI/CRC16CCITT.vb | 110 +- SkyReader-GUI/Figures.vb | 26 - SkyReader-GUI/FileIODeclarations.vb | 133 +- SkyReader-GUI/MiFare.vb | 32 +- SkyReader-GUI/Nickname.vb | 4 +- SkyReader-GUI/SkyReader-GUI.vbproj | 10 + SkyReader-GUI/System_ID.vb | 6 +- SkyReader-GUI/Test.vb | 389 +- SkyReader-GUI/bin/Debug/Out.txt | 136 - SkyReader-GUI/frmMain.Designer.vb | 32 +- SkyReader-GUI/frmMain.resx | 20 +- SkyReader-GUI/frmMain.vb | 389 +- SkyReader-GUI/frmTraps.Designer.vb | 402 +- SkyReader-GUI/frmTraps.vb | 6853 ++++++--------------------- SkyReader-GUI/hidControl.vb | 4 +- 16 files changed, 2133 insertions(+), 6413 deletions(-) delete mode 100644 SkyReader-GUI/bin/Debug/Out.txt diff --git a/.vs/SkyReader-GUI/v16/.suo b/.vs/SkyReader-GUI/v16/.suo index d61d47c607739bb16317c02c6190fdecf5d7d63b..34ca8d359d0063d4fa158025af5f071a41147a0f 100644 GIT binary patch delta 9639 zcmcgy30%}=-v9sp%)pEe2#TC0Ba)(`4wvFR2$EVVC{){Oh>C_H5DqDLFrt}9TRM;N zR9haSscYVojz@2ix!JX5u9{okwbhzyTAJCu#rysJX9h>xj(vMS@5ARi&wc*R=lNsb zX0*R+T-rB!rlKf;zz>a$jfj*0pcb%;*S=5PUNM6lYH5h|)$PjHU5}HETdWZ^>QIp# zV4*(Znp#W4L{&iTn3qv=;x4ZDjQ2gp^M!1b{SFueBm=(kdyp;x#seWhbD%ZQ35WpN z1K~g$k!Ogj)gjdm=njknf`9~I6p#h91nvNMCtVO%0*L@GY5<@Il7Pv81&9U8fnGoX zkPEZ|CIG#Gen24*LW=URqNvJ9amCQ8wi}A30D}RZDiiU8Kq~MMkOT1Mt%y4SzX$Sx z`+y2yIM4$K1v&#!Kv$qSrWuGh9vBUnfk{9|pa>WX+|5%(Bhd^f23i2q06x)Uh%*2a zFbo(0a5;y*NS6UUfjFQ)&pA$ySSPmY zA`|_I=BaON^e37VGjO@MtP8K@gg?nRe>=&z%!*D-GEU!4GA>(;I)9R_MBYcTHQs*Q z?lzM3{}IWaL}R131Cy-An`V+3fJNRs57tv;7DgsAf&Snvoricl;A7UukzN2W*E#aj zbj+0^BY!mY5KrZIOkScYN*a&?qyk)>?u|Lk=!JZ5U)i#vNTDkTT{fYw$SsKKgzBd7 zAlejq+xZH|BR_%5KzQS1B&K*WvBA@jumM$`f-a8mY=aI9W!4wgKPS3u;g6FeCfmUD z=iP9jI$jZv#LQ90DdHPMMaabtS7Q~?_EfyEs3twHR}nYbjnF}2yyL`UoFDCc@XzhM z53dO$`R}|h%K8EQfdPOO7zE%n>_%>^ZB=Y9XeCw^gr}FGsvM{Q9tIu(ZrL(=aIYCC zuLd}cLyC09tB!l$)Ug2ZhQ-x;-xFB@$@(np=W9_N)yWkfb($PCw!jH!a*0GubfR$9 zI1S5@ecIQ{HZzx%u>MW-5~6wzdbK&NcU-p7U{Q5>xRF?SKyP{HxI99VjND2`Z|*t%U8dTy>>i{d-Bm>}+q;Y{}H7M$TLV4o_1x8hc-L>PW58 ziSL&DYv`6u6%CztEXw<6&S#SbI$wGPotm`sozMkWQ$T!}B!VIQt`qnUaU51U6~eLx z>Y8b9nTR$m#DG5>lfy&R5Lf*DAoxTZE9D?oun6MeDXqowiQSFV4mmcWyb>BJu1&0^ zA);zhZL_;j$O5M*t{)0jox_$b4#ZkqHrwMATm$iJff^$$OsN=qF?EggB4Li|{lSr&j65;jX2DY-yQlg@M zX)e=qptnGi22|wSmgjQVIghj;&GwS@VlI&9Eg$8LMXpSYVjDfyTi_d1n{lbEaO@ha zV;iO&LZztMH9~FXN5)-tGKebo5@&^u?h;`qyN8Xco@OhaS~w)T+au#<&9qo-f?5s` z4}Y9sN=Z&iPV;PiDxXZ?u#%jj%3?kjQ+h^HaxYKa!(7+wp^^z%0}y2~M%# z+`J7uopZ}8ZADy}q)$&xN=J%-ZrqsXX)NMjR|NKq~z_XY4zfQPw+_)Fk2a0U1Z z5DnianFx)2^El2nm>`$h0kR7wzuZjGfu9Ekfum*KCTi_CH{IyCe(CZH<1(%c7WQ*? zNAD~n@tN?x`OJl__k8+7+~|F`rYClKi}hD9jaPl$p{XyE1%%{N<=}Y5Mlqu5m0F4x z*YF!9s$Q*a9*G+E^blmx2({c*w!#tM2z7;BzCW?X*gN6SWW6&mC#kyLqvAgZ?L_iO z7Tqr`f2MF(>Dti&x+wJJW$7)L-yo`6!-RaYn%EYJtA9`M=$H;0KP2&5SUcJG7{v@a z^ZnF82Uot~e0*O>d+0Q_&{ z8(sFNyOP|zof4K+ba#Y+h9{k<9%|zq3+n- zK-SlGW>5I%1q^(1$`_D3-cnJ%=>oSt5MEJ=qMXN6I}y)CJQyxvK8Us&?$UodF3f;w ztiJHJk#($gvEbcH>txc28DA`B?~`kS~h@@~~}Q&rnWJud9#c#+Vljp)CBfq~Ts_(>bc zb#=dqggqo)IR8GYTLW&7Z*gSpBJ#%$Ul$7tUr2AyqlawkOHq$ys znblBIyruUS%NA(^i6@2x%A6QA!Zp2Y5jl^lj?-D<^?m7L#_3s-R=BIs>=)bh{3?QEUJnYq|)g3-+nKk0>m%kj-vFFA-PtD3d7X7RT zRtjgJIor;kcLs)N&H%i`Nws>mz6s*Sm6?>~s`_e4fU_mlw(2)4bXx?E)5KtNpew52 zq2DfOw+I+mdQ~y*2aqnE4Z?`HtWHrrY=(;~?k*i*dTh_ZI^c#g1;(QTd<~!Os2Pac zK2+LYe+SX%F6mwBF1EJHbA0nHO%OM%UEB#BDS=#rzuQeaJ{(NKe9Fvs0b%8*tkSGQ;O?~sS|w{N{rG9>P4 zh0{mIyfd!T$@4kf7sD!#z8EmcI>oSUk=!da zt=N*$Ys?rfY5s5fr`$U#R~sX1RIW5nrZk5W`u5UU@^|}$eXcH@Z&N;U=#dTtf&c?x z1eyVCuuX`Afi%qd06!AJOK8m&#MhbQWNy5@s1I&;Hku@=VrprkxQ5?iQ58GF?=~l{ zUTY}=Ysvy2Qh)KPW7MuXyjKxi9~;Ufe&ms+p)AG+FW>JA@R911c8VQYvh}Qxy z0Dl5}ojKl!{ENUQAV4fDj5V^;!Zin&^u}f0++UDupLqzm_kh28OSv6~qsV{YS9SvF zzX2Zt9|0$UQ^0xlCR=}u)F;5-flqnEFH*w&tess9XK5-F-yk`6fpV%}KwO*fC`9HZYnwDZ^I*iJJ-MMI4)r{DaV}CAE z^XDQ^<@M)WjW4`KP2QP_WeX}(3yupmeIQco$IK+XxOM>-edyU+y%{;96>a#n7gPh^ z`8cql%BoEfRWMOmnxTr-3>97!?)p_P3Up92Bm>!ykmDO0>10(0nnzaF;3DDr$#wCh zu1h5KH>q%|6>G(jXb0-Aw*6JIziRha+vui9D^Ym*f1tDzm@Yh{B8L$5^r~;xi<)Yd z77L{j$$oJ(@1{C0_(gU6zftG)6DdmSCR1X4G#TXJi4>~kU<-BZ$A;hhaUux)PoI(Cw!=KYSJ-}?$zC+RK8U|pYD|r^Qg1iKA-F) z?F-0SzW~;=VF6uiYrzwKFFb8`#bYV&0q9d1*@SZjVGfQQ)1A}*{X7QB+0xJ)L!NurciO== zGp@k;Mbu1tkjEaH99*9Z{A;f&ztzK*$r~t9S~ihhr&F?<2=&f->qbb`9eb#sG;F4M zZu?Af=%m9=mH>#J#*C3Zr8-3WWWuzBlc~^CODPf(qGLZr(-Uk|?~RvHku;OY^HX6uktLjco)Tr3P-5SbyJ^RTbWbO zEu=ho(hV=xezCc!!Yj``?2@jUe8i7Rf`mtKUnBBKhMe-PucxjZ#-feKp}rO2mgWGu}|A;dc~-suCaD z%Cv7vY%zR+x3&8)gmjqvOC2sX_Bxi^d6eXaq$Uy^|4~ZD#PIz;>~DL|+UF;1k!`>1 z^@}nY_wQtqXJnbwD?3>l)0=i8&#tEo?4py*+(41ix|dyINNDp7xYKfvAY}*laCu~T zE2rn`@c33FGnY^odg->*7yRq^{4y9j!Y2Y* z=3nA#xoQJt$w?cizs%kOg8%&NwLV($>r)$dn*;O-Noxl+#hvml9SV~6iQtqTZE1*n ztC)I9Ycb41Te7b^3VU+o6nUD_uH!IhplhCyio!A>1~=aV;BLDMzogYB`D`eKxv?MFUVD^YQGaqyS@;2UkpuQnySSk~6{aLMOh!6EBURIrkVgq-E}~jyHSmZ;y;HG+YT31aK$;>BVt5`^Uimi$MW@+6GiuBtiR&AZ`MLF-thbssg<=c@x~w9IQuZRB%%X@U&BN3C?1>Qzg?uO2r* z4t$Ts$+I^o%Kcq4b*N4rRn>9w!!~LRRl75Ls;>shl%q7(eb%H-P=8bzx-Lppx9%EX~n7OW5zHO1{Rj!Q_nPg z;k1&PVng90KYHj}ny;>iFDWnUm#jU^_?~8d+-@&z6XvzOSz(0VPRsNb@~bTHa6==t zl-3sT({JMh86{J`Blv}QUza0?s|mNA*yMcmz^`3}W0l!mpQ8>m>bqfsvt-zRK|R6Y z%=iss(kdQit_+REO(NoMb-zxYxKB;QcU7|=BIK2c{=BA%9Ba_5S9^g3}lK5C0Z!)+KuUZ$X@ixdzXYTJXH&pO}jWc#9fj q#biJAk~w1ituLA00X&aJzKmoBkN4$n#<#N)K3FH1_)WvtyOh83cRG14~6{`{# ztgVU+C2pS`5Gz%y;7VIdL9wn?q@gYS6u$p?Zzh?L07CH>+mAQD|J?1od(XY+-gC~q z^WHSQ;nlRmYs1*ylNCjA2Tq?ka|VIp0we+jGLR_dnfi5PQLFuTJo%S0@4@fWCX^T+ z5-Z$SP?I>RnrVtKxtK@(3E78o@P#W9_#TxxF0Pob+mP=Gi~vdj&JziqkrjjOiJ1s{ z0RwY97qSe#510~;gk$XStL-7v@X$;J zuCnJ{<5c!G;%k98dtMsC9*Qzk>5a%RV1vCN9-#m%Krv7OtOVu*+(^AWG$3pQZU;&L z6Tszl2>rw!uVBA5_8b<|_u>>a`ZwKi@CBBy86}L32Z$N25$3Z6%r&rpIdm2t=qrG(gwA8{5PCl14xwiv&O)CJFdNQ7 zPemRJ{aRoiZ~$QTS?ETtsh3v13;J1OU6BhF%;3m5CE5uJ*Q*M8YHr6MLa-RUJ;dUE|15f6O$Twod%W8_%_{Ms&G+RZZ zHP-q;^B`*ehy=ZmHf;$O@J+Mc`)1CV;4l8slKa?k(mDUA2sOz((OJ%@~Np3L}VVXTY4B>EK1TYd91&jv906D-oU_6ix7=Y7) ze1b(taD8|MQe{9n=c3m62rGdFfOsf4WGZJmqX7ktfDu>@ECH4R%K)ZZfp8^ogFU?p zq1hg{gzgs;LlQ)5=v!X21H;9dmZjj61u6Uy;PkgQ^py46$=@11>#$o6s%*P%MR8jK zkvq;xuSfcBd){*hH`?P8%dFR+`|K&MVJqSfIHey%{2^c)(7bsg1CM3$A>z_IeooT`jFO^+wYNe znAJn?KO=So_y}O)j}aaN2FVPSBErA1XLHfF_V@{ee*@$jL_?eBx&D_;qq#<($><&H zLR@0;qMl;Y+$1k03Mn=`Jf&!&I62o$6NIVQ?9GZg7JwvA5Ar9~R~7z4PBbr6cjo?+ zJfG1@V0Pa&h^B>o#a)x!<;;61)VlQT+o-wT)l#0Vj%{C;R%7{kYF?u5+;Nh8-d%OQ zPw=oP!~XI8Eq#pYVyLe^Z+fyU?m?~0h%ole^W204TXoKG-;aqd6zjiMx_dS+P%Zh{ zo*Pia_Kb_&cvi>D<=!+!UDV#HXwA>_(+Oiip87yLf$s)X>xx3Yn%Ak#->H_F zCnv8gHGdM(bov>;!3Sp!OvNV zWQ)L4!O4^CWLz>8akgb_UZ>mhXV}96goS{}tBDU|;(17v0Hr_~P!5Ot%Zg2J|*^bS#!TfDHI2Ey|~*gF}T3q9XF0?q}}+*`gBYtt{U zBJtNJLSzV0z)(o z@Djph$_NS-4?Y-R9r(l_sClibS<~t0-BWvM=gnELK(;!8;z6(cWSS2Yja7aG7Syf^z7ppLQ z+Z6`Z(u=C)ej|km)BR@h5-0KPDNH{zhus7o#>X&M`gUav!ebawt8aWOSwb-_UJV!H zUt8z>j$hqRk(^3E90%vpA95es0aJR{yb0Y zQP)r9a-+ydP4}oI zt13+m6=L35v@Ou)lEn2OB-o!`E_%4J!8)3zb0%zZE5k44jS4Y1_J}9^c)P=6=88D z#>L4NX{#S!k3eI;swl~P-FQRV(1g@voyi5vi|d5C>T+-~R79GF$_NwriELYZuax1# z5>iLl#ne86;>@so{%b$IXHxsf6^F%CrZk?n( zG*~>kC*D6LIVCwEZJ1uKHWu>u6!H0Gm$1(WSLu{_31zZR$dw30GfOks2fH6Kwee|Hz|$4+>%ndHl2h!wG)e7M`6 z_EVdsaMLV>_0%UGs<{Y6O~5>Whio0fLBP%SH0+^bd z3&36t)832letVqLKSTWC_Oy82%WuvjNIwcZ25bi&2Yv}Kz2kZk>8F6F0p1a?FUHF6 zE`&_Os*}SOgwF!c+taUThgTcxJ4UEn?7 zec%J&4*<8s*B=r85Euf19Cga)vQIju6VLnw8J_~50iOe30AB)s1^9-q5gxb4zqhj; zKwfNtlgNMbGZak0{OuQl)_MY=KreCK;54sT#0CHZ#hw$r#6!~6y6?nT*y)fSV@-W(Zd!`y@x?P{o*W?7PDO_Ado1pF=*M$*xy5Go-SUs;Zw-5O;EIfx%%_V( zTR-pp-94{+#Ag2Uw~tm8dwG9)58`jndA;=ReJNL`dB$d<3gzCF@l#(${_Gq3SRXKK zF8-gO&NN>J&rYiOG+Lwo@^6ob^ewrc6EBo`X9qPh)A7TkjGul z%qqx}UNM^+U*4D9G-KF3sY-T34ixFeCMuB|YN$`|M1{{Z>T$qVr(mMbKDOcB`1fhD zGfhlKnnbwTjW~mAz=n7Dwc}jhqltFvX?3V-p;FXVT?O1wBMwzda0B0B#CIYn8qruS z52to9qy9iPC`wUzrE&vyz_sGcRuhFulP`5}FMKwG)b3u0Goxml&nIAG)Bk+NruT9s z633`{IHF33Qk2P=1z8xfEN~;!$5G$lf~+iuYSCDQS0y*DqP{+f;B^^*Qf)8;9bIqh zggjbB{Xn-2E3TT)Mm4%#o#-%Jj>5>U3RU~)6ex?7&I(s93#7-bk)OqrD-WUWe11Ni zjfkVkHzATv+LDooNkoebY&fuZ1Sl=ewLJXJ|XdN^8h#78*AM>@qvwZ-`!2Yss6 zQ~lml)aJ-fQ&Q(SC5CG(w0*JIad`mF{o%FZd`-xlI!UL=Q3}u*Ud&9x`Ir!5URqz? z^ElFS^;S$?M+Vf8C|MiVmX5^O9L-YGV;lrra}H*3{aH2paLtW9+incSjoWf*NLxlP z5JW!QOB@>++Lp)cL_XY?w`E|*a@gpw^Qt!G7-x}S88Y9Gf`VSb!XkfV{oLhT>|KlDB0byL(?!Lb5U;t zYUtQvUr=v*zSocp%zjpcP$$pP>*dK>Ga8dSKvzR@80%kPA z(Tz4+3>)iYM&+4SN^wb4t`>KEnKCL7`nBV7%Ft$d1Lit=BSvkWw$IY+oT-yoyOzlr zag-9rrgA>OtF;!Eqyj6gV}(`7Yn0|V>WSS)E(lAoa4TTU*pMv(Yv2T0mW^2FvL!G& zi7+Nb(C*8%^}@?O5!Q|GW(83W6;Q3&iAsdr^%8`<()eOd`D8Q;Klc{N>*8q8MR7c& zGsjoFgDc*FKCgZZ@4&2^h)Z1-*_u5r!Lo3~bi>6?3@_wbETJka5)QjuIss>`o$g)b zj!tyR>RFuf0s1Ab^2?}~SmoAhdT6<(0XG|Y`4)9G^@@2wWD!t|IWJEVJ5k1Y!*9}vRm!Yon5n@i~Jl2}Dy9*zJe#E3~_e+M46jEijh)>ts0>Aj9t{+S%v@$R^pzY^CyNk6=(M)pG++TvUVu{F&E!_njco@KfI7;d+pYq&(&lMN`M>yg=+c7-PAZzCLiVF`v?TQQEoi6-{loGoi z+|_}rlcT6j*zR|7&o;)Lom>Zn6YuR#ZdErsx#vD=#d9j1d|8b;8XJ-JlUb);wMpa> z4q`8(Rcv>PoL%v*_?!=pwe#+7K56ONj$hyyBDC$$NE>&2@nZO?pU`!26vB_s@RnA8 zILG-|uPd2d!YN+yE%u}?)ZJiVQ|j-8%+}2 zoyDEJH|O78^msv54xYU)tCNOX$slcOsY%)f;AOdzuOjextJju+c(nbVwG_W)E!o;> z2DF=iE{E+ub=2lw)Tk}P|C0>IYdJ;QZztXGbe&^nw5!c?9VR<|@5PjE$r?!C(+`pI zc0)Y5Z#N7ib$e4DsVzv_JftC?@@4)|%$A^`lo*JY>N;NX;81!;epE%_(l(4@<=)3A z$on*Yz2iq4Pls+9P9b9B7kvWxRV02{pzT3DnLeC057FO&dG(h_IWe6%`XD+#g7K_ zJ5DmtK=Cqvf|@G6crjGoW}uOg8AYy&pL;v)1COdoPdrH-v`bZNe9ut>MP%qNybT*Q ze0W0YNd1*FRT&1pir!F_egpA0E+WU2WFGM3|d4zWzz&&>a}{_ckkxd zzAN2%UQyhq511!@i=T79s%+CWpm_=32GYVvEMm)32fu#(wkY$;vFV$e41{O156Za#?teKURr`B;<7~lznP*t z@qaVOFUFsJG$4QG&-MHrHa&mW@AUj%;O##Ce;T(|J>Ls2)-%0=m*hErb{uK-%o(cZ z&&tx%&rjFO`So%$zhC~R1v zsHz$R?*!s~bue(%AXQ@^1%KC?twm1JmGi$s>gn9v9k1I?#3k<@|n)6X~qC^c}2Rok1g|t&|4Iy|bv-mNM|t z7Z&`95-3}8tNgXM79H9U?v6*>Q;STy`I(eQHbgQF_r;s_STjv^|U=kG_`*>9OPF*;R#! zvULHhZJ4k6nTI^F8I(h0zpYexfhNAB7Xx+&sE0h{QOx7rA?hI)8T2M*wBa2}C%jL! zmiow|GBCaHYIR>wSwmf8-F#zWc0<*YiiRmw#zbk0QXdv6rhWmjPcD6U>T1_tZfGg+ hHEo~xjoeVKh6wfU@J=NydG6|MBtG!%hga{s{|^i|bngHF diff --git a/SkyReader-GUI/CRC16CCITT.vb b/SkyReader-GUI/CRC16CCITT.vb index b9b46e7..d0771c9 100644 --- a/SkyReader-GUI/CRC16CCITT.vb +++ b/SkyReader-GUI/CRC16CCITT.vb @@ -29,6 +29,7 @@ Public Class CRC16CCITT 'Type 3 Checksum is Like Type 2, but add 14 BLOCKS of Zero at the end of the Array. 'Type 4 Checksum is The NEXT Four Blocks, after Type 2's Block. It is like Type 2 except that the Inital Two bytes must be set to 06 and 01 respectively. + 'Traps and Crystals use their own Unique things. Because of course they do. 'Yes, Type 3 and Type 2 must be done first before we can do Type 1 Public Shared Function GetCrc() As String @@ -80,23 +81,54 @@ Public Class CRC16CCITT Dim NewChecksumArea1Type4(1) As Byte - 'Since we are getting back a String value, I use the Function to convert that String back to a Byte Array. - 'Type 0 - - CalculateSerialXOR() + 'Since we are getting back a String value, I use the Function to convert that String back to a Byte Array. + 'Type 0 + CalculateSerialXOR() NewChecksumType0 = AES.StringToByteArray(CalculateType0) - 'Type 3 - NewChecksumArea0Type3 = AES.StringToByteArray(CalculateArea0Type3) - NewChecksumArea1Type3 = AES.StringToByteArray(CalculateArea1Type3) + If blnTrap = False Then + 'Type 3 + NewChecksumArea0Type3 = AES.StringToByteArray(CalculateArea0Type3) + NewChecksumArea1Type3 = AES.StringToByteArray(CalculateArea1Type3) + + 'Type 3 + WholeFile(&H8A) = NewChecksumArea0Type3(0) + WholeFile(&H8B) = NewChecksumArea0Type3(1) + + WholeFile(&H24A) = NewChecksumArea1Type3(0) + WholeFile(&H24B) = NewChecksumArea1Type3(1) + Else + NewChecksumArea0Type3 = AES.StringToByteArray(CalculateArea0TypeTrap) + NewChecksumArea1Type3 = AES.StringToByteArray(CalculateArea1TypeTrap) + + WholeFile(&H8A) = NewChecksumArea0Type3(0) + WholeFile(&H8B) = NewChecksumArea0Type3(1) + + WholeFile(&H24A) = NewChecksumArea1Type3(0) + WholeFile(&H24B) = NewChecksumArea1Type3(1) + End If + 'Type 2 NewChecksumArea0Type2 = AES.StringToByteArray(CalculateArea0Type2) NewChecksumArea1Type2 = AES.StringToByteArray(CalculateArea1Type2) - 'Type 4 - NewChecksumArea0Type4 = AES.StringToByteArray(CalculateArea0Type4) - NewChecksumArea1Type4 = AES.StringToByteArray(CalculateArea1Type4) + If blnTrap = False Then + 'Type 4 + NewChecksumArea0Type4 = AES.StringToByteArray(CalculateArea0Type4) + NewChecksumArea1Type4 = AES.StringToByteArray(CalculateArea1Type4) + 'Type 4 + WholeFile(&H110) = NewChecksumArea0Type4(0) + WholeFile(&H111) = NewChecksumArea0Type4(1) + + + WholeFile(&H2D0) = NewChecksumArea1Type4(0) + WholeFile(&H2D1) = NewChecksumArea1Type4(1) + Else + 'Don't do anything related to Type 4 if we are working with a Trap. + 'It will mangle/break the Third Villian in the Trap. + End If + 'We Seek after we Generate the Checksum to set our position 'We do this because we have been ALL over this file. @@ -104,13 +136,6 @@ Public Class CRC16CCITT WholeFile(&H1E) = NewChecksumType0(0) WholeFile(&H1F) = NewChecksumType0(1) - 'Type 3 - WholeFile(&H8A) = NewChecksumArea0Type3(0) - WholeFile(&H8B) = NewChecksumArea0Type3(1) - - WholeFile(&H24A) = NewChecksumArea1Type3(0) - WholeFile(&H24B) = NewChecksumArea1Type3(1) - 'Type 2 WholeFile(&H8C) = NewChecksumArea0Type2(0) WholeFile(&H8D) = NewChecksumArea0Type2(1) @@ -118,12 +143,7 @@ Public Class CRC16CCITT WholeFile(&H24C) = NewChecksumArea1Type2(0) WholeFile(&H24D) = NewChecksumArea1Type2(1) - 'Type 4 - WholeFile(&H110) = NewChecksumArea0Type4(0) - WholeFile(&H111) = NewChecksumArea0Type4(1) - WholeFile(&H2D0) = NewChecksumArea1Type4(0) - WholeFile(&H2D1) = NewChecksumArea1Type4(1) 'We calculate Type 1 last because of it's reliance on the other checksums 'Type 1 @@ -160,11 +180,57 @@ Public Class CRC16CCITT VerifyArea1Type4() End Sub #Region " Traps " + 'These may be wrong. Public Shared Function CalculateArea0TypeTrap() As String + 'Trap CRC is Special + Counter = 0 + Dim LoopCounter As Integer = 0 + 'We ReDim to Resize the Byte Array + 'Is this offsize? + ReDim Bytes(33) + + Do Until LoopCounter = 32 'Gets 32 Bytes. + Bytes(Counter) = Buffer.GetByte(WholeFile, &H8D + LoopCounter) + 'Save As + Counter += 1 + LoopCounter += 1 + Loop + 'Skipping the MiFare Block and getting the last two Bytes + Dim TwoByte As Integer = 0 + Do Until LoopCounter = 34 + Bytes(Counter) = Buffer.GetByte(WholeFile, &HC0 + TwoByte) + Counter += 1 + LoopCounter += 1 + TwoByte += 1 + Loop + Area0TypeTrapCRC = GetCrc().ToUpper + Return Area0TypeTrapCRC End Function Public Shared Function CalculateArea1TypeTrap() As String + 'Trap CRC is Special + Counter = 0 + Dim LoopCounter As Integer = 0 + 'We ReDim to Resize the Byte Array + 'Is this offsize? + ReDim Bytes(33) + Do Until LoopCounter = 32 'Gets 32 Bytes. + Bytes(Counter) = Buffer.GetByte(WholeFile, &H24D + LoopCounter) + 'Save As + Counter += 1 + LoopCounter += 1 + Loop + 'Skipping the MiFare Block and getting the last two Bytes + Dim TwoByte As Integer = 0 + Do Until LoopCounter = 34 + Bytes(Counter) = Buffer.GetByte(WholeFile, &H280 + TwoByte) + Counter += 1 + LoopCounter += 1 + TwoByte += 1 + Loop + Area1TypeTrapCRC = GetCrc().ToUpper + Return Area1TypeTrapCRC End Function #End Region #Region " Type 4 " diff --git a/SkyReader-GUI/Figures.vb b/SkyReader-GUI/Figures.vb index ecceb4c..4a10f8f 100644 --- a/SkyReader-GUI/Figures.vb +++ b/SkyReader-GUI/Figures.vb @@ -179,32 +179,6 @@ Public Class Figures 'Read/Write Bytes '7F0F0869 - 'Imaginators requires these bytes to be 0x00. - 'This will not cause problems for non-Imaginator figures. - Do Until Counter = 16 - 'NameBytes(Counter) = WholeFile(&HA0 + Counter) - WholeFile(&H20 + Counter) = &H0 - Counter += 1 - Loop - Counter = 0 - Do Until Counter = 16 - 'NameBytes(Counter) = WholeFile(&HA0 + Counter) - WholeFile(&H40 + Counter) = &H0 - Counter += 1 - Loop - Counter = 0 - Do Until Counter = 16 - 'NameBytes(Counter) = WholeFile(&HA0 + Counter) - WholeFile(&H220 + Counter) = &H0 - Counter += 1 - Loop - Counter = 0 - Do Until Counter = 16 - 'NameBytes(Counter) = WholeFile(&HA0 + Counter) - WholeFile(&H3E0 + Counter) = &H0 - Counter += 1 - Loop - 'WholeFile(&H20) = &H0 diff --git a/SkyReader-GUI/FileIODeclarations.vb b/SkyReader-GUI/FileIODeclarations.vb index ea1fe03..0c76245 100644 --- a/SkyReader-GUI/FileIODeclarations.vb +++ b/SkyReader-GUI/FileIODeclarations.vb @@ -3,7 +3,6 @@ Option Explicit On Imports Microsoft.Win32.SafeHandles Imports System.Runtime.InteropServices -Imports System.Threading ''' ''' API declarations relating to file I/O. @@ -11,22 +10,22 @@ Imports System.Threading Friend NotInheritable Class FileIO - Friend Const FILE_FLAG_OVERLAPPED As Int32 = &H40000000 - Friend Const FILE_SHARE_READ As Int32 = 1 - Friend Const FILE_SHARE_WRITE As Int32 = 2 - Friend Const GENERIC_READ As UInt32 = &H80000000UL - Friend Const GENERIC_WRITE As UInt32 = &H40000000 - Friend Const INVALID_HANDLE_VALUE As Int32 = -1 - Friend Const OPEN_EXISTING As Int32 = 3 - Friend Const WAIT_TIMEOUT As Int32 = &H102 - Friend Const WAIT_OBJECT_0 As Int32 = 0 + Friend Const FILE_FLAG_OVERLAPPED As Int32 = &H40000000 + Friend Const FILE_SHARE_READ As Int32 = 1 + Friend Const FILE_SHARE_WRITE As Int32 = 2 + Friend Const GENERIC_READ As UInt32 = &H80000000UL + Friend Const GENERIC_WRITE As UInt32 = &H40000000 + Friend Const INVALID_HANDLE_VALUE As Int32 = -1 + Friend Const OPEN_EXISTING As Int32 = 3 + Friend Const WAIT_TIMEOUT As Int32 = &H102 + Friend Const WAIT_OBJECT_0 As Int32 = 0 - _ - Friend Class SECURITY_ATTRIBUTES - Friend nLength As Int32 - Friend lpSecurityDescriptor As Int32 - Friend bInheritHandle As Int32 - End Class + _ + Friend Class SECURITY_ATTRIBUTES + Friend nLength As Int32 + Friend lpSecurityDescriptor As Int32 + Friend bInheritHandle As Int32 + End Class _ Shared Function CancelIo _ @@ -34,62 +33,62 @@ Friend NotInheritable Class FileIO As Int32 End Function - _ - Shared Function CreateEvent _ - (ByVal SecurityAttributes As IntPtr, _ - ByVal bManualReset As Boolean, _ - ByVal bInitialState As Boolean, _ - ByVal lpName As String) _ - As IntPtr - End Function + _ + Shared Function CreateEvent _ + (ByVal SecurityAttributes As IntPtr, _ + ByVal bManualReset As Boolean, _ + ByVal bInitialState As Boolean, _ + ByVal lpName As String) _ + As IntPtr + End Function - _ - Shared Function CreateFile _ - (ByVal lpFileName As String, _ - ByVal dwDesiredAccess As UInt32, _ - ByVal dwShareMode As Int32, _ - ByVal lpSecurityAttributes As IntPtr, _ - ByVal dwCreationDisposition As Int32, _ - ByVal dwFlagsAndAttributes As Int32, _ - ByVal hTemplateFile As Int32) _ - As SafeFileHandle - End Function + _ + Shared Function CreateFile _ + (ByVal lpFileName As String, _ + ByVal dwDesiredAccess As UInt32, _ + ByVal dwShareMode As Int32, _ + ByVal lpSecurityAttributes As IntPtr, _ + ByVal dwCreationDisposition As Int32, _ + ByVal dwFlagsAndAttributes As Int32, _ + ByVal hTemplateFile As Int32) _ + As SafeFileHandle + End Function - _ - Shared Function GetOverlappedResult _ - (ByVal hFile As SafeFileHandle, _ - ByVal lpOverlapped As IntPtr, _ - ByRef lpNumberOfBytesTransferred As Int32, _ - ByVal bWait As Boolean) _ - As Boolean - End Function + _ + Shared Function GetOverlappedResult _ + (ByVal hFile As SafeFileHandle, _ + ByVal lpOverlapped As IntPtr, _ + ByRef lpNumberOfBytesTransferred As Int32, _ + ByVal bWait As Boolean) _ + As Boolean + End Function - _ - Shared Function ReadFile _ - (ByVal hFile As SafeFileHandle, _ - ByVal lpBuffer As IntPtr, _ - ByVal nNumberOfBytesToRead As Int32, _ - ByRef lpNumberOfBytesRead As Int32, _ - ByVal lpOverlapped As IntPtr) _ - As Boolean - End Function + _ + Shared Function ReadFile _ + (ByVal hFile As SafeFileHandle, _ + ByVal lpBuffer As IntPtr, _ + ByVal nNumberOfBytesToRead As Int32, _ + ByRef lpNumberOfBytesRead As Int32, _ + ByVal lpOverlapped As IntPtr) _ + As Boolean + End Function - _ - Shared Function WaitForSingleObject _ - (ByVal hHandle As IntPtr, _ - ByVal dwMilliseconds As Int32) _ - As Int32 - End Function + _ + Shared Function WaitForSingleObject _ + (ByVal hHandle As IntPtr, _ + ByVal dwMilliseconds As Int32) _ + As Int32 + End Function - _ - Shared Function WriteFile _ - (ByVal hFile As SafeFileHandle, _ - ByVal lpBuffer() As Byte, _ - ByVal nNumberOfBytesToWrite As Int32, _ - ByRef lpNumberOfBytesWritten As Int32, _ - ByVal lpOverlapped As IntPtr) _ - As Boolean - End Function + _ + Shared Function WriteFile _ + (ByVal hFile As SafeFileHandle, _ + ByVal lpBuffer() As Byte, _ + ByVal nNumberOfBytesToWrite As Int32, _ + ByRef lpNumberOfBytesWritten As Int32, _ + ByVal lpOverlapped As IntPtr) _ + As Boolean + End Function End Class diff --git a/SkyReader-GUI/MiFare.vb b/SkyReader-GUI/MiFare.vb index 31440b8..a056f11 100644 --- a/SkyReader-GUI/MiFare.vb +++ b/SkyReader-GUI/MiFare.vb @@ -124,67 +124,67 @@ Public Class MiFare Loop If AES.ByteArrayToString(AccessControl01) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 01 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If If AES.ByteArrayToString(AccessControl02) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 02 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If If AES.ByteArrayToString(AccessControl03) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 03 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If If AES.ByteArrayToString(AccessControl04) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 04 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If If AES.ByteArrayToString(AccessControl05) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 05 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If If AES.ByteArrayToString(AccessControl06) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 06 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If If AES.ByteArrayToString(AccessControl07) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 07 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If If AES.ByteArrayToString(AccessControl08) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 08 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If If AES.ByteArrayToString(AccessControl09) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 09 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If If AES.ByteArrayToString(AccessControl10) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 10 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If If AES.ByteArrayToString(AccessControl11) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 11 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If If AES.ByteArrayToString(AccessControl12) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 12 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If If AES.ByteArrayToString(AccessControl13) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 13 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If If AES.ByteArrayToString(AccessControl14) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 14 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If If AES.ByteArrayToString(AccessControl15) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 15 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If If AES.ByteArrayToString(AccessControl16) = "000000000000" Then frmLog.rtxLog.Text = frmLog.rtxLog.Text & Date.Now & " Data Access Block 16 Invalid" & vbNewLine - blnAccess = True + Portal.blnAccess = True End If 'Be Tidy diff --git a/SkyReader-GUI/Nickname.vb b/SkyReader-GUI/Nickname.vb index 3b33070..cc43643 100644 --- a/SkyReader-GUI/Nickname.vb +++ b/SkyReader-GUI/Nickname.vb @@ -59,8 +59,8 @@ Public Class Nickname BadName1 = IsUnicode(FullName1) If BadName1 = True And BadName0 = True Then - 'MessageBox.Show("Loaded Encrypted Figure") - blnEncrypted = True + MessageBox.Show("Loaded Encrypted Figure") + blnEncrypted = True End If If Area0 > Area1 Then diff --git a/SkyReader-GUI/SkyReader-GUI.vbproj b/SkyReader-GUI/SkyReader-GUI.vbproj index 00cfa26..d1fdd4a 100644 --- a/SkyReader-GUI/SkyReader-GUI.vbproj +++ b/SkyReader-GUI/SkyReader-GUI.vbproj @@ -96,6 +96,12 @@ + + Area.vb + + + Form + @@ -151,6 +157,7 @@ True + @@ -163,6 +170,9 @@ + + Area.vb + frmCrystal.vb diff --git a/SkyReader-GUI/System_ID.vb b/SkyReader-GUI/System_ID.vb index 004aac2..abae1d5 100644 --- a/SkyReader-GUI/System_ID.vb +++ b/SkyReader-GUI/System_ID.vb @@ -48,8 +48,6 @@ Public Class System_ID End Select End Sub Shared Sub System2() - 'We are using System 2's value - 'MessageBox.Show("Two: " & System_Two(0)) Select Case System_Two(0) Case 0 frmMain.cmbSystem.SelectedItem = "Wii U" @@ -66,6 +64,10 @@ Public Class System_ID End Select End Sub Shared Sub WriteSystem() + If blnTrap = True Then + 'Do NOT write Data for traps + Exit Sub + End If Select Case frmMain.cmbSystem.SelectedIndex Case 0 'Wii diff --git a/SkyReader-GUI/Test.vb b/SkyReader-GUI/Test.vb index 11f13da..cfcbe56 100644 --- a/SkyReader-GUI/Test.vb +++ b/SkyReader-GUI/Test.vb @@ -1,209 +1,208 @@ Imports System.IO -Imports SkyReader_GUI.frmMain Public Class Test - Shared Sub Hats() - Dim Reader As New StreamReader("hat_simulator.txt") - Dim Line As String - Dim Writer As New StreamWriter("hats2.txt") - Dim SP(1) As String - Do Until Reader.Peek = -1 - Line = Reader.ReadLine - If Line.Contains(",") Then - SP = Line.Split(",") - Try - Writer.Write(SP(0) & ",") - Writer.WriteLine(Hex(SP(1))) - Catch ex As Exception - Writer.Write(SP(0) & ",") - Writer.WriteLine(SP(1)) - End Try - - End If - Loop - Writer.Flush() - Writer.Close() - End Sub - Shared Sub ParseIDs() - Dim Reader As StreamReader = New StreamReader("Items.txt") - Dim Writer As StreamWriter = New StreamWriter("IDs.txt") - Dim Line As String - Dim intFig As Integer = 0 - Dim FigureName As String - Do Until Reader.Peek = -1 - Line = Reader.ReadLine - If Line.StartsWith("ElseIf frmMain.lstCharacters.SelectedItem = ") Then - FigureName = Line.Remove(0, 45) - Writer.WriteLine("'" & FigureName) - ElseIf Line.StartsWith("'") Then - Writer.WriteLine(Line) - End If - Loop - Writer.Flush() - Writer.Close() - End Sub - - Shared Sub GetVariants() - Dim Reader As StreamReader = New StreamReader("IDs.txt") - Dim Writer As StreamWriter = New StreamWriter("Vars.txt") - Dim Var As String - Do Until Reader.Peek = -1 - Reader.ReadLine() 'Name - Reader.ReadLine() 'Gets ID - Var = Reader.ReadLine() 'Gets Variant - 'MessageBox.Show(Var) - Writer.WriteLine(Var) - Loop - Writer.Flush() - Writer.Close() - End Sub - - Shared Sub HatParse() - Dim reader As StreamReader = New StreamReader("Hat.txt") - Dim Writer As StreamWriter = New StreamWriter("Out.txt") + Shared Sub Hats() + Dim Reader As New StreamReader("hat_simulator.txt") + Dim Line As String + Dim Writer As New StreamWriter("hats2.txt") + Dim SP(1) As String + Do Until Reader.Peek = -1 + Line = Reader.ReadLine + If Line.Contains(",") Then + SP = Line.Split(",") + Try + Writer.Write(SP(0) & ",") + Writer.WriteLine(Hex(SP(1))) + Catch ex As Exception + Writer.Write(SP(0) & ",") + Writer.WriteLine(SP(1)) + End Try + + End If + Loop + Writer.Flush() + Writer.Close() + End Sub + Shared Sub ParseIDs() + Dim Reader As StreamReader = New StreamReader("Items.txt") + Dim Writer As StreamWriter = New StreamWriter("IDs.txt") + Dim Line As String + Dim intFig As Integer = 0 + Dim FigureName As String + Do Until Reader.Peek = -1 + Line = Reader.ReadLine + If Line.StartsWith("ElseIf frmMain.lstCharacters.SelectedItem = ") Then + FigureName = Line.Remove(0, 45) + Writer.WriteLine("'" & FigureName) + ElseIf Line.StartsWith("'") Then + Writer.WriteLine(Line) + End If + Loop + Writer.Flush() + Writer.Close() + End Sub + + Shared Sub GetVariants() + Dim Reader As StreamReader = New StreamReader("IDs.txt") + Dim Writer As StreamWriter = New StreamWriter("Vars.txt") + Dim Var As String + Do Until Reader.Peek = -1 + Reader.ReadLine() 'Name + Reader.ReadLine() 'Gets ID + Var = Reader.ReadLine() 'Gets Variant + 'MessageBox.Show(Var) + Writer.WriteLine(Var) + Loop + Writer.Flush() + Writer.Close() + End Sub + + Shared Sub HatParse() + Dim reader As StreamReader = New StreamReader("Hat.txt") + Dim Writer As StreamWriter = New StreamWriter("Out.txt") Dim HatName As String() = {} Dim HexValue As String() = {} Dim Line As String - Do Until reader.Peek = -1 - 'Writer - Line = reader.ReadLine - If Line.Contains("ElseIf frmMain.cmbHat.SelectedItem =") = True Then - HatName = Line.Split("=") - - HatName(1) = HatName(1).Replace(" Then", "") - HatName(1) = HatName(1).Replace(Chr(34), "") - 'HatName(1)) - 'ElseIf - reader.ReadLine() + Do Until reader.Peek = -1 + 'Writer + Line = reader.ReadLine + If Line.Contains("ElseIf frmMain.cmbHat.SelectedItem =") = True Then + HatName = Line.Split("=") + + HatName(1) = HatName(1).Replace(" Then", "") + HatName(1) = HatName(1).Replace(Chr(34), "") + 'HatName(1)) + 'ElseIf + reader.ReadLine() Line = reader.ReadLine HexValue = Line.Split("=") - 'MessageBox.Show(HexValue(1)) - HexValue(1) = HexValue(1).Replace(" ", "") - End If - 'MessageBox.Show("^" & HexValue(1) & "^") - If HexValue(1) = "&H" Then - Writer.WriteLine("'elseIf Hat(0) = " & HexValue(1) & " Then") - Writer.WriteLine("'frmMain.cmbHat.SelectedItem = %" & HatName(1) & "%") - Else - Writer.WriteLine("elseIf Hat(0) = " & HexValue(1) & " Then") - Writer.WriteLine("frmMain.cmbHat.SelectedItem = %" & HatName(1) & "%") - End If - Loop - Writer.Flush() - Writer.Close() - End Sub - - Shared Sub MakeMeCode() - Dim Reader As StreamReader = New StreamReader("Min.txt") - Dim Writer As StreamWriter = New StreamWriter("Code.txt") - Dim Var As String - Do Until Reader.Peek = -1 - Var = Reader.ReadLine - Writer.WriteLine("Dim VariantID " & Var & "As StreamWriter = New StreamWriter(%" & Var & ".txt%)") - Loop - - Reader = New StreamReader("Vars.txt") - Do Until Reader.Peek = -1 - Var = Reader.ReadLine - Writer.WriteLine("Case % " & Var & "%") - Writer.WriteLine("VariantID" & Var & ".WriteLine(^case %^ & FigID & ^%^)") - Writer.WriteLine("VariantID" & Var & ".WriteLine(Figname)") - Writer.WriteLine("VariantID" & Var & ".WriteLine(^frmMain.lstCharacters.SelectedItem = %^ & FigName & ^%^)") - Loop - Writer.Flush() - Writer.Close() - End Sub - Shared Sub EvenParseIDs() - Dim Reader As StreamReader = New StreamReader("IDs.txt") - 'Dim Writer As StreamWriter = New StreamWriter("Out.txt") - Dim FigName As String - Dim FigID As String - Dim VariantID As String - Dim VariantID0D45 As StreamWriter = New StreamWriter("0D45.txt") - Dim VariantID0E45 As StreamWriter = New StreamWriter("0E45.txt") - Dim VariantID0040 As StreamWriter = New StreamWriter("0040.txt") - Dim VariantID0041 As StreamWriter = New StreamWriter("0041.txt") - Dim VariantID0244 As StreamWriter = New StreamWriter("0244.txt") - Dim VariantID0245 As StreamWriter = New StreamWriter("0245.txt") - Dim VariantID0344 As StreamWriter = New StreamWriter("0344.txt") - Dim VariantID0345 As StreamWriter = New StreamWriter("0345.txt") - Dim VariantID0440 As StreamWriter = New StreamWriter("0440.txt") - Dim VariantID1E44 As StreamWriter = New StreamWriter("1E44.txt") - Dim VariantID1038 As StreamWriter = New StreamWriter("1038.txt") - Dim VariantID1048 As StreamWriter = New StreamWriter("1048.txt") - Dim VariantID1138 As StreamWriter = New StreamWriter("1138.txt") - Dim VariantID1545 As StreamWriter = New StreamWriter("1545.txt") - - - Do Until Reader.Peek = -1 - FigName = Reader.ReadLine() - FigID = Reader.ReadLine() - VariantID = Reader.ReadLine() - Try - VariantID = VariantID.Remove(0, 1) - Catch ex As Exception - MessageBox.Show(VariantID) - End Try - - - 'MessageBox.Show(VariantID) - Select Case VariantID - - End Select - - Loop - 'VariantID0030.Close() - 'VariantID0138.Close() - 'VariantID023C.Close() - 'VariantID0234.Close() - 'VariantID0334.Close() - 'VariantID0538.Close() - 'VariantID0938.Close() - 'VariantID1038.Close() - End Sub + 'MessageBox.Show(HexValue(1)) + HexValue(1) = HexValue(1).Replace(" ", "") + End If + 'MessageBox.Show("^" & HexValue(1) & "^") + If HexValue(1) = "&H" Then + Writer.WriteLine("'elseIf Hat(0) = " & HexValue(1) & " Then") + Writer.WriteLine("'frmMain.cmbHat.SelectedItem = %" & HatName(1) & "%") + Else + Writer.WriteLine("elseIf Hat(0) = " & HexValue(1) & " Then") + Writer.WriteLine("frmMain.cmbHat.SelectedItem = %" & HatName(1) & "%") + End If + Loop + Writer.Flush() + Writer.Close() + End Sub + + Shared Sub MakeMeCode() + Dim Reader As StreamReader = New StreamReader("Min.txt") + Dim Writer As StreamWriter = New StreamWriter("Code.txt") + Dim Var As String + Do Until Reader.Peek = -1 + Var = Reader.ReadLine + Writer.WriteLine("Dim VariantID " & Var & "As StreamWriter = New StreamWriter(%" & Var & ".txt%)") + Loop + + Reader = New StreamReader("Vars.txt") + Do Until Reader.Peek = -1 + Var = Reader.ReadLine + Writer.WriteLine("Case % " & Var & "%") + Writer.WriteLine("VariantID" & Var & ".WriteLine(^case %^ & FigID & ^%^)") + Writer.WriteLine("VariantID" & Var & ".WriteLine(Figname)") + Writer.WriteLine("VariantID" & Var & ".WriteLine(^frmMain.lstCharacters.SelectedItem = %^ & FigName & ^%^)") + Loop + Writer.Flush() + Writer.Close() + End Sub + Shared Sub EvenParseIDs() + Dim Reader As StreamReader = New StreamReader("IDs.txt") + 'Dim Writer As StreamWriter = New StreamWriter("Out.txt") + Dim FigName As String + Dim FigID As String + Dim VariantID As String + Dim VariantID0D45 As StreamWriter = New StreamWriter("0D45.txt") + Dim VariantID0E45 As StreamWriter = New StreamWriter("0E45.txt") + Dim VariantID0040 As StreamWriter = New StreamWriter("0040.txt") + Dim VariantID0041 As StreamWriter = New StreamWriter("0041.txt") + Dim VariantID0244 As StreamWriter = New StreamWriter("0244.txt") + Dim VariantID0245 As StreamWriter = New StreamWriter("0245.txt") + Dim VariantID0344 As StreamWriter = New StreamWriter("0344.txt") + Dim VariantID0345 As StreamWriter = New StreamWriter("0345.txt") + Dim VariantID0440 As StreamWriter = New StreamWriter("0440.txt") + Dim VariantID1E44 As StreamWriter = New StreamWriter("1E44.txt") + Dim VariantID1038 As StreamWriter = New StreamWriter("1038.txt") + Dim VariantID1048 As StreamWriter = New StreamWriter("1048.txt") + Dim VariantID1138 As StreamWriter = New StreamWriter("1138.txt") + Dim VariantID1545 As StreamWriter = New StreamWriter("1545.txt") + + + Do Until Reader.Peek = -1 + FigName = Reader.ReadLine() + FigID = Reader.ReadLine() + VariantID = Reader.ReadLine() + Try + VariantID = VariantID.Remove(0, 1) + Catch ex As Exception + MessageBox.Show(VariantID) + End Try + + + 'MessageBox.Show(VariantID) + Select Case VariantID + + End Select + + Loop + 'VariantID0030.Close() + 'VariantID0138.Close() + 'VariantID023C.Close() + 'VariantID0234.Close() + 'VariantID0334.Close() + 'VariantID0538.Close() + 'VariantID0938.Close() + 'VariantID1038.Close() + End Sub Shared Sub IFs() - Dim Reader As StreamReader = New StreamReader("Super.txt") - Dim Writer As StreamWriter = New StreamWriter("Output.txt") - Dim INP As String - Dim Var As String - Dim yourStrings(1) As String - Do Until Reader.Peek = -1 - INP = Reader.ReadLine() - If INP.StartsWith("End If") Then - 'Done - Writer.Flush() - Writer.Close() - ElseIf INP.StartsWith("ElseIf ") Then - 'Write the ElseIf Line - Writer.WriteLine(INP) - ElseIf INP.StartsWith("'") And INP.Length = 5 Then - 'MessageBox.Show(INP) - Writer.WriteLine(INP) - Var = Reader.ReadLine - Writer.WriteLine(Var) - yourStrings(0) = INP.Remove(0, 1) - yourStrings(0) = yourStrings(0).Remove(2, 2) - 'MessageBox.Show(yourStrings(0)) - yourStrings(1) = INP.Remove(0, 3) - 'MessageBox.Show(yourStrings(1)) - Writer.WriteLine("CharacterID(0) = &H" & yourStrings(0)) - Writer.WriteLine("CharacterID(1) = &H" & yourStrings(1)) - yourStrings(0) = Var.Remove(0, 1) - yourStrings(0) = yourStrings(0).Remove(2, 2) - 'MessageBox.Show(yourStrings(0)) - yourStrings(1) = Var.Remove(0, 3) - 'MessageBox.Show(yourStrings(1)) - Writer.WriteLine("CharacterVariant(0) = &H" & yourStrings(0)) - Writer.WriteLine("CharacterVariant(1) = &H" & yourStrings(1)) - ElseIf INP.StartsWith("MessageBox.Show(") Then - Writer.WriteLine(INP) - End If - - Loop - MessageBox.Show("Done") - End Sub + Dim Reader As StreamReader = New StreamReader("Super.txt") + Dim Writer As StreamWriter = New StreamWriter("Output.txt") + Dim INP As String + Dim Var As String + Dim yourStrings(1) As String + Do Until Reader.Peek = -1 + INP = Reader.ReadLine() + If INP.StartsWith("End If") Then + 'Done + Writer.Flush() + Writer.Close() + ElseIf INP.StartsWith("ElseIf ") Then + 'Write the ElseIf Line + Writer.WriteLine(INP) + ElseIf INP.StartsWith("'") And INP.Length = 5 Then + 'MessageBox.Show(INP) + Writer.WriteLine(INP) + Var = Reader.ReadLine + Writer.WriteLine(Var) + yourStrings(0) = INP.Remove(0, 1) + yourStrings(0) = yourStrings(0).Remove(2, 2) + 'MessageBox.Show(yourStrings(0)) + yourStrings(1) = INP.Remove(0, 3) + 'MessageBox.Show(yourStrings(1)) + Writer.WriteLine("CharacterID(0) = &H" & yourStrings(0)) + Writer.WriteLine("CharacterID(1) = &H" & yourStrings(1)) + yourStrings(0) = Var.Remove(0, 1) + yourStrings(0) = yourStrings(0).Remove(2, 2) + 'MessageBox.Show(yourStrings(0)) + yourStrings(1) = Var.Remove(0, 3) + 'MessageBox.Show(yourStrings(1)) + Writer.WriteLine("CharacterVariant(0) = &H" & yourStrings(0)) + Writer.WriteLine("CharacterVariant(1) = &H" & yourStrings(1)) + ElseIf INP.StartsWith("MessageBox.Show(") Then + Writer.WriteLine(INP) + End If + + Loop + MessageBox.Show("Done") + End Sub diff --git a/SkyReader-GUI/bin/Debug/Out.txt b/SkyReader-GUI/bin/Debug/Out.txt deleted file mode 100644 index f5ab41e..0000000 --- a/SkyReader-GUI/bin/Debug/Out.txt +++ /dev/null @@ -1,136 +0,0 @@ -ElseIf frmMain.lstCharacters.SelectedItem Is !Air Hourglass! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Air Jughead! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Air Screamer! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Air Snake! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Air Sword! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Air Toucan! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Dark Handstand! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Dark Spider! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Dark Sword! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Earth Hammer! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Earth Handstand! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Earth Hourglass! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Earth Orb! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Earth Totem! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Earth Toucan! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Easter Earth Handstand! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Fire Captain's Hat! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Fire Scepter! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Fire Screamer! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Fire Torch! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Fire Totem! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Fire Yawn! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Life Hammer! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Life Snake! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Life Sword! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Life Torch! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Life Toucan! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Life Yawn! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Light Hawk! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Light Rocket! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Magic Axe! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Magic Hourglass! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Magic Logholder! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Magic Rocket! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Magic Skull! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Magic Totem! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Tech Angel! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Tech Flying Helmet! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Tech Hand! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Tech Handstand! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Tech Scepter! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Tech Tiki! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Undead Axe! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Undead Captain's Hat! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Undead Hand! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Undead Orb! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Undead Skull! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Undead Snake! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Legendary Undead Orb! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Legendary Undead Skull! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Water Angel! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Water Axe! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Water Flying Helmet! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Water Jughead! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Water Logholder! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Water Tiki! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Legendary Water Jughead! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Kaos Trap! Then -blnNoCode = True -ElseIf frmMain.lstCharacters.SelectedItem Is !Ultimate Kaos Trap! Then -blnNoCode = True diff --git a/SkyReader-GUI/frmMain.Designer.vb b/SkyReader-GUI/frmMain.Designer.vb index d4cac4a..f516385 100644 --- a/SkyReader-GUI/frmMain.Designer.vb +++ b/SkyReader-GUI/frmMain.Designer.vb @@ -97,7 +97,9 @@ Partial Class frmMain Me.btnVehicles = New System.Windows.Forms.Button() Me.btnRaw = New System.Windows.Forms.Button() Me.grpDebug = New System.Windows.Forms.GroupBox() - Me.Button1 = New System.Windows.Forms.Button() + Me.btnArea = New System.Windows.Forms.Button() + Me.bgReadPortalDuo = New System.ComponentModel.BackgroundWorker() + Me.bgWritePortalDuo = New System.ComponentModel.BackgroundWorker() CType(Me.picHeader, System.ComponentModel.ISupportInitialize).BeginInit() Me.grpChecksums.SuspendLayout() CType(Me.picSerial, System.ComponentModel.ISupportInitialize).BeginInit() @@ -752,7 +754,7 @@ Partial Class frmMain ' 'grpDebug ' - Me.grpDebug.Controls.Add(Me.Button1) + Me.grpDebug.Controls.Add(Me.btnArea) Me.grpDebug.Controls.Add(Me.btnRaw) Me.grpDebug.Location = New System.Drawing.Point(436, 36) Me.grpDebug.Name = "grpDebug" @@ -761,14 +763,20 @@ Partial Class frmMain Me.grpDebug.TabStop = False Me.grpDebug.Text = "Debug" ' - 'Button1 + 'btnArea + ' + Me.btnArea.Location = New System.Drawing.Point(6, 64) + Me.btnArea.Name = "btnArea" + Me.btnArea.Size = New System.Drawing.Size(75, 23) + Me.btnArea.TabIndex = 63 + Me.btnArea.Text = "Area" + Me.btnArea.UseVisualStyleBackColor = True + ' + 'bgReadPortalDuo + ' + ' + 'bgWritePortalDuo ' - Me.Button1.Location = New System.Drawing.Point(79, 117) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(75, 23) - Me.Button1.TabIndex = 63 - Me.Button1.Text = "Button1" - Me.Button1.UseVisualStyleBackColor = True ' 'frmMain ' @@ -810,7 +818,7 @@ Partial Class frmMain Me.MainMenuStrip = Me.mnuPurp Me.MaximizeBox = False Me.Name = "frmMain" - Me.Text = "SkyReader-GUI ALPHA-4" + Me.Text = "SkyReader-GUI ALPHA-5" CType(Me.picHeader, System.ComponentModel.ISupportInitialize).EndInit() Me.grpChecksums.ResumeLayout(False) Me.grpChecksums.PerformLayout() @@ -911,5 +919,7 @@ Partial Class frmMain Friend WithEvents btnVehicles As Button Friend WithEvents btnRaw As Button Friend WithEvents grpDebug As GroupBox - Friend WithEvents Button1 As Button + Friend WithEvents btnArea As Button + Friend WithEvents bgReadPortalDuo As System.ComponentModel.BackgroundWorker + Friend WithEvents bgWritePortalDuo As System.ComponentModel.BackgroundWorker End Class diff --git a/SkyReader-GUI/frmMain.resx b/SkyReader-GUI/frmMain.resx index e97a4a7..3860db0 100644 --- a/SkyReader-GUI/frmMain.resx +++ b/SkyReader-GUI/frmMain.resx @@ -118,25 +118,31 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 17, 17 + 481, 17 - 106, 17 + 570, 17 - 208, 17 + 672, 17 - 318, 17 + 142, 17 - 445, 17 + 17, 17 - 570, 17 + 378, 17 - 673, 17 + 269, 17 + + + 782, 17 + + + 930, 17 diff --git a/SkyReader-GUI/frmMain.vb b/SkyReader-GUI/frmMain.vb index f060f9c..a7d1a42 100644 --- a/SkyReader-GUI/frmMain.vb +++ b/SkyReader-GUI/frmMain.vb @@ -1,8 +1,6 @@ -Imports System.IO -Imports System.Threading -Imports Microsoft.Win32.SafeHandles +Imports System.ComponentModel +Imports System.IO Imports SkyReader_GUI.DeviceManagement -Imports System.ComponentModel 'TODO Chart 'Determine how Traps are Different. 'Edit Trap contents. @@ -118,9 +116,18 @@ Public Class frmMain br.Close() 'close the Binary Reader fs.Close() ' close the FileStream blnEncrypted = False - 'Get Nickname - 'We also verify if Encrypted or not. - Nickname.GetNickname() + + 'We can get the Figure's ID and Variant ID without Needing Encryption/Decryption + 'Get Figure ID and Alter Ego/Variant + Figures.GetFigureID_AlterEgo_Variant() + + 'Because traps are writing bytes to where the Nickname would normally show up, we Do NOT attempt to Decrypt here. + If blnTrap = False Then + 'Get Nickname + 'We also verify if Encrypted or not. + Nickname.GetNickname() + End If + If blnEncrypted = True Then @@ -130,15 +137,16 @@ Public Class frmMain 'Calculate the Checksums CRC16CCITT.Checksums() - 'Get Figure ID and Alter Ego/Variant - Figures.GetFigureID_AlterEgo_Variant() + 'Determine if we are going to use Area 0 or Area 1 Figures.Area0orArea1() + frmArea.Area0_1() + 'We break here if Vehicle, Crystal, Item or Trap - If blnVehicle = True Then + If BlnVehicle = True Then Dim frmVehicles As New frmVehicles frmVehicles.Show() Hide() @@ -202,6 +210,7 @@ Public Class frmMain 'Determine if we are going to use Area 0 or Area 1 Figures.Area0orArea1() + frmArea.Area0_1() 'Get the Current Skill Path. Skills.GetSkillPath() @@ -548,6 +557,10 @@ Public Class frmMain Enable_Controls() lblArea1Type4.Text = "Area 0 Type 4" lblArea2Type4.Text = "Area 1 Type 4" + lblArea1Type3.Visible = True + lblArea2Type3.Visible = True + picArea0Type3.Visible = True + picArea1Type3.Visible = True 'cmbHat.Items.Clear() 'btnWrite.Enabled = True If cmbGame.SelectedIndex = 0 Then @@ -590,8 +603,13 @@ Public Class frmMain Disable_Controls() Figures.Traps() 'Traps, do not use Type 4 CRC + 'Traps, do not use Type 3 CRC lblArea1Type4.Text = "Area 0 Trap CRC" lblArea2Type4.Text = "Area 1 Trap CRC" + lblArea1Type3.Visible = False + lblArea2Type3.Visible = False + picArea0Type3.Visible = False + picArea1Type3.Visible = False ElseIf cmbGame.SelectedIndex = 8 Then 'Adventure Packs Disable_Controls() @@ -739,74 +757,100 @@ Public Class frmMain Private Sub CloseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CloseToolStripMenuItem.Click Close() End Sub -#End Region -#Region " Portal Handling " - Dim outRepoBytes(32) As Byte - Dim inRepoBytes(32) As Byte - Public Shared blnAccess As Boolean = False - Public Shared BlnPortalUsed As Boolean = False Private Sub ReadSkylanderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReadSkylanderToolStripMenuItem.Click - bgReadPortal.RunWorkerAsync() + If bgReadPortal.IsBusy = False Then + bgReadPortal.RunWorkerAsync() + Else + SaldeStatus.Text = "Reading from Portal. Please Wait." + Exit Sub + End If End Sub - Private Sub BgReadPortal_DoWork(sender As Object, e As DoWorkEventArgs) Handles bgReadPortal.DoWork - 'reads skylander data from the portal - Dim timeout As Integer - Dim readBlock As Integer - blnAccess = False - - 'Reset portal - outRepoBytes(1) = &H52 'R - outputReport(portalHandle, outRepoBytes) - Thread.Sleep(50) - - outRepoBytes(1) = &H41 'A - outRepoBytes(2) = 1 - outputReport(portalHandle, outRepoBytes) - Thread.Sleep(500) - - 'set to "read first skylander" mode - outRepoBytes(1) = &H51 'Q - outRepoBytes(2) = &H20 'First Figure - readBlock = 0 - Do - 'send report and flush hid queue - outRepoBytes(3) = readBlock - outputReport(portalHandle, outRepoBytes) - flushHid(portalHandle) - timeout = 0 - Do - 'read the reply from the portal, the portal replies between 1 and 2 reports later - inputReport(portalHandle, inRepoBytes) - timeout = timeout + 1 - Loop Until inRepoBytes(1) <> &H53 Or timeout = 4 '53 is S - - If timeout <> 4 Then - 'if we didn't time out we copy the the bytes into the array - Array.Copy(inRepoBytes, 4, WholeFile, readBlock * 16, 16) - readBlock = readBlock + 1 - End If - 'MessageBox.Show(AES.ByteArrayToString(inRepoBytes).ToUpper) - Loop While readBlock <= &H3F 'Last Block - Save_Enc_ToolStripMenuItem.Enabled = True - Save_Dec_ToolStripMenuItem.Enabled = True - MiFare.Detection() - If blnAccess = True Then - MessageBox.Show("Error. Invalid Control Blocks found.") + Private Sub WriteSkylanderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WriteSkylanderToolStripMenuItem.Click + bgWritePortal.RunWorkerAsync() + End Sub + + 'I may want see/check for a Swap Force Figure. + Private Sub ReadSwapperOtherHalfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReadSwapperOtherHalfToolStripMenuItem.Click + If bgReadPortalDuo.IsBusy = False Then + bgReadPortalDuo.RunWorkerAsync() + Else + SaldeStatus.Text = "Reading from Portal. Please Wait." Exit Sub End If + End Sub + Private Sub WriteSwapperOtherHalfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WriteSwapperOtherHalfToolStripMenuItem.Click + bgWritePortalDuo.RunWorkerAsync() + End Sub + + Private Sub ConnectToPortalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConnectToPortalToolStripMenuItem.Click + Portal.portalHandle = FindThePortal() + End Sub - BlnPortalUsed = True + Private Sub tmrSkyKey_Tick(sender As Object, e As EventArgs) Handles tmrSkyKey.Tick + DisableControls() End Sub + + + Dim blnClear As Boolean = False + Private Sub ClearToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClearToolStripMenuItem.Click + blnClear = True + Array.Clear(WholeFile, 0, WholeFile.Length) + 'LoadData() + lstCharacters.SelectedIndex = -1 + cmbGame.SelectedIndex = 0 + cmbHat.SelectedIndex = 0 + numGold.Value = 0 + numHero.Value = 0 + numHeroicChallenges.Value = 0 + numLevel.Value = 1 + radNone.Checked = True + txtName.Text = "" + cmbSystem.SelectedIndex = 0 + + picHeader.BackColor = Color.Yellow + picSerial.BackColor = Color.Yellow + picArea0Type1.BackColor = Color.Yellow + picArea0Type2.BackColor = Color.Yellow + picArea0Type3.BackColor = Color.Yellow + picArea0Type4.BackColor = Color.Yellow + picArea1Type1.BackColor = Color.Yellow + picArea1Type2.BackColor = Color.Yellow + picArea1Type3.BackColor = Color.Yellow + picArea1Type4.BackColor = Color.Yellow + lblWebCode.Text = "" + frmArea.Clear() + End Sub +#End Region + +#Region "Portal Handling" + 'This is to catch if the portal is removed + Protected Overrides Sub WndProc(ByRef m As Message) + If m.Msg = WM_DEVICECHANGE Then + If (m.WParam.ToInt32 = DBT_DEVICEREMOVECOMPLETE) Then + ' If WParam contains DBT_DEVICEREMOVAL, a device has been removed. + ' Find out if it's the device we're communicating with. + If checkDevice(m) Then + lockPortalControls() + SaldeStatus.Text = "Portal Removed!" + DisablePortalControls() + Portal.blnPortal = False + tmrPortal.Enabled = True + End If + End If + End If + MyBase.WndProc(m) + End Sub + + Private Sub BgReadPortal_DoWork(sender As Object, e As DoWorkEventArgs) Handles bgReadPortal.DoWork + Portal.ReadPortal() + End Sub + Private Sub bgReadPortal_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bgReadPortal.RunWorkerCompleted SaldeStatus.Text = "Figure Read from Portal" LoadData() End Sub - Private Sub WriteSkylanderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WriteSkylanderToolStripMenuItem.Click - ' - bgWritePortal.RunWorkerAsync() - End Sub Private Sub BgWritePortal_DoWork(sender As Object, e As DoWorkEventArgs) Handles bgWritePortal.DoWork SaldeStatus.Text = "Writing to Portal" @@ -815,43 +859,7 @@ Public Class frmMain Exit Sub End If 'write data to skylander in portal - Portal_Write() - End Sub - Sub Portal_Write() - If lstCharacters.SelectedIndex = -1 Then - SaldeStatus.Text = "No figure Selected" - Exit Sub - End If - 'We actually need to SET Data here - Write_Data() - 'We need to Encrypt the Array Before we write - ReEncrypt() - 'Magic. - 'write data to skylander in portal - Dim writeBlock As Integer - 'reset portal - outRepoBytes(1) = &H52 'R - outputReport(portalHandle, outRepoBytes) - Thread.Sleep(50) - - outRepoBytes(1) = &H41 'A - outRepoBytes(2) = 1 - outputReport(portalHandle, outRepoBytes) - Thread.Sleep(500) - - 'set to "write first skylander" mode - outRepoBytes(1) = &H57 'W - outRepoBytes(2) = &H20 'First Figure - writeBlock = 5 - Do - outRepoBytes(3) = writeBlock - 'we get the bytes from the data array and put out the report, we need to wait a bit before sending another write report too - Array.Copy(WholeFile, writeBlock * 16, outRepoBytes, 4, 16) - outputReport(portalHandle, outRepoBytes) - Thread.Sleep(100) - writeBlock = writeBlock + 1 - Loop While writeBlock <= &H3F 'Last Block - SaldeStatus.Text = "Save Completed to portal" + Portal.Portal_Write() End Sub Private Sub bgWritePortal_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bgWritePortal.RunWorkerCompleted @@ -860,85 +868,22 @@ Public Class frmMain Decrypt() End Sub - 'I may want see/check for a Swap Force Figure. - Private Sub ReadSwapperOtherHalfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReadSwapperOtherHalfToolStripMenuItem.Click - 'Same as read from portal, but reads the second position skylander (usually the Top half of a Swap Force) - Dim timeout As Integer - Dim readBlock As Integer - - outRepoBytes(1) = &H52 'R - outputReport(portalHandle, outRepoBytes) - Thread.Sleep(50) - - outRepoBytes(1) = &H41 'A - outRepoBytes(2) = 1 - outputReport(portalHandle, outRepoBytes) - Thread.Sleep(500) - - outRepoBytes(1) = &H51 'Q - outRepoBytes(2) = &H21 'Second Figure - readBlock = 0 - Do - outRepoBytes(3) = readBlock - outputReport(portalHandle, outRepoBytes) - flushHid(portalHandle) - timeout = 0 - Do - inputReport(portalHandle, inRepoBytes) - timeout = timeout + 1 - Loop Until inRepoBytes(1) <> &H53 Or timeout = 4 '53 is S - - If timeout <> 4 Then - Array.Copy(inRepoBytes, 4, WholeFile, readBlock * 16, 16) - readBlock = readBlock + 1 - End If - - Loop While readBlock <= &H3F 'Final Block + Private Sub bgReadPortalDuo_DoWork(sender As Object, e As DoWorkEventArgs) Handles bgReadPortalDuo.DoWork + Portal.Portal_Duo_Read() + End Sub + Private Sub bgReadPortalDuo_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bgReadPortalDuo.RunWorkerCompleted + SaldeStatus.Text = "Figure Read from Portal" LoadData() End Sub - Private Sub WriteSwapperOtherHalfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WriteSwapperOtherHalfToolStripMenuItem.Click - 'write data to skylander in portal - Dim writeBlock As Integer - 'We actually need to SET Data here - Write_Data() - 'We need to Encrypt the Array Before we write - ReEncrypt() - 'reset portal - outRepoBytes(1) = &H52 'R - outputReport(portalHandle, outRepoBytes) - Thread.Sleep(50) - - outRepoBytes(1) = &H41 'A - outRepoBytes(2) = 1 - outputReport(portalHandle, outRepoBytes) - Thread.Sleep(500) - - 'set to "write first skylander" mode - outRepoBytes(1) = &H57 'W - outRepoBytes(2) = &H21 'Second Figure - writeBlock = 5 - - 'I need to look into this further - 'I need to and Write ALL bytes/Blocks - Do - outRepoBytes(3) = writeBlock - 'we get the bytes from the data array and put out the report, we need to wait a bit before sending another write report too - - Array.Copy(WholeFile, writeBlock * 16, outRepoBytes, 4, 16) - outputReport(portalHandle, outRepoBytes) - Thread.Sleep(100) - writeBlock = writeBlock + 1 - Loop While writeBlock <= &H3F 'Last Block - Decrypt() - SaldeStatus.Text = "Save Completed to portal" - End Sub - Dim portalHandle As SafeFileHandle - 'Connect to the Portal, using HID - Private Sub ConnectToPortalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConnectToPortalToolStripMenuItem.Click - portalHandle = FindThePortal() + Private Sub bgWritePortalDuo_DoWork(sender As Object, e As DoWorkEventArgs) Handles bgWritePortalDuo.DoWork + SaldeStatus.Text = "Writing to Portal" + If bgWritePortalDuo.IsBusy Then + SaldeStatus.Text = "Still Writing to Portal" + Exit Sub + End If + 'write data to skylander in portal End Sub - 'Disable the Portal Menu Controls except for Connect. 'This is done when the Portal is Removed Public Sub lockPortalControls() @@ -964,29 +909,22 @@ Public Class frmMain ReadSwapperOtherHalfToolStripMenuItem.Enabled = True WriteSwapperOtherHalfToolStripMenuItem.Enabled = True End Sub - Public Shared blnPortal As Boolean = False - 'This is to catch if the portal is removed - Protected Overrides Sub WndProc(ByRef m As Message) - - If m.Msg = WM_DEVICECHANGE Then - If (m.WParam.ToInt32 = DBT_DEVICEREMOVECOMPLETE) Then - - ' If WParam contains DBT_DEVICEREMOVAL, a device has been removed. - ' Find out if it's the device we're communicating with. - If checkDevice(m) Then - lockPortalControls() - SaldeStatus.Text = "Portal Removed!" - DisablePortalControls() - blnPortal = False - tmrPortal.Enabled = True - End If + Dim tmrFail As Integer = 0 + Private Sub TmrPortal_Tick(sender As Object, e As EventArgs) Handles tmrPortal.Tick - End If + If Portal.blnPortal = False Then + Portal.portalHandle = FindThePortal() + ElseIf Portal.blnPortal = True Then + tmrPortal.Enabled = False + tmrFail += 1 + End If + If tmrFail = 10 Then + tmrPortal.Enabled = False End If - MyBase.WndProc(m) End Sub #End Region + Private Sub BtnClear_Click(sender As Object, e As EventArgs) Handles btnReset.Click Dim result As Integer = MessageBox.Show("Are you sure you want to Reset this Figure?", "Reset Figure?", MessageBoxButtons.YesNo) @@ -1002,48 +940,6 @@ Public Class frmMain Write_Data() End If End Sub - Dim tmrFail As Integer = 0 - Private Sub TmrPortal_Tick(sender As Object, e As EventArgs) Handles tmrPortal.Tick - - If blnPortal = False Then - portalHandle = FindThePortal() - ElseIf blnPortal = True Then - tmrPortal.Enabled = False - tmrFail += 1 - End If - If tmrFail = 10 Then - tmrPortal.Enabled = False - End If - End Sub - - Dim blnClear As Boolean = False - Private Sub ClearToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClearToolStripMenuItem.Click - blnClear = True - Array.Clear(WholeFile, 0, WholeFile.Length) - 'LoadData() - lstCharacters.SelectedIndex = -1 - cmbGame.SelectedIndex = 0 - cmbHat.SelectedIndex = 0 - numGold.Value = 0 - numHero.Value = 0 - numHeroicChallenges.Value = 0 - numLevel.Value = 1 - radNone.Checked = True - txtName.Text = "" - cmbSystem.SelectedIndex = 0 - - picHeader.BackColor = Color.Yellow - picSerial.BackColor = Color.Yellow - picArea0Type1.BackColor = Color.Yellow - picArea0Type2.BackColor = Color.Yellow - picArea0Type3.BackColor = Color.Yellow - picArea0Type4.BackColor = Color.Yellow - picArea1Type1.BackColor = Color.Yellow - picArea1Type2.BackColor = Color.Yellow - picArea1Type3.BackColor = Color.Yellow - picArea1Type4.BackColor = Color.Yellow - lblWebCode.Text = "" - End Sub Private Sub btnShowData_Click(sender As Object, e As EventArgs) Handles btnShowData.Click 'Figures.Figure() @@ -1058,15 +954,6 @@ Public Class frmMain lblData.Text = "Data: " End Sub - - Private Sub tmrSkyKey_Tick(sender As Object, e As EventArgs) Handles tmrSkyKey.Tick - DisableControls() - End Sub - - Private Sub btnWebCode_Click(sender As Object, e As EventArgs) - - End Sub - Private Sub btnTraps_Click(sender As Object, e As EventArgs) Handles btnTraps.Click Dim frmTraps As New frmTraps frmTraps.Show() @@ -1090,15 +977,19 @@ Public Class frmMain .Title = "Save Decrypted Dump", .FileName = lstCharacters.SelectedItem } + If (dialog.ShowDialog = DialogResult.OK) Then Dim NewFile As String = dialog.FileName fs = New FileStream(NewFile, FileMode.OpenOrCreate) fs.Write(WholeFile, 0, WholeFile.Length) fs.Flush() + fs.Close() End If End Sub - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - MessageBox.Show(lstCharacters.SelectedIndex) + ReadOnly frmArea As New frmArea + Private Sub btnArea_Click(sender As Object, e As EventArgs) Handles btnArea.Click + frmArea.Visible = True + frmArea.Show() End Sub End Class \ No newline at end of file diff --git a/SkyReader-GUI/frmTraps.Designer.vb b/SkyReader-GUI/frmTraps.Designer.vb index 94dd77c..3f89109 100644 --- a/SkyReader-GUI/frmTraps.Designer.vb +++ b/SkyReader-GUI/frmTraps.Designer.vb @@ -1,27 +1,27 @@  Partial Class frmTraps - Inherits System.Windows.Forms.Form + Inherits System.Windows.Forms.Form - 'Form overrides dispose to clean up the component list. - - Protected Overrides Sub Dispose(ByVal disposing As Boolean) - Try - If disposing AndAlso components IsNot Nothing Then - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub + 'Form overrides dispose to clean up the component list. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub - 'Required by the Windows Form Designer - Private components As System.ComponentModel.IContainer + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer - 'NOTE: The following procedure is required by the Windows Form Designer - 'It can be modified using the Windows Form Designer. - 'Do not modify it using the code editor. - - Private Sub InitializeComponent() + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + + Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTraps)) Me.grpVillian1 = New System.Windows.Forms.GroupBox() Me.lblQuanity1 = New System.Windows.Forms.Label() @@ -34,59 +34,60 @@ Partial Class frmTraps Me.chkVillian1Evolved = New System.Windows.Forms.CheckBox() Me.lblVillian1Name = New System.Windows.Forms.Label() Me.txtVillian1Name = New System.Windows.Forms.TextBox() - Me.lblVillian = New System.Windows.Forms.Label() + Me.lblVillian1 = New System.Windows.Forms.Label() Me.cmbVillian1 = New System.Windows.Forms.ComboBox() Me.btnIDTrap = New System.Windows.Forms.Button() Me.grpVillian2 = New System.Windows.Forms.GroupBox() Me.Label2 = New System.Windows.Forms.Label() Me.cmbVillian2Trinket = New System.Windows.Forms.ComboBox() - Me.Label3 = New System.Windows.Forms.Label() + Me.lblVillian2hat = New System.Windows.Forms.Label() Me.cmbVillian2Hat = New System.Windows.Forms.ComboBox() Me.chkVillian2Evolved = New System.Windows.Forms.CheckBox() Me.Label4 = New System.Windows.Forms.Label() Me.txtVillian2Name = New System.Windows.Forms.TextBox() - Me.Label5 = New System.Windows.Forms.Label() + Me.lblVillian2 = New System.Windows.Forms.Label() Me.cmbVillian2 = New System.Windows.Forms.ComboBox() Me.grpVillian3 = New System.Windows.Forms.GroupBox() Me.Label7 = New System.Windows.Forms.Label() Me.cmbVillian3Trinket = New System.Windows.Forms.ComboBox() - Me.Label8 = New System.Windows.Forms.Label() + Me.lblVillian3hat = New System.Windows.Forms.Label() Me.cmbVillian3Hat = New System.Windows.Forms.ComboBox() Me.chkVillian3Evolved = New System.Windows.Forms.CheckBox() Me.Label9 = New System.Windows.Forms.Label() Me.txtVillian3Name = New System.Windows.Forms.TextBox() - Me.Label10 = New System.Windows.Forms.Label() + Me.lblVillian3 = New System.Windows.Forms.Label() Me.cmbVillian3 = New System.Windows.Forms.ComboBox() Me.grpVillian4 = New System.Windows.Forms.GroupBox() Me.Label12 = New System.Windows.Forms.Label() Me.cmbVillian4Trinket = New System.Windows.Forms.ComboBox() - Me.Label13 = New System.Windows.Forms.Label() + Me.lblVillian4hat = New System.Windows.Forms.Label() Me.cmbVillian4Hat = New System.Windows.Forms.ComboBox() Me.chkVillian4Evolved = New System.Windows.Forms.CheckBox() Me.Label14 = New System.Windows.Forms.Label() Me.txtVillian4Name = New System.Windows.Forms.TextBox() - Me.Label15 = New System.Windows.Forms.Label() + Me.lblVillian4 = New System.Windows.Forms.Label() Me.cmbVillian4 = New System.Windows.Forms.ComboBox() Me.grpVillan5 = New System.Windows.Forms.GroupBox() Me.Label17 = New System.Windows.Forms.Label() Me.cmbVillian5Trinket = New System.Windows.Forms.ComboBox() - Me.Label18 = New System.Windows.Forms.Label() + Me.lblVillian5hat = New System.Windows.Forms.Label() Me.cmbVillian5Hat = New System.Windows.Forms.ComboBox() Me.chkVillian5Evolved = New System.Windows.Forms.CheckBox() Me.Label19 = New System.Windows.Forms.Label() Me.txtVillian5Name = New System.Windows.Forms.TextBox() - Me.Label20 = New System.Windows.Forms.Label() + Me.lblVillian5 = New System.Windows.Forms.Label() Me.cmbVillian5 = New System.Windows.Forms.ComboBox() Me.grpVillian6 = New System.Windows.Forms.GroupBox() Me.Label22 = New System.Windows.Forms.Label() Me.cmbVillian6Trinket = New System.Windows.Forms.ComboBox() - Me.Label23 = New System.Windows.Forms.Label() + Me.lblVillian6hat = New System.Windows.Forms.Label() Me.cmbVillian6Hat = New System.Windows.Forms.ComboBox() Me.chkVillian6Evolved = New System.Windows.Forms.CheckBox() Me.Label24 = New System.Windows.Forms.Label() Me.txtVillian6Name = New System.Windows.Forms.TextBox() - Me.Label25 = New System.Windows.Forms.Label() + Me.lblVillian6 = New System.Windows.Forms.Label() Me.cmbVillian6 = New System.Windows.Forms.ComboBox() + Me.btnVil = New System.Windows.Forms.Button() Me.grpVillian1.SuspendLayout() CType(Me.numVillianCount, System.ComponentModel.ISupportInitialize).BeginInit() Me.grpVillian2.SuspendLayout() @@ -108,7 +109,7 @@ Partial Class frmTraps Me.grpVillian1.Controls.Add(Me.chkVillian1Evolved) Me.grpVillian1.Controls.Add(Me.lblVillian1Name) Me.grpVillian1.Controls.Add(Me.txtVillian1Name) - Me.grpVillian1.Controls.Add(Me.lblVillian) + Me.grpVillian1.Controls.Add(Me.lblVillian1) Me.grpVillian1.Controls.Add(Me.cmbVillian1) Me.grpVillian1.Location = New System.Drawing.Point(12, 12) Me.grpVillian1.Name = "grpVillian1" @@ -157,7 +158,7 @@ Partial Class frmTraps 'cmbVillian1Trinket ' Me.cmbVillian1Trinket.FormattingEnabled = True - Me.cmbVillian1Trinket.Items.AddRange(New Object() {"(None)", "T-Bone's Lucky Tie", "Batterson's Bubble", "Dark Water Daisy", "Vote For Cyclops", "Ramses' Dragon Horn", "Iris' Iris", "Kuckoo Kazoo", "Ramses' Rune", "Ullysses Uniclops", "Billy Bison", "Stealth Elf's Gift", "Lizard Lilly", "Pirate Pinwheel", "Bubble Blower", "Medal of Heroism", "Blobber's Medal of Courage", "Medal of Valliance", "Medal of Gallantry", "Medal of Mettle", "Winged Medal of Bravery", "Seadog Seashell", "Snuckles' Sunflower", "Teddy Cyclops", "Goo Factory Gear", "Elemental Opal", "Elemental Radiant", "Elemental Diamond", "Cyclops Spinner", "Wiliken Windmill", "Time Town Ticker", "Big Bow of Doom", "Mabu's Medallion", "Spyro's Shield"}) + Me.cmbVillian1Trinket.Items.AddRange(New Object() {"(None)", "Batterson's Bubble", "Big Bow of Doom", "Billy Bison", "Blobber's Medal of Courage", "Bubble Blower", "Cyclops Spinner", "Dark Water Daisy", "Elemental Diamond", "Elemental Opal", "Elemental Radiant", "Goo Factory Gear", "Iris' Iris", "Kuckoo Kazoo", "Lizard Lilly", "Mabu's Medallion", "Medal of Gallantry", "Medal of Heroism", "Medal of Mettle", "Medal of Valliance", "Pirate Pinwheel", "Ramses' Dragon Horn", "Ramses' Rune", "Seadog Seashell", "Snuckles' Sunflower", "Spyro's Shield", "Stealth Elf's Gift", "T-Bone's Lucky Tie", "Teddy Cyclops", "Time Town Ticker", "Ullysses Uniclops", "Vote For Cyclops", "Wiliken Windmill", "Winged Medal of Bravery"}) Me.cmbVillian1Trinket.Location = New System.Drawing.Point(146, 94) Me.cmbVillian1Trinket.Name = "cmbVillian1Trinket" Me.cmbVillian1Trinket.Size = New System.Drawing.Size(121, 21) @@ -175,7 +176,7 @@ Partial Class frmTraps 'cmbVillian1Hat ' Me.cmbVillian1Hat.FormattingEnabled = True - Me.cmbVillian1Hat.Items.AddRange(New Object() {"(None)", "Alarm Clock Hat", "Bat Hat", "Batter Up Hat", "Beetle Hat", "Bellhop Hat", "Bobby", "Brain Hat", "Brainiac Hat", "Bronze Arkeyan Helm", "Bucket Hat", "Candle Hat", "Candy Cane Hat", "Carnival Hat", "Ceiling Fan Hat", "Classic Pot Hat", "Clown Bowler Hat", "Clown Classic Hat", "Coconut Hat", "Colander Hat", "Core Of Light Hat", "Cornucopia Hat", "Crazy Light Bulb Hat", "Croissant Hat", "Cubano Hat", "Cycling Hat", "Daisy Crown", "Dark Helm", "Desert Crown", "Dragon Skull", "Eggshell Hat", "Extreme Viking Hat", "Eye of Kaos Hat", "Firefly Jar", "Flight Attendant Hat", "Garrison Hat", "Generalissimo", "Gold Arkeyan Helm", "Gondolier Hat", "Hedgehog Hat", "Horns Be With You Hat", "Hunting Hat", "Imperial Hat", "Juicer Hat", "Kepi Hat", "Kokoshnik", "Light Bulb Hat", "Lighthouse Beacon Hat", "Lil' Elf Hat", "Medic Hat", "Melon Hat", "Metal Fin Hat", "Miniature Skylands Hat", "Molekin Mountain Hat", "Monday Hat", "Mountie Hat", "Night Cap", "Nurse Hat", "Octavius Cloptimus Hat", "Old-Time Movie Hat", "Outback Hat", "Palm Hat", "Paperboy Hat", "Parrot Nest", "Planet Hat", "Pork Pie Hat", "Pyramid Hat", "Radar Hat", "Rainbow Hat", "Rubber Glove Hat", "Rude Boy Hat", "Rugby Hat", "Scooter Hat", "Shadow Ghost Hat", "Sherpa Hat", "Shower Cap", "Silver Arkeyan Helm", "Skipper Hat", "Sleuth Hat", "Steampunk Hat", "Storm Hat", "Synchronized Swimming Cap", "Tin Foil Hat", "Toucan Hat", "Trash Lid", "Tribal Hat", "Turtle Hat", "Volcano Island Hat", "Weather Vane Hat", "William Tell Hat"}) + Me.cmbVillian1Hat.Items.AddRange(New Object() {"(None)", "Alarm Clock Hat", "Bat Hat", "Batter Up Hat", "Beetle Hat", "Bellhop Hat", "Bobby", "Brain Hat", "Brainiac Hat", "Bronze Arkeyan Helm", "Bucket Hat", "Candle Hat", "Candy Cane Hat", "Carnival Hat", "Ceiling Fan Hat", "Classic Pot Hat", "Clown Bowler Hat", "Clown Classic Hat", "Coconut Hat", "Colander Hat", "Core Of Light Hat", "Cornucopia Hat", "Crazy Light Bulb Hat", "Croissant Hat", "Cubano Hat", "Cycling Hat", "Daisy Crown", "Dark Helm", "Desert Crown", "Dragon Skull", "Eggshell Hat", "Extreme Viking Hat", "Eye of Kaos Hat", "Firefly Jar", "Flight Attendant Hat", "Garrison Hat", "Generalissimo Hat", "Gold Arkeyan Helm", "Gondolier Hat", "Hedgehog Hat", "Horns Be With You Hat", "Hunting Hat", "Imperial Hat", "Juicer Hat", "Kepi Hat", "Kokoshnik", "Light Bulb Hat", "Lighthouse Beacon Hat", "Lil' Elf Hat", "Medic Hat", "Melon Hat", "Metal Fin Hat", "Miniature Skylands Hat", "Molekin Mountain Hat", "Monday Hat", "Mountie Hat", "Night Cap", "Nurse Hat", "Octavius Cloptimus Hat", "Old-Time Movie Hat", "Outback Hat", "Palm Hat", "Paperboy Hat", "Parrot Nest", "Planet Hat", "Pork Pie Hat", "Pyramid Hat", "Radar Hat", "Rainbow Hat", "Rubber Glove Hat", "Rude Boy Hat", "Rugby Hat", "Scooter Hat", "Shadow Ghost Hat", "Sherpa Hat", "Shower Cap", "Silver Arkeyan Helm", "Skipper Hat", "Sleuth Hat", "Steampunk Hat", "Storm Hat", "Synchronized Swimming Cap", "Tin Foil Hat", "Toucan Hat", "Trash Lid", "Tribal Hat", "Turtle Hat", "Volcano Island Hat", "Weather Vane Hat", "William Tell Hat"}) Me.cmbVillian1Hat.Location = New System.Drawing.Point(146, 40) Me.cmbVillian1Hat.Name = "cmbVillian1Hat" Me.cmbVillian1Hat.Size = New System.Drawing.Size(121, 21) @@ -208,19 +209,19 @@ Partial Class frmTraps Me.txtVillian1Name.Size = New System.Drawing.Size(121, 20) Me.txtVillian1Name.TabIndex = 2 ' - 'lblVillian + 'lblVillian1 ' - Me.lblVillian.AutoSize = True - Me.lblVillian.Location = New System.Drawing.Point(49, 24) - Me.lblVillian.Name = "lblVillian" - Me.lblVillian.Size = New System.Drawing.Size(34, 13) - Me.lblVillian.TabIndex = 1 - Me.lblVillian.Text = "Villian" + Me.lblVillian1.AutoSize = True + Me.lblVillian1.Location = New System.Drawing.Point(49, 24) + Me.lblVillian1.Name = "lblVillian1" + Me.lblVillian1.Size = New System.Drawing.Size(34, 13) + Me.lblVillian1.TabIndex = 1 + Me.lblVillian1.Text = "Villian" ' 'cmbVillian1 ' Me.cmbVillian1.FormattingEnabled = True - Me.cmbVillian1.Items.AddRange(New Object() {"(None)", "Chompy Mage", "Dr. Crankcase", "Wolfgang", "Chef Pepper Jack", "Nightshade", "Luminous", "Golden Queen", "Dreamcatcher", "Gulper", "Kaos", "Cuckoo Clocker", "Buzzer Beak", "Shield Shredder", "Cross Crow", "Bone Chompy", "Brawl and Chain", "Bomb Shell", "Masker Mind", "Chill Bill", "Sheep Creep", "Shrednaught", "Chomp Chest", "Broccoli Guy", "Rage Mage", "Lob Goblin", "Chompy", "Fisticuffs", "Trolling Thunder", "Hood Sickle", "Bruiser Cruiser", "Brawlrus", "Tussle Sprout", "Krankenstein", "Scrap Shooter", "Slobber Trap", "Grinnade", "Bad Juju", "Blaster-Tron", "Tae Kwon Crow", "Painyata", "Smoke Scream", "Eye Five", "Grave Clobber", "Threatpack", "Mab Lobs", "Eye Scream"}) + Me.cmbVillian1.Items.AddRange(New Object() {"(None)", "Bad Juju", "Blaster-Tron", "Bomb Shell", "Bone Chompy", "Brawl and Chain", "Brawlrus", "Broccoli Guy", "Bruiser Cruiser", "Buzzer Beak", "Chef Pepper Jack", "Chill Bill", "Chomp Chest", "Chompy", "Chompy Mage", "Cross Crow", "Cuckoo Clocker", "Dr. Crankcase", "Dreamcatcher", "Eye Five", "Eye Scream", "Fisticuffs", "Golden Queen", "Grave Clobber", "Grinnade", "Gulper", "Hood Sickle", "Kaos", "Krankenstein", "Lob Goblin", "Luminous", "Mab Lobs", "Masker Mind", "Nightshade", "Painyata", "Rage Mage", "Scrap Shooter", "Sheep Creep", "Shield Shredder", "Shrednaught", "Slobber Trap", "Smoke Scream", "Tae Kwon Crow", "Threatpack", "Trolling Thunder", "Tussle Sprout", "Wolfgang"}) Me.cmbVillian1.Location = New System.Drawing.Point(6, 40) Me.cmbVillian1.Name = "cmbVillian1" Me.cmbVillian1.Size = New System.Drawing.Size(121, 21) @@ -239,12 +240,12 @@ Partial Class frmTraps ' Me.grpVillian2.Controls.Add(Me.Label2) Me.grpVillian2.Controls.Add(Me.cmbVillian2Trinket) - Me.grpVillian2.Controls.Add(Me.Label3) + Me.grpVillian2.Controls.Add(Me.lblVillian2hat) Me.grpVillian2.Controls.Add(Me.cmbVillian2Hat) Me.grpVillian2.Controls.Add(Me.chkVillian2Evolved) Me.grpVillian2.Controls.Add(Me.Label4) Me.grpVillian2.Controls.Add(Me.txtVillian2Name) - Me.grpVillian2.Controls.Add(Me.Label5) + Me.grpVillian2.Controls.Add(Me.lblVillian2) Me.grpVillian2.Controls.Add(Me.cmbVillian2) Me.grpVillian2.Location = New System.Drawing.Point(325, 12) Me.grpVillian2.Name = "grpVillian2" @@ -265,25 +266,25 @@ Partial Class frmTraps 'cmbVillian2Trinket ' Me.cmbVillian2Trinket.FormattingEnabled = True - Me.cmbVillian2Trinket.Items.AddRange(New Object() {"(None)", "T-Bone's Lucky Tie", "Batterson's Bubble", "Dark Water Daisy", "Vote For Cyclops", "Ramses' Dragon Horn", "Iris' Iris", "Kuckoo Kazoo", "Ramses' Rune", "Ullysses Uniclops", "Billy Bison", "Stealth Elf's Gift", "Lizard Lilly", "Pirate Pinwheel", "Bubble Blower", "Medal of Heroism", "Blobber's Medal of Courage", "Medal of Valliance", "Medal of Gallantry", "Medal of Mettle", "Winged Medal of Bravery", "Seadog Seashell", "Snuckles' Sunflower", "Teddy Cyclops", "Goo Factory Gear", "Elemental Opal", "Elemental Radiant", "Elemental Diamond", "Cyclops Spinner", "Wiliken Windmill", "Time Town Ticker", "Big Bow of Doom", "Mabu's Medallion", "Spyro's Shield"}) + Me.cmbVillian2Trinket.Items.AddRange(New Object() {"(None)", "Batterson's Bubble", "Big Bow of Doom", "Billy Bison", "Blobber's Medal of Courage", "Bubble Blower", "Cyclops Spinner", "Dark Water Daisy", "Elemental Diamond", "Elemental Opal", "Elemental Radiant", "Goo Factory Gear", "Iris' Iris", "Kuckoo Kazoo", "Lizard Lilly", "Mabu's Medallion", "Medal of Gallantry", "Medal of Heroism", "Medal of Mettle", "Medal of Valliance", "Pirate Pinwheel", "Ramses' Dragon Horn", "Ramses' Rune", "Seadog Seashell", "Snuckles' Sunflower", "Spyro's Shield", "Stealth Elf's Gift", "T-Bone's Lucky Tie", "Teddy Cyclops", "Time Town Ticker", "Ullysses Uniclops", "Vote For Cyclops", "Wiliken Windmill", "Winged Medal of Bravery"}) Me.cmbVillian2Trinket.Location = New System.Drawing.Point(146, 94) Me.cmbVillian2Trinket.Name = "cmbVillian2Trinket" Me.cmbVillian2Trinket.Size = New System.Drawing.Size(121, 21) Me.cmbVillian2Trinket.TabIndex = 6 ' - 'Label3 + 'lblVillian2hat ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(194, 25) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(24, 13) - Me.Label3.TabIndex = 1 - Me.Label3.Text = "Hat" + Me.lblVillian2hat.AutoSize = True + Me.lblVillian2hat.Location = New System.Drawing.Point(194, 25) + Me.lblVillian2hat.Name = "lblVillian2hat" + Me.lblVillian2hat.Size = New System.Drawing.Size(24, 13) + Me.lblVillian2hat.TabIndex = 1 + Me.lblVillian2hat.Text = "Hat" ' 'cmbVillian2Hat ' Me.cmbVillian2Hat.FormattingEnabled = True - Me.cmbVillian2Hat.Items.AddRange(New Object() {"(None)", "Alarm Clock Hat", "Bat Hat", "Batter Up Hat", "Beetle Hat", "Bellhop Hat", "Bobby", "Brain Hat", "Brainiac Hat", "Bronze Arkeyan Helm", "Bucket Hat", "Candle Hat", "Candy Cane Hat", "Carnival Hat", "Ceiling Fan Hat", "Classic Pot Hat", "Clown Bowler Hat", "Clown Classic Hat", "Coconut Hat", "Colander Hat", "Core Of Light Hat", "Cornucopia Hat", "Crazy Light Bulb Hat", "Croissant Hat", "Cubano Hat", "Cycling Hat", "Daisy Crown", "Dark Helm", "Desert Crown", "Dragon Skull", "Eggshell Hat", "Extreme Viking Hat", "Eye of Kaos Hat", "Firefly Jar", "Flight Attendant Hat", "Garrison Hat", "Generalissimo", "Gold Arkeyan Helm", "Gondolier Hat", "Hedgehog Hat", "Horns Be With You Hat", "Hunting Hat", "Imperial Hat", "Juicer Hat", "Kepi Hat", "Kokoshnik", "Light Bulb Hat", "Lighthouse Beacon Hat", "Lil' Elf Hat", "Medic Hat", "Melon Hat", "Metal Fin Hat", "Miniature Skylands Hat", "Molekin Mountain Hat", "Monday Hat", "Mountie Hat", "Night Cap", "Nurse Hat", "Octavius Cloptimus Hat", "Old-Time Movie Hat", "Outback Hat", "Palm Hat", "Paperboy Hat", "Parrot Nest", "Planet Hat", "Pork Pie Hat", "Pyramid Hat", "Radar Hat", "Rainbow Hat", "Rubber Glove Hat", "Rude Boy Hat", "Rugby Hat", "Scooter Hat", "Shadow Ghost Hat", "Sherpa Hat", "Shower Cap", "Silver Arkeyan Helm", "Skipper Hat", "Sleuth Hat", "Steampunk Hat", "Storm Hat", "Synchronized Swimming Cap", "Tin Foil Hat", "Toucan Hat", "Trash Lid", "Tribal Hat", "Turtle Hat", "Volcano Island Hat", "Weather Vane Hat", "William Tell Hat"}) + Me.cmbVillian2Hat.Items.AddRange(New Object() {"(None)", "Alarm Clock Hat", "Bat Hat", "Batter Up Hat", "Beetle Hat", "Bellhop Hat", "Bobby", "Brain Hat", "Brainiac Hat", "Bronze Arkeyan Helm", "Bucket Hat", "Candle Hat", "Candy Cane Hat", "Carnival Hat", "Ceiling Fan Hat", "Classic Pot Hat", "Clown Bowler Hat", "Clown Classic Hat", "Coconut Hat", "Colander Hat", "Core Of Light Hat", "Cornucopia Hat", "Crazy Light Bulb Hat", "Croissant Hat", "Cubano Hat", "Cycling Hat", "Daisy Crown", "Dark Helm", "Desert Crown", "Dragon Skull", "Eggshell Hat", "Extreme Viking Hat", "Eye of Kaos Hat", "Firefly Jar", "Flight Attendant Hat", "Garrison Hat", "Generalissimo Hat", "Gold Arkeyan Helm", "Gondolier Hat", "Hedgehog Hat", "Horns Be With You Hat", "Hunting Hat", "Imperial Hat", "Juicer Hat", "Kepi Hat", "Kokoshnik", "Light Bulb Hat", "Lighthouse Beacon Hat", "Lil' Elf Hat", "Medic Hat", "Melon Hat", "Metal Fin Hat", "Miniature Skylands Hat", "Molekin Mountain Hat", "Monday Hat", "Mountie Hat", "Night Cap", "Nurse Hat", "Octavius Cloptimus Hat", "Old-Time Movie Hat", "Outback Hat", "Palm Hat", "Paperboy Hat", "Parrot Nest", "Planet Hat", "Pork Pie Hat", "Pyramid Hat", "Radar Hat", "Rainbow Hat", "Rubber Glove Hat", "Rude Boy Hat", "Rugby Hat", "Scooter Hat", "Shadow Ghost Hat", "Sherpa Hat", "Shower Cap", "Silver Arkeyan Helm", "Skipper Hat", "Sleuth Hat", "Steampunk Hat", "Storm Hat", "Synchronized Swimming Cap", "Tin Foil Hat", "Toucan Hat", "Trash Lid", "Tribal Hat", "Turtle Hat", "Volcano Island Hat", "Weather Vane Hat", "William Tell Hat"}) Me.cmbVillian2Hat.Location = New System.Drawing.Point(146, 40) Me.cmbVillian2Hat.Name = "cmbVillian2Hat" Me.cmbVillian2Hat.Size = New System.Drawing.Size(121, 21) @@ -316,19 +317,19 @@ Partial Class frmTraps Me.txtVillian2Name.Size = New System.Drawing.Size(121, 20) Me.txtVillian2Name.TabIndex = 2 ' - 'Label5 + 'lblVillian2 ' - Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(52, 24) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(34, 13) - Me.Label5.TabIndex = 1 - Me.Label5.Text = "Villian" + Me.lblVillian2.AutoSize = True + Me.lblVillian2.Location = New System.Drawing.Point(52, 24) + Me.lblVillian2.Name = "lblVillian2" + Me.lblVillian2.Size = New System.Drawing.Size(34, 13) + Me.lblVillian2.TabIndex = 1 + Me.lblVillian2.Text = "Villian" ' 'cmbVillian2 ' Me.cmbVillian2.FormattingEnabled = True - Me.cmbVillian2.Items.AddRange(New Object() {"(None)", "Chompy Mage", "Dr. Crankcase", "Wolfgang", "Chef Pepper Jack", "Nightshade", "Luminous", "Golden Queen", "Dreamcatcher", "Gulper", "Kaos", "Cuckoo Clocker", "Buzzer Beak", "Shield Shredder", "Cross Crow", "Bone Chompy", "Brawl and Chain", "Bomb Shell", "Masker Mind", "Chill Bill", "Sheep Creep", "Shrednaught", "Chomp Chest", "Broccoli Guy", "Rage Mage", "Lob Goblin", "Chompy", "Fisticuffs", "Trolling Thunder", "Hood Sickle", "Bruiser Cruiser", "Brawlrus", "Tussle Sprout", "Krankenstein", "Scrap Shooter", "Slobber Trap", "Grinnade", "Bad Juju", "Blaster-Tron", "Tae Kwon Crow", "Painyata", "Smoke Scream", "Eye Five", "Grave Clobber", "Threatpack", "Mab Lobs", "Eye Scream"}) + Me.cmbVillian2.Items.AddRange(New Object() {"(None)", "Bad Juju", "Blaster-Tron", "Bomb Shell", "Bone Chompy", "Brawl and Chain", "Brawlrus", "Broccoli Guy", "Bruiser Cruiser", "Buzzer Beak", "Chef Pepper Jack", "Chill Bill", "Chomp Chest", "Chompy", "Chompy Mage", "Cross Crow", "Cuckoo Clocker", "Dr. Crankcase", "Dreamcatcher", "Eye Five", "Eye Scream", "Fisticuffs", "Golden Queen", "Grave Clobber", "Grinnade", "Gulper", "Hood Sickle", "Kaos", "Krankenstein", "Lob Goblin", "Luminous", "Mab Lobs", "Masker Mind", "Nightshade", "Painyata", "Rage Mage", "Scrap Shooter", "Sheep Creep", "Shield Shredder", "Shrednaught", "Slobber Trap", "Smoke Scream", "Tae Kwon Crow", "Threatpack", "Trolling Thunder", "Tussle Sprout", "Wolfgang"}) Me.cmbVillian2.Location = New System.Drawing.Point(9, 40) Me.cmbVillian2.Name = "cmbVillian2" Me.cmbVillian2.Size = New System.Drawing.Size(121, 21) @@ -338,12 +339,12 @@ Partial Class frmTraps ' Me.grpVillian3.Controls.Add(Me.Label7) Me.grpVillian3.Controls.Add(Me.cmbVillian3Trinket) - Me.grpVillian3.Controls.Add(Me.Label8) + Me.grpVillian3.Controls.Add(Me.lblVillian3hat) Me.grpVillian3.Controls.Add(Me.cmbVillian3Hat) Me.grpVillian3.Controls.Add(Me.chkVillian3Evolved) Me.grpVillian3.Controls.Add(Me.Label9) Me.grpVillian3.Controls.Add(Me.txtVillian3Name) - Me.grpVillian3.Controls.Add(Me.Label10) + Me.grpVillian3.Controls.Add(Me.lblVillian3) Me.grpVillian3.Controls.Add(Me.cmbVillian3) Me.grpVillian3.Location = New System.Drawing.Point(12, 200) Me.grpVillian3.Name = "grpVillian3" @@ -364,20 +365,20 @@ Partial Class frmTraps 'cmbVillian3Trinket ' Me.cmbVillian3Trinket.FormattingEnabled = True - Me.cmbVillian3Trinket.Items.AddRange(New Object() {"(None)", "T-Bone's Lucky Tie", "Batterson's Bubble", "Dark Water Daisy", "Vote For Cyclops", "Ramses' Dragon Horn", "Iris' Iris", "Kuckoo Kazoo", "Ramses' Rune", "Ullysses Uniclops", "Billy Bison", "Stealth Elf's Gift", "Lizard Lilly", "Pirate Pinwheel", "Bubble Blower", "Medal of Heroism", "Blobber's Medal of Courage", "Medal of Valliance", "Medal of Gallantry", "Medal of Mettle", "Winged Medal of Bravery", "Seadog Seashell", "Snuckles' Sunflower", "Teddy Cyclops", "Goo Factory Gear", "Elemental Opal", "Elemental Radiant", "Elemental Diamond", "Cyclops Spinner", "Wiliken Windmill", "Time Town Ticker", "Big Bow of Doom", "Mabu's Medallion", "Spyro's Shield"}) + Me.cmbVillian3Trinket.Items.AddRange(New Object() {"(None)", "Batterson's Bubble", "Big Bow of Doom", "Billy Bison", "Blobber's Medal of Courage", "Bubble Blower", "Cyclops Spinner", "Dark Water Daisy", "Elemental Diamond", "Elemental Opal", "Elemental Radiant", "Goo Factory Gear", "Iris' Iris", "Kuckoo Kazoo", "Lizard Lilly", "Mabu's Medallion", "Medal of Gallantry", "Medal of Heroism", "Medal of Mettle", "Medal of Valliance", "Pirate Pinwheel", "Ramses' Dragon Horn", "Ramses' Rune", "Seadog Seashell", "Snuckles' Sunflower", "Spyro's Shield", "Stealth Elf's Gift", "T-Bone's Lucky Tie", "Teddy Cyclops", "Time Town Ticker", "Ullysses Uniclops", "Vote For Cyclops", "Wiliken Windmill", "Winged Medal of Bravery"}) Me.cmbVillian3Trinket.Location = New System.Drawing.Point(146, 94) Me.cmbVillian3Trinket.Name = "cmbVillian3Trinket" Me.cmbVillian3Trinket.Size = New System.Drawing.Size(121, 21) Me.cmbVillian3Trinket.TabIndex = 6 ' - 'Label8 + 'lblVillian3hat ' - Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(194, 25) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(24, 13) - Me.Label8.TabIndex = 1 - Me.Label8.Text = "Hat" + Me.lblVillian3hat.AutoSize = True + Me.lblVillian3hat.Location = New System.Drawing.Point(194, 25) + Me.lblVillian3hat.Name = "lblVillian3hat" + Me.lblVillian3hat.Size = New System.Drawing.Size(24, 13) + Me.lblVillian3hat.TabIndex = 1 + Me.lblVillian3hat.Text = "Hat" ' 'cmbVillian3Hat ' @@ -415,19 +416,19 @@ Partial Class frmTraps Me.txtVillian3Name.Size = New System.Drawing.Size(121, 20) Me.txtVillian3Name.TabIndex = 2 ' - 'Label10 + 'lblVillian3 ' - Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(49, 25) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(34, 13) - Me.Label10.TabIndex = 1 - Me.Label10.Text = "Villian" + Me.lblVillian3.AutoSize = True + Me.lblVillian3.Location = New System.Drawing.Point(49, 25) + Me.lblVillian3.Name = "lblVillian3" + Me.lblVillian3.Size = New System.Drawing.Size(34, 13) + Me.lblVillian3.TabIndex = 1 + Me.lblVillian3.Text = "Villian" ' 'cmbVillian3 ' Me.cmbVillian3.FormattingEnabled = True - Me.cmbVillian3.Items.AddRange(New Object() {"(None)", "Chompy Mage", "Dr. Crankcase", "Wolfgang", "Chef Pepper Jack", "Nightshade", "Luminous", "Golden Queen", "Dreamcatcher", "Gulper", "Kaos", "Cuckoo Clocker", "Buzzer Beak", "Shield Shredder", "Cross Crow", "Bone Chompy", "Brawl and Chain", "Bomb Shell", "Masker Mind", "Chill Bill", "Sheep Creep", "Shrednaught", "Chomp Chest", "Broccoli Guy", "Rage Mage", "Lob Goblin", "Chompy", "Fisticuffs", "Trolling Thunder", "Hood Sickle", "Bruiser Cruiser", "Brawlrus", "Tussle Sprout", "Krankenstein", "Scrap Shooter", "Slobber Trap", "Grinnade", "Bad Juju", "Blaster-Tron", "Tae Kwon Crow", "Painyata", "Smoke Scream", "Eye Five", "Grave Clobber", "Threatpack", "Mab Lobs", "Eye Scream"}) + Me.cmbVillian3.Items.AddRange(New Object() {"(None)", "Bad Juju", "Blaster-Tron", "Bomb Shell", "Bone Chompy", "Brawl and Chain", "Brawlrus", "Broccoli Guy", "Bruiser Cruiser", "Buzzer Beak", "Chef Pepper Jack", "Chill Bill", "Chomp Chest", "Chompy", "Chompy Mage", "Cross Crow", "Cuckoo Clocker", "Dr. Crankcase", "Dreamcatcher", "Eye Five", "Eye Scream", "Fisticuffs", "Golden Queen", "Grave Clobber", "Grinnade", "Gulper", "Hood Sickle", "Kaos", "Krankenstein", "Lob Goblin", "Luminous", "Mab Lobs", "Masker Mind", "Nightshade", "Painyata", "Rage Mage", "Scrap Shooter", "Sheep Creep", "Shield Shredder", "Shrednaught", "Slobber Trap", "Smoke Scream", "Tae Kwon Crow", "Threatpack", "Trolling Thunder", "Tussle Sprout", "Wolfgang"}) Me.cmbVillian3.Location = New System.Drawing.Point(6, 41) Me.cmbVillian3.Name = "cmbVillian3" Me.cmbVillian3.Size = New System.Drawing.Size(121, 21) @@ -437,12 +438,12 @@ Partial Class frmTraps ' Me.grpVillian4.Controls.Add(Me.Label12) Me.grpVillian4.Controls.Add(Me.cmbVillian4Trinket) - Me.grpVillian4.Controls.Add(Me.Label13) + Me.grpVillian4.Controls.Add(Me.lblVillian4hat) Me.grpVillian4.Controls.Add(Me.cmbVillian4Hat) Me.grpVillian4.Controls.Add(Me.chkVillian4Evolved) Me.grpVillian4.Controls.Add(Me.Label14) Me.grpVillian4.Controls.Add(Me.txtVillian4Name) - Me.grpVillian4.Controls.Add(Me.Label15) + Me.grpVillian4.Controls.Add(Me.lblVillian4) Me.grpVillian4.Controls.Add(Me.cmbVillian4) Me.grpVillian4.Location = New System.Drawing.Point(325, 200) Me.grpVillian4.Name = "grpVillian4" @@ -463,20 +464,20 @@ Partial Class frmTraps 'cmbVillian4Trinket ' Me.cmbVillian4Trinket.FormattingEnabled = True - Me.cmbVillian4Trinket.Items.AddRange(New Object() {"(None)", "T-Bone's Lucky Tie", "Batterson's Bubble", "Dark Water Daisy", "Vote For Cyclops", "Ramses' Dragon Horn", "Iris' Iris", "Kuckoo Kazoo", "Ramses' Rune", "Ullysses Uniclops", "Billy Bison", "Stealth Elf's Gift", "Lizard Lilly", "Pirate Pinwheel", "Bubble Blower", "Medal of Heroism", "Blobber's Medal of Courage", "Medal of Valliance", "Medal of Gallantry", "Medal of Mettle", "Winged Medal of Bravery", "Seadog Seashell", "Snuckles' Sunflower", "Teddy Cyclops", "Goo Factory Gear", "Elemental Opal", "Elemental Radiant", "Elemental Diamond", "Cyclops Spinner", "Wiliken Windmill", "Time Town Ticker", "Big Bow of Doom", "Mabu's Medallion", "Spyro's Shield"}) + Me.cmbVillian4Trinket.Items.AddRange(New Object() {"(None)", "Batterson's Bubble", "Big Bow of Doom", "Billy Bison", "Blobber's Medal of Courage", "Bubble Blower", "Cyclops Spinner", "Dark Water Daisy", "Elemental Diamond", "Elemental Opal", "Elemental Radiant", "Goo Factory Gear", "Iris' Iris", "Kuckoo Kazoo", "Lizard Lilly", "Mabu's Medallion", "Medal of Gallantry", "Medal of Heroism", "Medal of Mettle", "Medal of Valliance", "Pirate Pinwheel", "Ramses' Dragon Horn", "Ramses' Rune", "Seadog Seashell", "Snuckles' Sunflower", "Spyro's Shield", "Stealth Elf's Gift", "T-Bone's Lucky Tie", "Teddy Cyclops", "Time Town Ticker", "Ullysses Uniclops", "Vote For Cyclops", "Wiliken Windmill", "Winged Medal of Bravery"}) Me.cmbVillian4Trinket.Location = New System.Drawing.Point(146, 94) Me.cmbVillian4Trinket.Name = "cmbVillian4Trinket" Me.cmbVillian4Trinket.Size = New System.Drawing.Size(121, 21) Me.cmbVillian4Trinket.TabIndex = 6 ' - 'Label13 + 'lblVillian4hat ' - Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(194, 25) - Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(24, 13) - Me.Label13.TabIndex = 1 - Me.Label13.Text = "Hat" + Me.lblVillian4hat.AutoSize = True + Me.lblVillian4hat.Location = New System.Drawing.Point(194, 25) + Me.lblVillian4hat.Name = "lblVillian4hat" + Me.lblVillian4hat.Size = New System.Drawing.Size(24, 13) + Me.lblVillian4hat.TabIndex = 1 + Me.lblVillian4hat.Text = "Hat" ' 'cmbVillian4Hat ' @@ -514,19 +515,19 @@ Partial Class frmTraps Me.txtVillian4Name.Size = New System.Drawing.Size(121, 20) Me.txtVillian4Name.TabIndex = 2 ' - 'Label15 + 'lblVillian4 ' - Me.Label15.AutoSize = True - Me.Label15.Location = New System.Drawing.Point(52, 24) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(34, 13) - Me.Label15.TabIndex = 1 - Me.Label15.Text = "Villian" + Me.lblVillian4.AutoSize = True + Me.lblVillian4.Location = New System.Drawing.Point(52, 24) + Me.lblVillian4.Name = "lblVillian4" + Me.lblVillian4.Size = New System.Drawing.Size(34, 13) + Me.lblVillian4.TabIndex = 1 + Me.lblVillian4.Text = "Villian" ' 'cmbVillian4 ' Me.cmbVillian4.FormattingEnabled = True - Me.cmbVillian4.Items.AddRange(New Object() {"(None)", "Chompy Mage", "Dr. Crankcase", "Wolfgang", "Chef Pepper Jack", "Nightshade", "Luminous", "Golden Queen", "Dreamcatcher", "Gulper", "Kaos", "Cuckoo Clocker", "Buzzer Beak", "Shield Shredder", "Cross Crow", "Bone Chompy", "Brawl and Chain", "Bomb Shell", "Masker Mind", "Chill Bill", "Sheep Creep", "Shrednaught", "Chomp Chest", "Broccoli Guy", "Rage Mage", "Lob Goblin", "Chompy", "Fisticuffs", "Trolling Thunder", "Hood Sickle", "Bruiser Cruiser", "Brawlrus", "Tussle Sprout", "Krankenstein", "Scrap Shooter", "Slobber Trap", "Grinnade", "Bad Juju", "Blaster-Tron", "Tae Kwon Crow", "Painyata", "Smoke Scream", "Eye Five", "Grave Clobber", "Threatpack", "Mab Lobs", "Eye Scream"}) + Me.cmbVillian4.Items.AddRange(New Object() {"(None)", "Bad Juju", "Blaster-Tron", "Bomb Shell", "Bone Chompy", "Brawl and Chain", "Brawlrus", "Broccoli Guy", "Bruiser Cruiser", "Buzzer Beak", "Chef Pepper Jack", "Chill Bill", "Chomp Chest", "Chompy", "Chompy Mage", "Cross Crow", "Cuckoo Clocker", "Dr. Crankcase", "Dreamcatcher", "Eye Five", "Eye Scream", "Fisticuffs", "Golden Queen", "Grave Clobber", "Grinnade", "Gulper", "Hood Sickle", "Kaos", "Krankenstein", "Lob Goblin", "Luminous", "Mab Lobs", "Masker Mind", "Nightshade", "Painyata", "Rage Mage", "Scrap Shooter", "Sheep Creep", "Shield Shredder", "Shrednaught", "Slobber Trap", "Smoke Scream", "Tae Kwon Crow", "Threatpack", "Trolling Thunder", "Tussle Sprout", "Wolfgang"}) Me.cmbVillian4.Location = New System.Drawing.Point(9, 40) Me.cmbVillian4.Name = "cmbVillian4" Me.cmbVillian4.Size = New System.Drawing.Size(121, 21) @@ -536,12 +537,12 @@ Partial Class frmTraps ' Me.grpVillan5.Controls.Add(Me.Label17) Me.grpVillan5.Controls.Add(Me.cmbVillian5Trinket) - Me.grpVillan5.Controls.Add(Me.Label18) + Me.grpVillan5.Controls.Add(Me.lblVillian5hat) Me.grpVillan5.Controls.Add(Me.cmbVillian5Hat) Me.grpVillan5.Controls.Add(Me.chkVillian5Evolved) Me.grpVillan5.Controls.Add(Me.Label19) Me.grpVillan5.Controls.Add(Me.txtVillian5Name) - Me.grpVillan5.Controls.Add(Me.Label20) + Me.grpVillan5.Controls.Add(Me.lblVillian5) Me.grpVillan5.Controls.Add(Me.cmbVillian5) Me.grpVillan5.Location = New System.Drawing.Point(12, 362) Me.grpVillan5.Name = "grpVillan5" @@ -562,20 +563,20 @@ Partial Class frmTraps 'cmbVillian5Trinket ' Me.cmbVillian5Trinket.FormattingEnabled = True - Me.cmbVillian5Trinket.Items.AddRange(New Object() {"(None)", "T-Bone's Lucky Tie", "Batterson's Bubble", "Dark Water Daisy", "Vote For Cyclops", "Ramses' Dragon Horn", "Iris' Iris", "Kuckoo Kazoo", "Ramses' Rune", "Ullysses Uniclops", "Billy Bison", "Stealth Elf's Gift", "Lizard Lilly", "Pirate Pinwheel", "Bubble Blower", "Medal of Heroism", "Blobber's Medal of Courage", "Medal of Valliance", "Medal of Gallantry", "Medal of Mettle", "Winged Medal of Bravery", "Seadog Seashell", "Snuckles' Sunflower", "Teddy Cyclops", "Goo Factory Gear", "Elemental Opal", "Elemental Radiant", "Elemental Diamond", "Cyclops Spinner", "Wiliken Windmill", "Time Town Ticker", "Big Bow of Doom", "Mabu's Medallion", "Spyro's Shield"}) + Me.cmbVillian5Trinket.Items.AddRange(New Object() {"(None)", "Batterson's Bubble", "Big Bow of Doom", "Billy Bison", "Blobber's Medal of Courage", "Bubble Blower", "Cyclops Spinner", "Dark Water Daisy", "Elemental Diamond", "Elemental Opal", "Elemental Radiant", "Goo Factory Gear", "Iris' Iris", "Kuckoo Kazoo", "Lizard Lilly", "Mabu's Medallion", "Medal of Gallantry", "Medal of Heroism", "Medal of Mettle", "Medal of Valliance", "Pirate Pinwheel", "Ramses' Dragon Horn", "Ramses' Rune", "Seadog Seashell", "Snuckles' Sunflower", "Spyro's Shield", "Stealth Elf's Gift", "T-Bone's Lucky Tie", "Teddy Cyclops", "Time Town Ticker", "Ullysses Uniclops", "Vote For Cyclops", "Wiliken Windmill", "Winged Medal of Bravery"}) Me.cmbVillian5Trinket.Location = New System.Drawing.Point(146, 94) Me.cmbVillian5Trinket.Name = "cmbVillian5Trinket" Me.cmbVillian5Trinket.Size = New System.Drawing.Size(121, 21) Me.cmbVillian5Trinket.TabIndex = 6 ' - 'Label18 + 'lblVillian5hat ' - Me.Label18.AutoSize = True - Me.Label18.Location = New System.Drawing.Point(194, 25) - Me.Label18.Name = "Label18" - Me.Label18.Size = New System.Drawing.Size(24, 13) - Me.Label18.TabIndex = 1 - Me.Label18.Text = "Hat" + Me.lblVillian5hat.AutoSize = True + Me.lblVillian5hat.Location = New System.Drawing.Point(194, 25) + Me.lblVillian5hat.Name = "lblVillian5hat" + Me.lblVillian5hat.Size = New System.Drawing.Size(24, 13) + Me.lblVillian5hat.TabIndex = 1 + Me.lblVillian5hat.Text = "Hat" ' 'cmbVillian5Hat ' @@ -613,19 +614,19 @@ Partial Class frmTraps Me.txtVillian5Name.Size = New System.Drawing.Size(121, 20) Me.txtVillian5Name.TabIndex = 2 ' - 'Label20 + 'lblVillian5 ' - Me.Label20.AutoSize = True - Me.Label20.Location = New System.Drawing.Point(49, 24) - Me.Label20.Name = "Label20" - Me.Label20.Size = New System.Drawing.Size(34, 13) - Me.Label20.TabIndex = 1 - Me.Label20.Text = "Villian" + Me.lblVillian5.AutoSize = True + Me.lblVillian5.Location = New System.Drawing.Point(49, 24) + Me.lblVillian5.Name = "lblVillian5" + Me.lblVillian5.Size = New System.Drawing.Size(34, 13) + Me.lblVillian5.TabIndex = 1 + Me.lblVillian5.Text = "Villian" ' 'cmbVillian5 ' Me.cmbVillian5.FormattingEnabled = True - Me.cmbVillian5.Items.AddRange(New Object() {"(None)", "Chompy Mage", "Dr. Crankcase", "Wolfgang", "Chef Pepper Jack", "Nightshade", "Luminous", "Golden Queen", "Dreamcatcher", "Gulper", "Kaos", "Cuckoo Clocker", "Buzzer Beak", "Shield Shredder", "Cross Crow", "Bone Chompy", "Brawl and Chain", "Bomb Shell", "Masker Mind", "Chill Bill", "Sheep Creep", "Shrednaught", "Chomp Chest", "Broccoli Guy", "Rage Mage", "Lob Goblin", "Chompy", "Fisticuffs", "Trolling Thunder", "Hood Sickle", "Bruiser Cruiser", "Brawlrus", "Tussle Sprout", "Krankenstein", "Scrap Shooter", "Slobber Trap", "Grinnade", "Bad Juju", "Blaster-Tron", "Tae Kwon Crow", "Painyata", "Smoke Scream", "Eye Five", "Grave Clobber", "Threatpack", "Mab Lobs", "Eye Scream"}) + Me.cmbVillian5.Items.AddRange(New Object() {"(None)", "Bad Juju", "Blaster-Tron", "Bomb Shell", "Bone Chompy", "Brawl and Chain", "Brawlrus", "Broccoli Guy", "Bruiser Cruiser", "Buzzer Beak", "Chef Pepper Jack", "Chill Bill", "Chomp Chest", "Chompy", "Chompy Mage", "Cross Crow", "Cuckoo Clocker", "Dr. Crankcase", "Dreamcatcher", "Eye Five", "Eye Scream", "Fisticuffs", "Golden Queen", "Grave Clobber", "Grinnade", "Gulper", "Hood Sickle", "Kaos", "Krankenstein", "Lob Goblin", "Luminous", "Mab Lobs", "Masker Mind", "Nightshade", "Painyata", "Rage Mage", "Scrap Shooter", "Sheep Creep", "Shield Shredder", "Shrednaught", "Slobber Trap", "Smoke Scream", "Tae Kwon Crow", "Threatpack", "Trolling Thunder", "Tussle Sprout", "Wolfgang"}) Me.cmbVillian5.Location = New System.Drawing.Point(6, 40) Me.cmbVillian5.Name = "cmbVillian5" Me.cmbVillian5.Size = New System.Drawing.Size(121, 21) @@ -635,12 +636,12 @@ Partial Class frmTraps ' Me.grpVillian6.Controls.Add(Me.Label22) Me.grpVillian6.Controls.Add(Me.cmbVillian6Trinket) - Me.grpVillian6.Controls.Add(Me.Label23) + Me.grpVillian6.Controls.Add(Me.lblVillian6hat) Me.grpVillian6.Controls.Add(Me.cmbVillian6Hat) Me.grpVillian6.Controls.Add(Me.chkVillian6Evolved) Me.grpVillian6.Controls.Add(Me.Label24) Me.grpVillian6.Controls.Add(Me.txtVillian6Name) - Me.grpVillian6.Controls.Add(Me.Label25) + Me.grpVillian6.Controls.Add(Me.lblVillian6) Me.grpVillian6.Controls.Add(Me.cmbVillian6) Me.grpVillian6.Location = New System.Drawing.Point(325, 362) Me.grpVillian6.Name = "grpVillian6" @@ -661,20 +662,20 @@ Partial Class frmTraps 'cmbVillian6Trinket ' Me.cmbVillian6Trinket.FormattingEnabled = True - Me.cmbVillian6Trinket.Items.AddRange(New Object() {"(None)", "T-Bone's Lucky Tie", "Batterson's Bubble", "Dark Water Daisy", "Vote For Cyclops", "Ramses' Dragon Horn", "Iris' Iris", "Kuckoo Kazoo", "Ramses' Rune", "Ullysses Uniclops", "Billy Bison", "Stealth Elf's Gift", "Lizard Lilly", "Pirate Pinwheel", "Bubble Blower", "Medal of Heroism", "Blobber's Medal of Courage", "Medal of Valliance", "Medal of Gallantry", "Medal of Mettle", "Winged Medal of Bravery", "Seadog Seashell", "Snuckles' Sunflower", "Teddy Cyclops", "Goo Factory Gear", "Elemental Opal", "Elemental Radiant", "Elemental Diamond", "Cyclops Spinner", "Wiliken Windmill", "Time Town Ticker", "Big Bow of Doom", "Mabu's Medallion", "Spyro's Shield"}) + Me.cmbVillian6Trinket.Items.AddRange(New Object() {"(None)", "Batterson's Bubble", "Big Bow of Doom", "Billy Bison", "Blobber's Medal of Courage", "Bubble Blower", "Cyclops Spinner", "Dark Water Daisy", "Elemental Diamond", "Elemental Opal", "Elemental Radiant", "Goo Factory Gear", "Iris' Iris", "Kuckoo Kazoo", "Lizard Lilly", "Mabu's Medallion", "Medal of Gallantry", "Medal of Heroism", "Medal of Mettle", "Medal of Valliance", "Pirate Pinwheel", "Ramses' Dragon Horn", "Ramses' Rune", "Seadog Seashell", "Snuckles' Sunflower", "Spyro's Shield", "Stealth Elf's Gift", "T-Bone's Lucky Tie", "Teddy Cyclops", "Time Town Ticker", "Ullysses Uniclops", "Vote For Cyclops", "Wiliken Windmill", "Winged Medal of Bravery"}) Me.cmbVillian6Trinket.Location = New System.Drawing.Point(146, 94) Me.cmbVillian6Trinket.Name = "cmbVillian6Trinket" Me.cmbVillian6Trinket.Size = New System.Drawing.Size(121, 21) Me.cmbVillian6Trinket.TabIndex = 6 ' - 'Label23 + 'lblVillian6hat ' - Me.Label23.AutoSize = True - Me.Label23.Location = New System.Drawing.Point(194, 25) - Me.Label23.Name = "Label23" - Me.Label23.Size = New System.Drawing.Size(24, 13) - Me.Label23.TabIndex = 1 - Me.Label23.Text = "Hat" + Me.lblVillian6hat.AutoSize = True + Me.lblVillian6hat.Location = New System.Drawing.Point(194, 25) + Me.lblVillian6hat.Name = "lblVillian6hat" + Me.lblVillian6hat.Size = New System.Drawing.Size(24, 13) + Me.lblVillian6hat.TabIndex = 1 + Me.lblVillian6hat.Text = "Hat" ' 'cmbVillian6Hat ' @@ -712,29 +713,39 @@ Partial Class frmTraps Me.txtVillian6Name.Size = New System.Drawing.Size(121, 20) Me.txtVillian6Name.TabIndex = 2 ' - 'Label25 + 'lblVillian6 ' - Me.Label25.AutoSize = True - Me.Label25.Location = New System.Drawing.Point(54, 24) - Me.Label25.Name = "Label25" - Me.Label25.Size = New System.Drawing.Size(34, 13) - Me.Label25.TabIndex = 1 - Me.Label25.Text = "Villian" + Me.lblVillian6.AutoSize = True + Me.lblVillian6.Location = New System.Drawing.Point(54, 24) + Me.lblVillian6.Name = "lblVillian6" + Me.lblVillian6.Size = New System.Drawing.Size(34, 13) + Me.lblVillian6.TabIndex = 1 + Me.lblVillian6.Text = "Villian" ' 'cmbVillian6 ' Me.cmbVillian6.FormattingEnabled = True - Me.cmbVillian6.Items.AddRange(New Object() {"(None)", "Chompy Mage", "Dr. Crankcase", "Wolfgang", "Chef Pepper Jack", "Nightshade", "Luminous", "Golden Queen", "Dreamcatcher", "Gulper", "Kaos", "Cuckoo Clocker", "Buzzer Beak", "Shield Shredder", "Cross Crow", "Bone Chompy", "Brawl and Chain", "Bomb Shell", "Masker Mind", "Chill Bill", "Sheep Creep", "Shrednaught", "Chomp Chest", "Broccoli Guy", "Rage Mage", "Lob Goblin", "Chompy", "Fisticuffs", "Trolling Thunder", "Hood Sickle", "Bruiser Cruiser", "Brawlrus", "Tussle Sprout", "Krankenstein", "Scrap Shooter", "Slobber Trap", "Grinnade", "Bad Juju", "Blaster-Tron", "Tae Kwon Crow", "Painyata", "Smoke Scream", "Eye Five", "Grave Clobber", "Threatpack", "Mab Lobs", "Eye Scream"}) + Me.cmbVillian6.Items.AddRange(New Object() {"(None)", "Bad Juju", "Blaster-Tron", "Bomb Shell", "Bone Chompy", "Brawl and Chain", "Brawlrus", "Broccoli Guy", "Bruiser Cruiser", "Buzzer Beak", "Chef Pepper Jack", "Chill Bill", "Chomp Chest", "Chompy", "Chompy Mage", "Cross Crow", "Cuckoo Clocker", "Dr. Crankcase", "Dreamcatcher", "Eye Five", "Eye Scream", "Fisticuffs", "Golden Queen", "Grave Clobber", "Grinnade", "Gulper", "Hood Sickle", "Kaos", "Krankenstein", "Lob Goblin", "Luminous", "Mab Lobs", "Masker Mind", "Nightshade", "Painyata", "Rage Mage", "Scrap Shooter", "Sheep Creep", "Shield Shredder", "Shrednaught", "Slobber Trap", "Smoke Scream", "Tae Kwon Crow", "Threatpack", "Trolling Thunder", "Tussle Sprout", "Wolfgang"}) Me.cmbVillian6.Location = New System.Drawing.Point(11, 40) Me.cmbVillian6.Name = "cmbVillian6" Me.cmbVillian6.Size = New System.Drawing.Size(121, 21) Me.cmbVillian6.TabIndex = 0 ' + 'btnVil + ' + Me.btnVil.Location = New System.Drawing.Point(619, 450) + Me.btnVil.Name = "btnVil" + Me.btnVil.Size = New System.Drawing.Size(75, 23) + Me.btnVil.TabIndex = 11 + Me.btnVil.Text = "Selected Villian" + Me.btnVil.UseVisualStyleBackColor = True + ' 'frmTraps ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(708, 526) + Me.Controls.Add(Me.btnVil) Me.Controls.Add(Me.grpVillian6) Me.Controls.Add(Me.grpVillan5) Me.Controls.Add(Me.grpVillian4) @@ -764,67 +775,68 @@ Partial Class frmTraps End Sub Friend WithEvents grpVillian1 As GroupBox - Friend WithEvents lblVillian As Label - Friend WithEvents cmbVillian1 As ComboBox - Friend WithEvents lblVillian1Name As Label - Friend WithEvents txtVillian1Name As TextBox - Friend WithEvents lblVillian1Hat As Label - Friend WithEvents cmbVillian1Hat As ComboBox - Friend WithEvents chkVillian1Evolved As CheckBox - Friend WithEvents lblVillian1Trinket As Label - Friend WithEvents cmbVillian1Trinket As ComboBox - Friend WithEvents chkVillian1Variant As CheckBox - Friend WithEvents btnIDTrap As Button - Friend WithEvents lblQuanity1 As Label - Friend WithEvents numVillianCount As NumericUpDown - Friend WithEvents grpVillian2 As GroupBox - Friend WithEvents Label2 As Label - Friend WithEvents cmbVillian2Trinket As ComboBox - Friend WithEvents Label3 As Label - Friend WithEvents cmbVillian2Hat As ComboBox - Friend WithEvents chkVillian2Evolved As CheckBox - Friend WithEvents Label4 As Label - Friend WithEvents txtVillian2Name As TextBox - Friend WithEvents Label5 As Label - Friend WithEvents cmbVillian2 As ComboBox - Friend WithEvents grpVillian3 As GroupBox - Friend WithEvents Label7 As Label - Friend WithEvents cmbVillian3Trinket As ComboBox - Friend WithEvents Label8 As Label - Friend WithEvents cmbVillian3Hat As ComboBox - Friend WithEvents chkVillian3Evolved As CheckBox - Friend WithEvents Label9 As Label - Friend WithEvents txtVillian3Name As TextBox - Friend WithEvents Label10 As Label - Friend WithEvents cmbVillian3 As ComboBox - Friend WithEvents grpVillian4 As GroupBox - Friend WithEvents Label12 As Label - Friend WithEvents cmbVillian4Trinket As ComboBox - Friend WithEvents Label13 As Label - Friend WithEvents cmbVillian4Hat As ComboBox - Friend WithEvents chkVillian4Evolved As CheckBox - Friend WithEvents Label14 As Label - Friend WithEvents txtVillian4Name As TextBox - Friend WithEvents Label15 As Label - Friend WithEvents cmbVillian4 As ComboBox - Friend WithEvents grpVillan5 As GroupBox - Friend WithEvents Label17 As Label - Friend WithEvents cmbVillian5Trinket As ComboBox - Friend WithEvents Label18 As Label - Friend WithEvents cmbVillian5Hat As ComboBox - Friend WithEvents chkVillian5Evolved As CheckBox - Friend WithEvents Label19 As Label - Friend WithEvents txtVillian5Name As TextBox - Friend WithEvents Label20 As Label - Friend WithEvents cmbVillian5 As ComboBox - Friend WithEvents grpVillian6 As GroupBox - Friend WithEvents Label22 As Label - Friend WithEvents cmbVillian6Trinket As ComboBox - Friend WithEvents Label23 As Label - Friend WithEvents cmbVillian6Hat As ComboBox - Friend WithEvents chkVillian6Evolved As CheckBox - Friend WithEvents Label24 As Label - Friend WithEvents txtVillian6Name As TextBox - Friend WithEvents Label25 As Label - Friend WithEvents cmbVillian6 As ComboBox + Friend WithEvents lblVillian1 As Label + Friend WithEvents cmbVillian1 As ComboBox + Friend WithEvents lblVillian1Name As Label + Friend WithEvents txtVillian1Name As TextBox + Friend WithEvents lblVillian1Hat As Label + Friend WithEvents cmbVillian1Hat As ComboBox + Friend WithEvents chkVillian1Evolved As CheckBox + Friend WithEvents lblVillian1Trinket As Label + Friend WithEvents cmbVillian1Trinket As ComboBox + Friend WithEvents chkVillian1Variant As CheckBox + Friend WithEvents btnIDTrap As Button + Friend WithEvents lblQuanity1 As Label + Friend WithEvents numVillianCount As NumericUpDown + Friend WithEvents grpVillian2 As GroupBox + Friend WithEvents Label2 As Label + Friend WithEvents cmbVillian2Trinket As ComboBox + Friend WithEvents lblVillian2hat As Label + Friend WithEvents cmbVillian2Hat As ComboBox + Friend WithEvents chkVillian2Evolved As CheckBox + Friend WithEvents Label4 As Label + Friend WithEvents txtVillian2Name As TextBox + Friend WithEvents lblVillian2 As Label + Friend WithEvents cmbVillian2 As ComboBox + Friend WithEvents grpVillian3 As GroupBox + Friend WithEvents Label7 As Label + Friend WithEvents cmbVillian3Trinket As ComboBox + Friend WithEvents lblVillian3hat As Label + Friend WithEvents cmbVillian3Hat As ComboBox + Friend WithEvents chkVillian3Evolved As CheckBox + Friend WithEvents Label9 As Label + Friend WithEvents txtVillian3Name As TextBox + Friend WithEvents lblVillian3 As Label + Friend WithEvents cmbVillian3 As ComboBox + Friend WithEvents grpVillian4 As GroupBox + Friend WithEvents Label12 As Label + Friend WithEvents cmbVillian4Trinket As ComboBox + Friend WithEvents lblVillian4hat As Label + Friend WithEvents cmbVillian4Hat As ComboBox + Friend WithEvents chkVillian4Evolved As CheckBox + Friend WithEvents Label14 As Label + Friend WithEvents txtVillian4Name As TextBox + Friend WithEvents lblVillian4 As Label + Friend WithEvents cmbVillian4 As ComboBox + Friend WithEvents grpVillan5 As GroupBox + Friend WithEvents Label17 As Label + Friend WithEvents cmbVillian5Trinket As ComboBox + Friend WithEvents lblVillian5hat As Label + Friend WithEvents cmbVillian5Hat As ComboBox + Friend WithEvents chkVillian5Evolved As CheckBox + Friend WithEvents Label19 As Label + Friend WithEvents txtVillian5Name As TextBox + Friend WithEvents lblVillian5 As Label + Friend WithEvents cmbVillian5 As ComboBox + Friend WithEvents grpVillian6 As GroupBox + Friend WithEvents Label22 As Label + Friend WithEvents cmbVillian6Trinket As ComboBox + Friend WithEvents lblVillian6hat As Label + Friend WithEvents cmbVillian6Hat As ComboBox + Friend WithEvents chkVillian6Evolved As CheckBox + Friend WithEvents Label24 As Label + Friend WithEvents txtVillian6Name As TextBox + Friend WithEvents lblVillian6 As Label + Friend WithEvents cmbVillian6 As ComboBox + Friend WithEvents btnVil As Button End Class diff --git a/SkyReader-GUI/frmTraps.vb b/SkyReader-GUI/frmTraps.vb index 53afba9..be3d1a0 100644 --- a/SkyReader-GUI/frmTraps.vb +++ b/SkyReader-GUI/frmTraps.vb @@ -1,5 +1,4 @@ Imports System.Text -Imports System.Windows.Forms.VisualStyles Imports SkyReader_GUI.frmMain Public Class frmTraps Private Sub cmbVillian1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbVillian1.SelectedIndexChanged @@ -46,408 +45,1047 @@ Public Class frmTraps Save_Area_A() Save_Area_B() End Sub + Sub Save_Area_A() 'Write Quanity Trapped - WholeFile(&H81) = Convert.ToByte(numVillianCount.Value) - 'Set Villian 1 ID and Variant - 'Only Villian 1 has Variant - If chkVillian1Variant.Checked = True Then - 'if 0x80 = 01 and 0x90 is the same as 0x87 then Variant Villain? - WholeFile(&H80) = &H1 - WholeFile(&H87) = Convert.ToByte(cmbVillian1.SelectedIndex) - WholeFile(&H90) = Convert.ToByte(cmbVillian1.SelectedIndex) - Else - WholeFile(&H80) = &H0 - WholeFile(&H90) = Convert.ToByte(cmbVillian1.SelectedIndex) - End If - 'Set Villain 1 Evolved - If chkVillian1Evolved.Checked = True Then - WholeFile(&H91) = &H1 - Else + If cmbVillian1.SelectedItem = "(None)" Then + WholeFile(&H80) = &H0 + WholeFile(&H81) = &H0 + WholeFile(&H87) = &H0 + WholeFile(&H90) = &H0 WholeFile(&H91) = &H0 - End If - 'Set Villain 1 Hat - WholeFile(&H92) = Save_Hat(cmbVillian1Hat.SelectedIndex) - 'Set Villian 1 Trinket - WholeFile(&H93) = Convert.ToByte(cmbVillian1Trinket.SelectedIndex) - 'Set Villian 1 Nickname (If set) - If txtVillian1Name.Text <> "" Then - Save_Name(&H94, txtVillian1Name.Text) + WholeFile(&H92) = &H0 + WholeFile(&H93) = &H0 + 'Wipe out Old Name + Save_Name(&H94, "") + Else + WholeFile(&H81) = Convert.ToByte(numVillianCount.Value) + + 'Set Villian 1 ID and Variant + 'Only Villian 1 has Variant + If chkVillian1Variant.Checked = True Then + 'if 0x80 = 01 and 0x90 is the same as 0x87 then Variant Villain? + WholeFile(&H80) = &H1 + WholeFile(&H87) = Save_Villian(cmbVillian1.SelectedItem) + WholeFile(&H90) = Save_Villian(cmbVillian1.SelectedItem) + Else + WholeFile(&H80) = &H0 + WholeFile(&H90) = Save_Villian(cmbVillian1.SelectedItem) + End If + + 'Set Villain 1 Evolved + If chkVillian1Evolved.Checked = True Then + WholeFile(&H91) = &H1 + Else + WholeFile(&H91) = &H0 + End If + 'Set Villain 1 Hat + WholeFile(&H92) = Save_Hat(cmbVillian1Hat.SelectedItem) + 'Set Villian 1 Trinket + WholeFile(&H93) = Save_Trinket(cmbVillian1Trinket.SelectedItem) + 'Set Villian 1 Nickname (If set) + If txtVillian1Name.Text <> "" Then + Save_Name(&H94, txtVillian1Name.Text) + End If End If 'Set Villian 2 ID - WholeFile(&HD0) = Convert.ToByte(cmbVillian2.SelectedIndex) - If chkVillian2Evolved.Checked = True Then - WholeFile(&HD1) = 1 + If cmbVillian2.SelectedItem = "(None)" Then + WholeFile(&HD0) = &H0 + WholeFile(&HD1) = &H0 + WholeFile(&HD2) = &H0 + WholeFile(&HD3) = &H0 + 'Wipe out Old Name + Save_Name(&HD4, "") Else - WholeFile(&HD1) = 0 - End If - 'Set Villian 2 Hat - WholeFile(&HD2) = Save_Hat(cmbVillian2Hat.SelectedIndex) - 'Set Villian 2 Trinket - WholeFile(&HD3) = Convert.ToByte(cmbVillian2Trinket.SelectedIndex) - If txtVillian2Name.Text <> "" Then - Save_Name(&HD4, txtVillian2Name.Text) + WholeFile(&HD0) = Save_Villian(cmbVillian2.SelectedItem) + If chkVillian2Evolved.Checked = True Then + WholeFile(&HD1) = 1 + Else + WholeFile(&HD1) = 0 + End If + 'Set Villian 2 Hat + WholeFile(&HD2) = Save_Hat(cmbVillian2Hat.SelectedItem) + 'Set Villian 2 Trinket + WholeFile(&HD3) = Save_Trinket(cmbVillian2Trinket.SelectedItem) + If txtVillian2Name.Text <> "" Then + Save_Name(&HD4, txtVillian2Name.Text) + End If End If + 'Set Villian 3 ID - WholeFile(&H110) = Convert.ToByte(cmbVillian3.SelectedIndex) - If chkVillian3Evolved.Checked = True Then - WholeFile(&H111) = 1 + If cmbVillian3.SelectedItem = "(None)" Then + WholeFile(&H110) = &H0 + WholeFile(&H111) = &H0 + WholeFile(&H112) = &H0 + WholeFile(&H113) = &H0 + 'Wipe out Old Name + Save_Name(&H114, "") Else - WholeFile(&H111) = 0 - End If - 'Set Villan 3 Hat - WholeFile(&H112) = Save_Hat(cmbVillian3Hat.SelectedIndex) - 'Set Villian 3 Trinket - WholeFile(&H113) = Convert.ToByte(cmbVillian3Trinket.SelectedIndex) - If txtVillian3Name.Text <> "" Then - Save_Name(&H114, txtVillian3Name.Text) + WholeFile(&H110) = Save_Villian(cmbVillian3.SelectedItem) + If chkVillian3Evolved.Checked = True Then + WholeFile(&H111) = 1 + Else + WholeFile(&H111) = 0 + End If + 'Set Villan 3 Hat + WholeFile(&H112) = Save_Hat(cmbVillian3Hat.SelectedItem) + 'Set Villian 3 Trinket + WholeFile(&H113) = Save_Trinket(cmbVillian3Trinket.SelectedItem) + If txtVillian3Name.Text <> "" Then + Save_Name(&H114, txtVillian3Name.Text) + End If End If + 'Set Villian 4 ID - WholeFile(&H150) = Convert.ToByte(cmbVillian4.SelectedIndex) - If chkVillian4Evolved.Checked = True Then - WholeFile(&H151) = 1 + If cmbVillian4.SelectedItem = "(None)" Then + WholeFile(&H150) = &H0 + WholeFile(&H151) = &H0 + WholeFile(&H152) = &H0 + WholeFile(&H153) = &H0 + 'Wipe out Old Name + Save_Name(&H154, "") Else - WholeFile(&H151) = 0 - End If - 'Set Villan 4 Hat - WholeFile(&H152) = Save_Hat(cmbVillian4Hat.SelectedIndex) - 'Set Villian 4 Trinket - WholeFile(&H153) = Convert.ToByte(cmbVillian4Trinket.SelectedIndex) - If txtVillian1Name.Text <> "" Then - Save_Name(&H154, txtVillian4Name.Text) + WholeFile(&H150) = Save_Villian(cmbVillian4.SelectedItem) + If chkVillian4Evolved.Checked = True Then + WholeFile(&H151) = 1 + Else + WholeFile(&H151) = 0 + End If + 'Set Villan 4 Hat + WholeFile(&H152) = Save_Hat(cmbVillian4Hat.SelectedItem) + 'Set Villian 4 Trinket + WholeFile(&H153) = Save_Trinket(cmbVillian4Trinket.SelectedItem) + If txtVillian4Name.Text <> "" Then + Save_Name(&H154, txtVillian4Name.Text) + End If End If + 'Set Villian 5 ID - WholeFile(&H190) = Convert.ToByte(cmbVillian5.SelectedIndex) - If chkVillian5Evolved.Checked = True Then - WholeFile(&H191) = 1 + If cmbVillian5.SelectedItem = "(None)" Then + WholeFile(&H190) = &H0 + WholeFile(&H191) = &H0 + WholeFile(&H192) = &H0 + WholeFile(&H193) = &H0 + 'Wipe out Old Name + Save_Name(&H194, "") Else - WholeFile(&H191) = 0 - End If - 'Set Villan 5 Hat - WholeFile(&H192) = Save_Hat(cmbVillian5Hat.SelectedIndex) - 'Set Villian 5 Trinket - WholeFile(&H193) = Convert.ToByte(cmbVillian5Trinket.SelectedIndex) - If txtVillian1Name.Text <> "" Then - Save_Name(&H194, txtVillian5Name.Text) + WholeFile(&H190) = Save_Villian(cmbVillian5.SelectedItem) + If chkVillian5Evolved.Checked = True Then + WholeFile(&H191) = 1 + Else + WholeFile(&H191) = 0 + End If + 'Set Villan 5 Hat + WholeFile(&H192) = Save_Hat(cmbVillian5Hat.SelectedItem) + 'Set Villian 5 Trinket + WholeFile(&H193) = Save_Trinket(cmbVillian5Trinket.SelectedItem) + If txtVillian5Name.Text <> "" Then + Save_Name(&H194, txtVillian5Name.Text) + End If End If + 'Set Villian 6 ID - WholeFile(&H1D0) = Convert.ToByte(cmbVillian6.SelectedIndex) - If chkVillian6Evolved.Checked = True Then - WholeFile(&H1D1) = 1 + If cmbVillian6.SelectedItem = "(None)" Then + WholeFile(&H1D0) = &H0 + WholeFile(&H1D1) = &H0 + WholeFile(&H1D2) = &H0 + WholeFile(&H1D3) = &H0 + 'Wipe out Old Name + Save_Name(&H1D4, "") Else - WholeFile(&H1D1) = 0 - End If - 'Set Villan 6 Hat - WholeFile(&H1D2) = Save_Hat(cmbVillian6Hat.SelectedIndex) - 'Set Villian 6 Trinket - WholeFile(&H1D3) = Convert.ToByte(cmbVillian6Trinket.SelectedIndex) - If txtVillian1Name.Text <> "" Then - Save_Name(&H1D4, txtVillian6Name.Text) + WholeFile(&H1D0) = Save_Villian(cmbVillian6.SelectedItem) + If chkVillian6Evolved.Checked = True Then + WholeFile(&H1D1) = 1 + Else + WholeFile(&H1D1) = 0 + End If + 'Set Villan 6 Hat + WholeFile(&H1D2) = Save_Hat(cmbVillian6Hat.SelectedItem) + 'Set Villian 6 Trinket + WholeFile(&H1D3) = Save_Trinket(cmbVillian6Trinket.SelectedItem) + If txtVillian6Name.Text <> "" Then + Save_Name(&H1D4, txtVillian6Name.Text) + End If End If + 'This resolves Area A End Sub Sub Save_Area_B() 'Add 1C0 to All Hex Offsets - 'Write Quanity Trapped - WholeFile(&H241) = Convert.ToByte(numVillianCount.Value) - 'Set Villian 1 ID and Variant - 'Only Villian 1 has Variant - If chkVillian1Variant.Checked = True Then - 'if 0x80 = 01 and 0x90 is the same as 0x87 then Variant Villain? - WholeFile(&H240) = &H1 - WholeFile(&H247) = Convert.ToByte(cmbVillian1.SelectedIndex) - WholeFile(&H250) = Convert.ToByte(cmbVillian1.SelectedIndex) - Else + If cmbVillian1.SelectedItem = "(None)" Then WholeFile(&H240) = &H0 - WholeFile(&H250) = Convert.ToByte(cmbVillian1.SelectedIndex) - End If - - 'Set Villain 1 Evolved - If chkVillian1Evolved.Checked = True Then - WholeFile(&H251) = &H1 - Else + WholeFile(&H241) = &H0 + WholeFile(&H247) = &H0 + WholeFile(&H250) = &H0 WholeFile(&H251) = &H0 + WholeFile(&H252) = &H0 + WholeFile(&H253) = &H0 + 'Wipe out Old Name + Save_Name(&H254, "") + Else + 'Write Quanity Trapped + WholeFile(&H241) = Convert.ToByte(numVillianCount.Value) + 'Set Villian 1 ID and Variant + 'Only Villian 1 has Variant + If chkVillian1Variant.Checked = True Then + 'if 0x80 = 01 and 0x90 is the same as 0x87 then Variant Villain? + WholeFile(&H240) = &H1 + WholeFile(&H247) = Save_Villian(cmbVillian1.SelectedItem) + WholeFile(&H250) = Save_Villian(cmbVillian1.SelectedItem) + Else + WholeFile(&H240) = &H0 + WholeFile(&H250) = Save_Villian(cmbVillian1.SelectedItem) + End If + 'Set Villain 1 Evolved + If chkVillian1Evolved.Checked = True Then + WholeFile(&H251) = &H1 + Else + WholeFile(&H251) = &H0 + End If + 'Set Villain 1 Hat + WholeFile(&H252) = Save_Hat(cmbVillian1Hat.SelectedItem) + 'Set Villian 1 Trinket + WholeFile(&H253) = Save_Trinket(cmbVillian1Trinket.SelectedItem) + 'Set Villian 1 Nickname (If set) + If txtVillian1Name.Text <> "" Then + Save_Name(&H254, txtVillian1Name.Text) + End If + End If - 'Set Villain 1 Hat - WholeFile(&H252) = Save_Hat(cmbVillian1Hat.SelectedIndex) - 'Set Villian 1 Trinket - WholeFile(&H253) = Convert.ToByte(cmbVillian1Trinket.SelectedIndex) - 'Set Villian 1 Nickname (If set) - If txtVillian1Name.Text <> "" Then - Save_Name(&H254, txtVillian1Name.Text) - End If + 'MessageBox.Show("Wrote 1st") + 'Exit Sub 'Set Villian 2 ID - WholeFile(&H290) = Convert.ToByte(cmbVillian2.SelectedIndex) - If chkVillian2Evolved.Checked = True Then - WholeFile(&H291) = 1 + If cmbVillian2.SelectedItem = "(None)" Then + WholeFile(&H290) = &H0 + WholeFile(&H291) = &H0 + WholeFile(&H292) = &H0 + WholeFile(&H293) = &H0 + 'Wipe out Old Name + Save_Name(&H294, "") Else - WholeFile(&H291) = 0 - End If - 'Set Villian 2 Hat - WholeFile(&H292) = Save_Hat(cmbVillian2Hat.SelectedIndex) - 'Set Villian 2 Trinket - WholeFile(&H293) = Convert.ToByte(cmbVillian2Trinket.SelectedIndex) - If txtVillian2Name.Text <> "" Then - Save_Name(&H294, txtVillian2Name.Text) + WholeFile(&H290) = Save_Villian(cmbVillian2.SelectedItem) + If chkVillian2Evolved.Checked = True Then + WholeFile(&H291) = 1 + Else + WholeFile(&H291) = 0 + End If + 'Set Villian 2 Hat + WholeFile(&H292) = Save_Hat(cmbVillian2Hat.SelectedItem) + 'Set Villian 2 Trinket + WholeFile(&H293) = Save_Trinket(cmbVillian2Trinket.SelectedItem) + If txtVillian2Name.Text <> "" Then + Save_Name(&H294, txtVillian2Name.Text) + End If + End If + 'MessageBox.Show("Wrote 1st and 2nd") + 'Exit Sub - 'Set Villian 3 ID - WholeFile(&H2D0) = Convert.ToByte(cmbVillian3.SelectedIndex) - If chkVillian3Evolved.Checked = True Then - WholeFile(&H2D1) = 1 + If cmbVillian3.SelectedItem = "(None)" Then + WholeFile(&H2D0) = &H0 + WholeFile(&H2D1) = &H0 + WholeFile(&H2D2) = &H0 + WholeFile(&H2D3) = &H0 + 'Wipe out Old Name + Save_Name(&H2D4, "") Else - WholeFile(&H2D1) = 0 - End If - 'Set Villan 3 Hat - WholeFile(&H2D2) = Save_Hat(cmbVillian3Hat.SelectedIndex) - 'Set Villian 3 Trinket - WholeFile(&H2D3) = Convert.ToByte(cmbVillian3Trinket.SelectedIndex) - If txtVillian3Name.Text <> "" Then - Save_Name(&H2D4, txtVillian3Name.Text) + 'Set Villian 3 ID + WholeFile(&H2D0) = Save_Villian(cmbVillian3.SelectedItem) + If chkVillian3Evolved.Checked = True Then + WholeFile(&H2D1) = 1 + Else + WholeFile(&H2D1) = 0 + End If + 'Set Villan 3 Hat + WholeFile(&H2D2) = Save_Hat(cmbVillian3Hat.SelectedItem) + 'Set Villian 3 Trinket + WholeFile(&H2D3) = Save_Trinket(cmbVillian3Trinket.SelectedItem) + If txtVillian3Name.Text <> "" Then + Save_Name(&H2D4, txtVillian3Name.Text) + End If End If + 'Set Villian 4 ID - WholeFile(&H310) = Convert.ToByte(cmbVillian4.SelectedIndex) - If chkVillian4Evolved.Checked = True Then - WholeFile(&H311) = 1 + If cmbVillian4.SelectedItem = "(None)" Then + WholeFile(&H310) = &H0 + WholeFile(&H311) = &H0 + WholeFile(&H312) = &H0 + WholeFile(&H313) = &H0 + 'Wipe out Old Name + Save_Name(&H314, "") Else - WholeFile(&H311) = 0 - End If - 'Set Villan 4 Hat - WholeFile(&H312) = Save_Hat(cmbVillian4Hat.SelectedIndex) - 'Set Villian 4 Trinket - WholeFile(&H313) = Convert.ToByte(cmbVillian4Trinket.SelectedIndex) - If txtVillian1Name.Text <> "" Then - Save_Name(&H314, txtVillian4Name.Text) + WholeFile(&H310) = Save_Villian(cmbVillian4.SelectedItem) + If chkVillian4Evolved.Checked = True Then + WholeFile(&H311) = 1 + Else + WholeFile(&H311) = 0 + End If + 'Set Villan 4 Hat + WholeFile(&H312) = Save_Hat(cmbVillian4Hat.SelectedItem) + 'Set Villian 4 Trinket + WholeFile(&H313) = Save_Trinket(cmbVillian4Trinket.SelectedItem) + If txtVillian4Name.Text <> "" Then + Save_Name(&H314, txtVillian4Name.Text) + End If End If + 'Set Villian 5 ID - WholeFile(&H350) = Convert.ToByte(cmbVillian5.SelectedIndex) - If chkVillian5Evolved.Checked = True Then - WholeFile(&H351) = 1 + If cmbVillian5.SelectedItem = "(None)" Then + WholeFile(&H350) = &H0 + WholeFile(&H351) = &H0 + WholeFile(&H352) = &H0 + WholeFile(&H353) = &H0 + 'Wipe out Old Name + Save_Name(&H354, "") Else - WholeFile(&H351) = 0 - End If - 'Set Villan 5 Hat - WholeFile(&H352) = Save_Hat(cmbVillian5Hat.SelectedIndex) - 'Set Villian 5 Trinket - WholeFile(&H353) = Convert.ToByte(cmbVillian5Trinket.SelectedIndex) - If txtVillian1Name.Text <> "" Then - Save_Name(&H354, txtVillian5Name.Text) + WholeFile(&H350) = Save_Villian(cmbVillian5.SelectedItem) + If chkVillian5Evolved.Checked = True Then + WholeFile(&H351) = 1 + Else + WholeFile(&H351) = 0 + End If + 'Set Villan 5 Hat + WholeFile(&H352) = Save_Hat(cmbVillian5Hat.SelectedItem) + 'Set Villian 5 Trinket + WholeFile(&H353) = Save_Trinket(cmbVillian5Trinket.SelectedItem) + If txtVillian5Name.Text <> "" Then + Save_Name(&H354, txtVillian5Name.Text) + End If End If + 'Set Villian 6 ID - WholeFile(&H1D0) = Convert.ToByte(cmbVillian6.SelectedIndex) - If chkVillian6Evolved.Checked = True Then - WholeFile(&H391) = 1 + If cmbVillian6.SelectedItem = "(None)" Then + WholeFile(&H390) = &H0 + WholeFile(&H391) = &H0 + WholeFile(&H392) = &H0 + WholeFile(&H393) = &H0 + 'Wipe out Old Name + Save_Name(&H394, "") Else - WholeFile(&H391) = 0 - End If - 'Set Villan 6 Hat - WholeFile(&H392) = Save_Hat(cmbVillian6Hat.SelectedIndex) - 'Set Villian 6 Trinket - WholeFile(&H393) = Convert.ToByte(cmbVillian6Trinket.SelectedIndex) - If txtVillian1Name.Text <> "" Then - Save_Name(&H394, txtVillian6Name.Text) + WholeFile(&H390) = Save_Villian(cmbVillian6.SelectedItem) + If chkVillian6Evolved.Checked = True Then + WholeFile(&H391) = 1 + Else + WholeFile(&H391) = 0 + End If + 'Set Villan 6 Hat + WholeFile(&H392) = Save_Hat(cmbVillian6Hat.SelectedItem) + 'Set Villian 6 Trinket + WholeFile(&H393) = Save_Trinket(cmbVillian6Trinket.SelectedItem) + If txtVillian6Name.Text <> "" Then + Save_Name(&H394, txtVillian6Name.Text) + End If End If + 'This resolves Area B End Sub - Function Save_Hat(Hat_Index As Integer) - If Hat_Index = 0 Then - Return &H0 - ElseIf Hat_Index = 1 Then - Return &HD3 - ElseIf Hat_Index = 2 Then - Return &HDA - ElseIf Hat_Index = 3 Then - Return &HD4 - ElseIf Hat_Index = 4 Then - Return &H9B - ElseIf Hat_Index = 5 Then - Return &HED - ElseIf Hat_Index = 6 Then - Return &HC3 - ElseIf Hat_Index = 7 Then - Return &H9C - ElseIf Hat_Index = 8 Then - Return &H9D - ElseIf Hat_Index = 9 Then - Return &HEE - ElseIf Hat_Index = 10 Then - Return &H9E - ElseIf Hat_Index = 11 Then - Return &HEA - ElseIf Hat_Index = 12 Then - Return &HE8 - ElseIf Hat_Index = 13 Then - Return &HF6 - ElseIf Hat_Index = 14 Then - Return &HA0 - ElseIf Hat_Index = 15 Then - Return &HBB - ElseIf Hat_Index = 16 Then - Return &HA3 - ElseIf Hat_Index = 17 Then - Return &HA2 - ElseIf Hat_Index = 18 Then - Return &HF7 - ElseIf Hat_Index = 19 Then - Return &HA4 - ElseIf Hat_Index = 20 Then - Return &HFC - ElseIf Hat_Index = 21 Then - Return &HA6 - ElseIf Hat_Index = 22 Then - Return &HBD - ElseIf Hat_Index = 23 Then - Return &HD6 - ElseIf Hat_Index = 24 Then - Return &HA7 - ElseIf Hat_Index = 25 Then - Return &HA8 - ElseIf Hat_Index = 26 Then - Return &HA9 - ElseIf Hat_Index = 27 Then - Return &HEB - ElseIf Hat_Index = 28 Then - Return &H9F - ElseIf Hat_Index = 29 Then - Return &HAA - ElseIf Hat_Index = 30 Then - Return &HE9 - ElseIf Hat_Index = 31 Then - Return &HCB - ElseIf Hat_Index = 32 Then - Return &HD9 - ElseIf Hat_Index = 33 Then - Return &HDC - ElseIf Hat_Index = 34 Then - Return &HC6 - ElseIf Hat_Index = 35 Then - Return &HAE - ElseIf Hat_Index = 36 Then - Return &HAD - ElseIf Hat_Index = 37 Then - Return &HE2 - ElseIf Hat_Index = 38 Then - Return &HAF - ElseIf Hat_Index = 39 Then - Return &HC4 - ElseIf Hat_Index = 40 Then - Return &HD5 - ElseIf Hat_Index = 41 Then - Return &HB0 - ElseIf Hat_Index = 42 Then - Return &HA1 - ElseIf Hat_Index = 43 Then - Return &HB1 - ElseIf Hat_Index = 44 Then - Return &HA5 - ElseIf Hat_Index = 45 Then - Return &HB2 - ElseIf Hat_Index = 46 Then - Return &HDB - ElseIf Hat_Index = 47 Then - Return &HDE - ElseIf Hat_Index = 48 Then - Return &HAC - ElseIf Hat_Index = 49 Then - Return &HB3 - ElseIf Hat_Index = 50 Then - Return &HB4 - ElseIf Hat_Index = 51 Then - Return &HC0 - ElseIf Hat_Index = 52 Then - Return &HE5 - ElseIf Hat_Index = 53 Then - Return &HFA - ElseIf Hat_Index = 54 Then - Return &HC7 - ElseIf Hat_Index = 55 Then - Return &HB5 - ElseIf Hat_Index = 56 Then - Return &HE0 - ElseIf Hat_Index = 57 Then - Return &HB6 - ElseIf Hat_Index = 58 Then - Return &HFD - ElseIf Hat_Index = 59 Then - Return &HBA - ElseIf Hat_Index = 60 Then - Return &HAB - ElseIf Hat_Index = 61 Then - Return &HB7 - ElseIf Hat_Index = 62 Then - Return &HB8 - ElseIf Hat_Index = 63 Then - Return &HB9 - ElseIf Hat_Index = 64 Then - Return &HEC - ElseIf Hat_Index = 65 Then - Return &HD2 - ElseIf Hat_Index = 66 Then - Return &HE4 - ElseIf Hat_Index = 67 Then - Return &HBC - ElseIf Hat_Index = 68 Then - Return &HD8 - ElseIf Hat_Index = 69 Then - Return &HBE - ElseIf Hat_Index = 70 Then - Return &HD1 - ElseIf Hat_Index = 71 Then - Return &HBF - ElseIf Hat_Index = 72 Then - Return &HCC - ElseIf Hat_Index = 73 Then - Return &HDD - ElseIf Hat_Index = 74 Then - Return &HC8 - ElseIf Hat_Index = 75 Then - Return &HC2 - ElseIf Hat_Index = 76 Then - Return &HEF - ElseIf Hat_Index = 77 Then - Return &HF3 - ElseIf Hat_Index = 78 Then - Return &HC1 - ElseIf Hat_Index = 79 Then - Return &HC5 - ElseIf Hat_Index = 80 Then - Return &HE1 - ElseIf Hat_Index = 81 Then - Return &HCE - ElseIf Hat_Index = 82 Then - Return &HDF - ElseIf Hat_Index = 83 Then - Return &HE3 - ElseIf Hat_Index = 84 Then - Return &HC9 - ElseIf Hat_Index = 85 Then - Return &HD0 - ElseIf Hat_Index = 86 Then - Return &HCA - ElseIf Hat_Index = 87 Then - Return &HCD - ElseIf Hat_Index = 88 Then - Return &HD7 - ElseIf Hat_Index = 89 Then - Return &HCF - End If + Function Save_Trinket(SelectedTrinket As String) + Select Case SelectedTrinket + Case "(None)" + Return &H0 + Case "T-Bone's Lucky Tie" + Return &H1 + Case "Batterson's Bubble" + Return &H2 + Case "Dark Water Daisy" + Return &H3 + Case "Vote For Cyclops" + Return &H4 + Case "Ramses' Dragon Horn" + Return &H5 + Case "Iris' Iris" + Return &H6 + Case "Kuckoo Kazoo" + Return &H7 + Case "Ramses' Rune" + Return &H8 + Case "Ullysses Uniclops" + Return &H9 + Case "Billy Bison" + Return &HA + Case "Stealth Elf's Gift" + Return &HB + Case "Lizard Lilly" + Return &HC + Case "Pirate Pinwheel" + Return &HD + Case "Bubble Blower" + Return &HE + Case "Medal of Heroism" + Return &HF + Case "Blobber's Medal of Courage" + Return &H10 + Case "Medal of Valliance" + Return &H11 + Case "Medal of Gallantry" + Return &H12 + Case "Medal of Mettle" + Return &H13 + Case "Winged Medal of Bravery" + Return &H14 + Case "Seadog Seashell" + Return &H15 + Case "Snuckles' Sunflower" + Return &H16 + Case "Teddy Cyclops" + Return &H17 + Case "Goo Factory Gear" + Return &H18 + Case "Elemental Opal" + Return &H19 + Case "Elemental Radiant" + Return &H1A + Case "Elemental Diamond" + Return &H1B + Case "Cyclops Spinner" + Return &H1C + Case "Wiliken Windmill" + Return &H1D + Case "Time Town Ticker" + Return &H1E + Case "Big Bow of Doom" + Return &H1F + Case "Mabu's Medallion" + Return &H20 + Case "Spyro's Shield" + Return &H21 + Case Else + Return &H0 + End Select End Function + Function Save_Villian(SelectedVillian As String) + 'Because I want to Improve + Select Case SelectedVillian + Case "(None)" + Return &H0 + Case "Chompy Mage" + Return &H1 + Case "Dr. Crankcase" + Return &H2 + Case "Wolfgang" + Return &H3 + Case "Chef Pepper Jack" + Return &H4 + Case "Nightshade" + Return &H5 + Case "Luminous" + Return &H6 + Case "Golden Queen" + Return &H7 + Case "Dreamcatcher" + Return &H8 + Case "Gulper" + Return &H9 + Case "Kaos" + Return &HA + Case "Cuckoo Clocker" + Return &HB + Case "Buzzer Beak" + Return &HC + Case "Shield Shredder" + Return &HD + Case "Cross Crow" + Return &HE + Case "Bone Chompy" + Return &HF + Case "Brawl and Chain" + Return &H10 + Case "Bomb Shell" + Return &H11 + Case "Masker Mind" + Return &H12 + Case "Chill Bill" + Return &H13 + Case "Sheep Creep" + Return &H14 + Case "Shrednaught" + Return &H15 + Case "Chomp Chest" + Return &H16 + Case "Broccoli Guy" + Return &H17 + Case "Rage Mage" + Return &H18 + Case "Lob Goblin" + Return &H19 + Case "Chompy" + Return &H1A + Case "Fisticuffs" + Return &H1B + Case "Trolling Thunder" + Return &H1C + Case "Hood Sickle" + Return &H1D + Case "Bruiser Cruiser" + Return &H1E + Case "Brawlrus" + Return &H1F + Case "Tussle Sprout" + Return &H20 + Case "Krankenstein" + Return &H21 + Case "Scrap Shooter" + Return &H22 + Case "Slobber Trap" + Return &H23 + Case "Grinnade" + Return &H24 + Case "Bad Juju" + Return &H25 + Case "Blaster-Tron" + Return &H26 + Case "Tae Kwon Crow" + Return &H27 + Case "Painyata" + Return &H28 + Case "Smoke Scream" + Return &H29 + Case "Eye Five" + Return &H2A + Case "Grave Clobber" + Return &H2B + Case "Threatpack" + Return &H2C + Case "Mab Lobs" + Return &H2D + Case "Eye Scream" + Return &H2E + Case Else + Return &H0 + End Select + End Function + Function Save_Hat(SelectedHat As String) + Select Case SelectedHat + Case "Combat Hat" + Return &H1 + Case "Napoleon Hat" + Return &H2 + Case "Spy Gear" + Return &H3 + Case "Miner Hat" + Return &H4 + Case "General's Hat" + Return &H5 + Case "Pirate Hat" + Return &H6 + Case "Propeller Cap" + Return &H7 + Case "Coonskin Cap" + Return &H8 + Case "Straw Hat" + Return &H9 + Case "Fancy Hat" + Return &HA + Case "Top Hat" + Return &HB + Case "Viking Helmet" + Return &HC + Case "Spiked Hat" + Return &HD + Case "Anvil Hat" + Return &HE + Case "Beret" + Return &HF + Case "Birthday Hat" + Return &H10 + Case "Bone Head" + Return &H11 + Case "Bowler Hat" + Return &H12 + Case "Wabbit Ears" + Return &H13 + Case "Tropical Turban" + Return &H14 + Case "Chef Hat" + Return &H15 + Case "Cowboy Hat" + Return &H16 + Case "Rocker Hair" + Return &H17 + Case "Royal Crown" + Return &H18 + Case "Lil Devil" + Return &H19 + Case "Eye Hat" + Return &H1A + Case "Fez" + Return &H1B + Case "Crown of Light" + Return &H1C + Case "Jester Hat" + Return &H1D + Case "Winged Hat" + Return &H1E + Case "Moose Hat" + Return &H1F + Case "Plunger Head" + Return &H20 + Case "Pan Hat" + Return &H21 + Case "Rocket Hat" + Return &H22 + Case "Santa Hat" + Return &H23 + Case "Tiki Hat" + Return &H24 + Case "Trojan Helmet" + Return &H25 + Case "Unicorn Hat" + Return &H26 + Case "Wizard Hat" + Return &H27 + Case "Pumpkin Hat" + Return &H28 + Case "Pirate Doo Rag" + Return &H29 + Case "Cossack Hat" + Return &H2A + Case "Flower Hat" + Return &H2B + Case "Balloon Hat" + Return &H2C + Case "Happy Birthday" + Return &H2D + Case "Vintage Baseball Cap" + Return &H2E + Case "Prototype: Pink Bow" + Return &H2F + Case "Bowling Pin Hat" + Return &H30 + Case "Officer Cap" + Return &H31 + Case "Firefighter Helmet" + Return &H32 + Case "Graduation Hat" + Return &H33 + Case "Lampshade Hat" + Return &H34 + Case "Mariachi Hat" + Return &H35 + Case "Prototype: Headdress" + Return &H36 + Case "Paper Fast Food Hat" + Return &H37 + Case "Pilgrim Hat" + Return &H38 + Case "Police Siren Hat" + Return &H39 + Case "Purple Fedora" + Return &H3A + Case "Archer Hat" + Return &H3B + Case "Prototype: Dog Turd" + Return &H3C + Case "Safari Hat" + Return &H3D + Case "Sailor Hat" + Return &H3E + Case "Prototype: Wool Hat" + Return &H3F + Case "Dancer Hat" + Return &H40 + Case "Traffic Cone Hat" + Return &H41 + Case "Turban" + Return &H42 + Case "Battle Helmet" + Return &H43 + Case "Bottle Cap Hat" + Return &H44 + Case "Prototype: Arrow" + Return &H45 + Case "Carrot Hat" + Return &H46 + Case "Prototype: Helmet" + Return &H47 + Case "Elf Hat" + Return &H48 + Case "Fishing Hat" + Return &H49 + Case "Future Hat" + Return &H4A + Case "Nefertiti Hat" + Return &H4B + Case "Prototype: Helmet" + Return &H4C + Case "Pants Hat" + Return &H4D + Case "Princess Hat" + Return &H4E + Case "Toy Solider Hat" + Return &H4F + Case "Trucker Hat" + Return &H50 + Case "Umbrella Hat" + Return &H51 + Case "Showtime Hat" + Return &H52 + Case "Caesar Hat" + Return &H53 + Case "Flower Fairy Hat" + Return &H54 + Case "Funnel Hat" + Return &H55 + Case "Scrumshanks Hat" + Return &H56 + Case "Biter Hat" + Return &H57 + Case "Atom Hat" + Return &H58 + Case "Sombrero" + Return &H59 + Case "Rasta Hat" + Return &H5A + Case "Kufi Hat" + Return &H5B + Case "Knight Helm" + Return &H5C + Case "Dangling Carrot Hat" + Return &H5D + Case "Bronze Top Hat" + Return &H5E + Case "Silver Top Hat" + Return &H5F + Case "Gold Top Hat" + Return &H60 + Case "Rain Hat" + Return &H61 + Case "The Outsider" + Return &H62 + Case "Greeble Hat" + Return &H63 + Case "Volcano Hat" + Return &H64 + Case "Boater Hat" + Return &H65 + Case "Stone Hat" + Return &H66 + Case "Stovepipe Hat" + Return &H67 + Case "Boonie Hat" + Return &H68 + Case "Sawblade Hat" + Return &H69 + Case "Zombeanie" + Return &H6A + Case "Gaucho Hat" + Return &H6B + Case "Roundlet" + Return &H6C + Case "Capuchon" + Return &H6D + Case "Tricorn Hat" + Return &H6E + Case "Peacock Hat" + Return &H6F + Case "Bearskin Cap" + Return &H70 + Case "Fishbone Hat" + Return &H71 + Case "Ski Cap" + Return &H72 + Case "Crown of Frost" + Return &H73 + Case "Four Winds Hat" + Return &H74 + Case "Beacon Hat" + Return &H75 + Case "Flower Garland" + Return &H76 + Case "Tree Branch" + Return &H77 + Case "Aviator's Cap" + Return &H78 + Case "Asteroid Hat" + Return &H79 + Case "Crystal Hat" + Return &H7A + Case "Creepy Helm" + Return &H7B + Case "Fancy Ribbon" + Return &H7C + Case "Deely Boppers" + Return &H7D + Case "Beanie" + Return &H7E + Case "Leprechaun Hat" + Return &H7F + Case "Shark Hat" + Return &H80 + Case "Life Preserver Hat" + Return &H81 + Case "Glittering Tiara" + Return &H82 + Case "Great Helm" + Return &H83 + Case "Space Helmet" + Return &H84 + Case "UFO Hat" + Return &H85 + Case "Whirlwind Diadem" + Return &H86 + Case "Obsidian Helm" + Return &H87 + Case "Lilypad Hat" + Return &H88 + Case "Crown of Flames" + Return &H89 + Case "Runic Headband" + Return &H8A + Case "Clockwork Hat" + Return &H8B + Case "Cactus Hat" + Return &H8C + Case "Skull Helm" + Return &H8D + Case "Gloop Hat" + Return &H8E + Case "Puma Hat" + Return &H8F + Case "Elephant Hat" + Return &H90 + Case "Tiger Skin Cap" + Return &H91 + Case "Teeth Top Hat" + Return &H92 + Case "Turkey Hat" + Return &H93 + Case "Eyefro" + Return &H94 + Case "Bacon Bandana" + Return &H95 + Case "Awesome Hat" + Return &H96 + Case "Card Shark Hat" + Return &H97 + Case "Springtime Hat" + Return &H98 + Case "Jolly Hat" + Return &H99 + Case "Kickoff Hat" + Return &H9A + Case "Beetle Hat" + Return &H9B + Case "Brain Hat" + Return &H9C + Case "Brainiac Hat" + Return &H9D + Case "Bucket Hat" + Return &H9E + Case "Desert Crown" + Return &H9F + Case "Ceiling Fan Hat" + Return &HA0 + Case "Imperial Hat" + Return &HA1 + Case "Clown Classic Hat" + Return &HA2 + Case "Clown Bowler Hat" + Return &HA3 + Case "Colander Hat" + Return &HA4 + Case "Kepi Hat" + Return &HA5 + Case "Cornucopia Hat" + Return &HA6 + Case "Cubano Hat" + Return &HA7 + Case "Cycling Hat" + Return &HA8 + Case "Daisy Crown" + Return &HA9 + Case "Dragon Skull" + Return &HAA + Case "Outback Hat" + Return &HAB + Case "Lil' Elf Hat" + Return &HAC + Case "Generalissimo Hat" + Return &HAD + Case "Garrison Hat" + Return &HAE + Case "Gondolier Hat" + Return &HAF + Case "Hunting Hat" + Return &HB0 + Case "Juicer Hat" + Return &HB1 + Case "Kokoshnik" + Return &HB2 + Case "Medic Hat" + Return &HB3 + Case "Melon Hat" + Return &HB4 + Case "Mountie Hat" + Return &HB5 + Case "Nurse Hat" + Return &HB6 + Case "Palm Hat" + Return &HB7 + Case "Paperboy Hat" + Return &HB8 + Case "Parrot Hat" + Return &HB9 + Case "Old-Time Movie Hat" + Return &HBA + Case "Classic Pot Hat" + Return &HBB + Case "Radar Hat" + Return &HBC + Case "Crazy Light Bulb Hat" + Return &HBD + Case "Rubber Glove Hat" + Return &HBE + Case "Rugby Hat" + Return &HBF + Case "Metal Fin Hat" + Return &HC0 + Case "Sleuth Hat" + Return &HC1 + Case "Shower Cap" + Return &HC2 + Case "Bobby" + Return &HC3 + Case "Hedgehog Hat" + Return &HC4 + Case "Steampunk Hat" + Return &HC5 + Case "Flight Attendant Hat" + Return &HC6 + Case "Monday Hat" + Return &HC7 + Case "Sherpa Hat" + Return &HC8 + Case "Trash Lid" + Return &HC9 + Case "Turtle Hat" + Return &HCA + Case "Extreme Viking Hat" + Return &HCB + Case "Scooter Hat" + Return &HCC + Case "Volcano Island Hat" + Return &HCD + Case "Sychronized Swimming Hat" + Return &HCE + Case "William Tell Hat" + Return &HCF + Case "Tribal Hat" + Return &HD0 + Case "Rude Boy Hat" + Return &HD1 + Case "Pork Pie Hat" + Return &HD2 + Case "Alarm Clock Hat" + Return &HD3 + Case "Batter Up Hat" + Return &HD4 + Case "Horns Be With You Hat" + Return &HD5 + Case "Croissant Hat" + Return &HD6 + Case "Weather Vane Hat" + Return &HD7 + Case "Rainbow Hat" + Return &HD8 + Case "Eye of Kaos" + Return &HD9 + Case "Bat Hat" + Return &HDA + Case "Light Bulb Hat" + Return &HDB + Case "Firefly Jar" + Return &HDC + Case "Shadow Ghost Hat" + Return &HDD + Case "Lighthouse Beacon Hat" + Return &HDE + Case "Tin Foil Hat" + Return &HDF + Case "Night Cap" + Return &HE0 + Case "Storm Hat" + Return &HE1 + Case "Gold Arkeyan Helm" + Return &HE2 + Case "Toucan Hat" + Return &HE3 + Case "Pyramid Hat" + Return &HE4 + Case "Minature Skylands Hat" + Return &HE5 + Case "Wizard Hat" + Return &HE6 + Case "Prototype: blank" + Return &HE7 + Case "Candy Cane Hat" + Return &HE8 + Case "Eggshell Hat" + Return &HE9 + Case "Candle Hat" + Return &HEA + Case "Dark Helm" + Return &HEB + Case "Planet Hat" + Return &HEC + Case "Bellhop Hat" + Return &HED + Case "Bronze Arkeyan Helm" + Return &HEE + Case "Silver Arkeyan Helm" + Return &HEF + Case "Raver Hat" + Return &HF0 + Case "Shire Hat" + Return &HF1 + Case "Mongol Hat" + Return &HF2 + Case "Skipper Hat" + Return &HF3 + Case "Medieval Bard Hat" + Return &HF4 + Case "Wooden Hat" + Return &HF5 + Case "Carnival Hat" + Return &HF6 + Case "Coconut Hat" + Return &HF7 + Case "Model Home Hat" + Return &HF8 + Case "Ice Cream Hat" + Return &HF9 + Case "Molekin Mountain Hat" + Return &HFA + Case "Sheepwrecked Hat" + Return &HFB + Case "Core of Light Hat" + Return &HFC + Case "Octavius Cloptimus Hat" + Return &HFD + Case "Prototype: blank" + Return &HFE + Case "Prototype: blank" + Return &HFF + Case Else + Return &H0 + End Select + End Function + Private Sub frmTraps_Load(sender As Object, e As EventArgs) Handles MyBase.Load Application.DoEvents() - 'chkVillian1Variant.Checked = True If Area0 > Area1 Then Load_Area_0() ElseIf Area1 > Area0 Then @@ -455,6 +1093,8 @@ Public Class frmTraps ElseIf Area0 = Area1 Then Load_Area_0() End If + 'MessageBox.Show(Area0) + 'MessageBox.Show(Area1) End Sub Sub Load_Area_0() 'This only gets applied to the first villian @@ -463,5420 +1103,667 @@ Public Class frmTraps If WholeFile(&H80) = &H1 And WholeFile(&H87) = WholeFile(&H90) Then chkVillian1Variant.Checked = True End If + 'Villain One Data is 0x90 to 0xC1 'Ignore 0xB0 Block as it's MiFare Dim Villian1_ID As Byte = WholeFile(&H90) - Select Case Villian1_ID + cmbVillian1.SelectedItem = Load_Villian(Villian1_ID) + If WholeFile(&H91) = &H1 Then + chkVillian1Evolved.Checked = True + End If + Dim Villian1_Hat As Byte = WholeFile(&H92) + cmbVillian1Hat.SelectedItem = Load_Hat(Villian1_Hat) + Dim Villian1_Trinket As Byte = WholeFile(&H93) + cmbVillian1Trinket.SelectedItem = Load_Trinket(Villian1_Trinket) + 'Load Name from Offset 0x94 + txtVillian1Name.Text = Load_Name(&H94) + + '+&H40 + 'Villian Two Data is 0xD00 to 0x111 + 'Ignore 0xF00 Block as it's MiFare + Dim Villian2_ID As Byte = WholeFile(&HD0) + cmbVillian2.SelectedItem = Load_Villian(Villian2_ID) + If WholeFile(&HD1) = &H1 Then + chkVillian2Evolved.Checked = True + End If + Dim Villian2_Hat As Byte = WholeFile(&HD2) + cmbVillian2Hat.SelectedItem = Load_Hat(Villian2_Hat) + Dim Villian2_Trinket As Byte = WholeFile(&HD3) + cmbVillian2Trinket.SelectedItem = Load_Trinket(Villian2_Trinket) + 'Load Name from Byte 0xD4 + txtVillian2Name.Text = Load_Name(&HD4) + + '+&H40 + 'Villian Three Data is 0x110 to 0x141 + 'Ignore 0X130 Block as it's MiFare + Dim Villian3_ID As Byte = WholeFile(&H110) + cmbVillian3.SelectedItem = Load_Villian(Villian3_ID) + If WholeFile(&H111) = &H1 Then + chkVillian3Evolved.Checked = True + End If + Dim Villian3_Hat As Byte = WholeFile(&H112) + cmbVillian3Hat.SelectedItem = Load_Hat(Villian3_Hat) + Dim Villian3_Trinket As Byte = WholeFile(&H113) + cmbVillian3Trinket.SelectedItem = Load_Trinket(Villian3_Trinket) + 'Load Name from Byte 0x114 + txtVillian3Name.Text = Load_Name(&H114) + + '+&H40 + 'Villian Four Data is 0x150 to 0x181 + 'Ignore 0x170 Block as it's MiFare + Dim Villian4_ID As Byte = WholeFile(&H150) + cmbVillian4.SelectedItem = Load_Villian(Villian4_ID) + If WholeFile(&H151) = &H1 Then + chkVillian4Evolved.Checked = True + End If + Dim Villian4_Hat As Byte = WholeFile(&H152) + cmbVillian4Hat.SelectedItem = Load_Hat(Villian4_Hat) + Dim Villian4_Trinket As Byte = WholeFile(&H153) + cmbVillian4Trinket.SelectedItem = Load_Trinket(Villian4_Trinket) + 'Load Name from Byte 0x154 + txtVillian4Name.Text = Load_Name(&H154) + + '+&H40 + 'Villian Five Data is 0x190 to 0x1C1 + 'Ignore 0x1B0 Block as it's MiFare + Dim Villian5_ID As Byte = WholeFile(&H190) + cmbVillian5.SelectedItem = Load_Villian(Villian5_ID) + If WholeFile(&H191) = &H1 Then + chkVillian5Evolved.Checked = True + End If + Dim Villian5_Hat As Byte = WholeFile(&H192) + cmbVillian5Hat.SelectedItem = Load_Hat(Villian5_Hat) + Dim Villian5_Trinket As Byte = WholeFile(&H193) + cmbVillian5Trinket.SelectedItem = Load_Trinket(Villian5_Trinket) + 'Load Name from Byte 0x194 + txtVillian5Name.Text = Load_Name(&H194) + + '+&H40 + 'Villian Six Data is 0x1D0 to 0x201 + 'Ignore 0x200 Block as it's MiFare + Dim Villian6_ID As Byte = WholeFile(&H1D0) + cmbVillian6.SelectedItem = Load_Villian(Villian6_ID) + If WholeFile(&H1D1) = &H1 Then + chkVillian6Evolved.Checked = True + End If + Dim Villian6_Hat As Byte = WholeFile(&H1D2) + cmbVillian6Hat.SelectedItem = Load_Hat(Villian6_Hat) + Dim Villian6_Trinket As Byte = WholeFile(&H1D3) + cmbVillian6Trinket.SelectedItem = Load_Trinket(Villian6_Trinket) + + 'Load Name from Byte 0x1D4 + txtVillian6Name.Text = Load_Name(&H1D4) + End Sub + + Sub Load_Area_1() + 'Add 1C0 + 'This only gets applied to the first villian + 'Special Villan Variables are at the 0x240 Block + numVillianCount.Value = WholeFile(&H241) + If WholeFile(&H240) = &H1 And WholeFile(&H247) = WholeFile(&H240) Then + chkVillian1Variant.Checked = True + End If + + 'Villain One Data is 0x250 to 0x281 + 'Ignore 0x270 Block as it's MiFare + Dim Villian1_ID As Byte = WholeFile(&H250) + cmbVillian1.SelectedItem = Load_Villian(Villian1_ID) + If WholeFile(&H251) = &H1 Then + chkVillian1Evolved.Checked = True + End If + Dim Villian1_Hat As Byte = WholeFile(&H252) + cmbVillian1Hat.SelectedItem = Load_Hat(Villian1_Hat) + Dim Villian1_Trinket As Byte = WholeFile(&H253) + cmbVillian1Trinket.SelectedItem = Load_Hat(Villian1_Trinket) + 'Load Name from Byte 0x254 + txtVillian1Name.Text = Load_Name(&H254) + + '+&H40 + 'Villian Two Data is 0x290 to 0x2C1 + 'Ignore 0x2B0 Block as it's MiFare + Dim Villian2_ID As Byte = WholeFile(&H290) + cmbVillian2.SelectedItem = Load_Villian(Villian2_ID) + If WholeFile(&H291) = &H1 Then + chkVillian2Evolved.Checked = True + End If + Dim Villian2_Hat As Byte = WholeFile(&H292) + cmbVillian2Hat.SelectedItem = Load_Hat(Villian2_Hat) + Dim Villian2_Trinket As Byte = WholeFile(&H293) + cmbVillian2Trinket.SelectedItem = Load_Hat(Villian2_Trinket) + 'Load Name from Byte 0x294 + txtVillian2Name.Text = Load_Name(&H294) + + '+&H40 + 'Villian Three Data is 0x2D0 to 0x301 + 'Ignore 0X2F0 Block as it's MiFare + Dim Villian3_ID As Byte = WholeFile(&H2D0) + cmbVillian3.SelectedItem = Load_Villian(Villian3_ID) + If WholeFile(&H2D1) = &H1 Then + chkVillian3Evolved.Checked = True + End If + Dim Villian3_Hat As Byte = WholeFile(&H2D2) + cmbVillian3Hat.SelectedItem = Load_Hat(Villian3_Hat) + Dim Villian3_Trinket As Byte = WholeFile(&H2D3) + cmbVillian3Trinket.SelectedItem = Load_Hat(Villian3_Trinket) + 'Load Name from Byte 0x2D4 + txtVillian3Name.Text = Load_Name(&H2D4) + + '+&H40 + 'Villian Four Data is 0x310 to 0x341 + 'Ignore 0x330 Block as it's MiFare + Dim Villian4_ID As Byte = WholeFile(&H310) + cmbVillian4.SelectedItem = Load_Villian(Villian4_ID) + If WholeFile(&H311) = &H1 Then + chkVillian4Evolved.Checked = True + End If + Dim Villian4_Hat As Byte = WholeFile(&H312) + cmbVillian4Hat.SelectedItem = Load_Hat(Villian4_Hat) + Dim Villian4_Trinket As Byte = WholeFile(&H313) + cmbVillian4Trinket.SelectedItem = Load_Hat(Villian4_Trinket) + 'Load Name from Byte 0x314 + txtVillian4Name.Text = Load_Name(&H314) + + '+&H40 + 'Villian Five Data is 0x350 to 0x381 + 'Ignore 0x370 Block as it's MiFare + Dim Villian5_ID As Byte = WholeFile(&H350) + cmbVillian5.SelectedItem = Load_Villian(Villian5_ID) + If WholeFile(&H351) = &H1 Then + chkVillian5Evolved.Checked = True + End If + Dim Villian5_Hat As Byte = WholeFile(&H352) + cmbVillian5Hat.SelectedItem = Load_Hat(Villian5_Hat) + Dim Villian5_Trinket As Byte = WholeFile(&H353) + cmbVillian5Trinket.SelectedItem = Load_Hat(Villian5_Trinket) + 'Load Name from Byte 0x354 + txtVillian5Name.Text = Load_Name(&H354) + + '+&H40 + 'Villian Six Data is 0x390 to 0x3C1 + 'Ignore 0x3B0 Block as it's MiFare + Dim Villian6_ID As Byte = WholeFile(&H390) + cmbVillian6.SelectedItem = Load_Villian(Villian6_ID) + If WholeFile(&H391) = &H1 Then + chkVillian6Evolved.Checked = True + End If + Dim Villian6_Hat As Byte = WholeFile(&H392) + cmbVillian6Hat.SelectedItem = Load_Hat(Villian6_Hat) + Dim Villian6_Trinket As Byte = WholeFile(&H393) + cmbVillian6Trinket.SelectedItem = Load_Hat(Villian6_Trinket) + 'Load Name from Byte 0x394 + txtVillian6Name.Text = Load_Name(&H394) + End Sub + + + Function Load_Villian(VillianID As Byte) + Select Case VillianID Case &H0 - cmbVillian1.SelectedItem = "(None)" + Return "(None)" Exit Select Case &H1 - cmbVillian1.SelectedItem = "Chompy Mage" + Return "Chompy Mage" Exit Select Case &H2 - cmbVillian1.SelectedItem = "Dr. Crankcase" + Return "Dr. Crankcase" Exit Select Case &H3 - cmbVillian1.SelectedItem = "Wolfgang" + Return "Wolfgang" Exit Select Case &H4 - cmbVillian1.SelectedItem = "Chef Pepper Jack" + Return "Chef Pepper Jack" Exit Select Case &H5 - cmbVillian1.SelectedItem = "Nightshade" + Return "Nightshade" Exit Select Case &H6 - cmbVillian1.SelectedItem = "Luminous" + Return "Luminous" Exit Select Case &H7 - cmbVillian1.SelectedItem = "Golden Queen" + Return "Golden Queen" Exit Select Case &H8 - cmbVillian1.SelectedItem = "Dreamcatcher" + Return "Dreamcatcher" Exit Select Case &H9 - cmbVillian1.SelectedItem = "Gulper" + Return "Gulper" Exit Select Case &HA - cmbVillian1.SelectedItem = "Kaos" + Return "Kaos" Exit Select Case &HB - cmbVillian1.SelectedItem = "Cuckoo Clocker" + Return "Cuckoo Clocker" Exit Select Case &HC - cmbVillian1.SelectedItem = "Buzzer Beak" + Return "Buzzer Beak" Exit Select Case &HD - cmbVillian1.SelectedItem = "Shield Shredder" + Return "Shield Shredder" Exit Select Case &HE - cmbVillian1.SelectedItem = "Cross Crow" + Return "Cross Crow" Exit Select Case &HF - cmbVillian1.SelectedItem = "Bone Chompy" + Return "Bone Chompy" Exit Select Case &H10 - MessageBox.Show("Brawl") - cmbVillian1.SelectedItem = "Brawl and Chain" + Return "Brawl and Chain" Exit Select Case &H11 - cmbVillian1.SelectedItem = "Bomb Shell" + Return "Bomb Shell" Exit Select Case &H12 - cmbVillian1.SelectedItem = "Masker Mind" + Return "Masker Mind" Exit Select Case &H13 - cmbVillian1.SelectedItem = "Chill Bill" + Return "Chill Bill" Exit Select Case &H14 - cmbVillian1.SelectedItem = "Sheep Creep" + Return "Sheep Creep" Exit Select Case &H15 - cmbVillian1.SelectedItem = "Shrednaught" + Return "Shrednaught" Exit Select Case &H16 - cmbVillian1.SelectedItem = "Chomp Chest" + Return "Chomp Chest" Exit Select Case &H17 - cmbVillian1.SelectedItem = "Broccoli Guy" + Return "Broccoli Guy" Exit Select Case &H18 - cmbVillian1.SelectedItem = "Rage Mage" + Return "Rage Mage" Exit Select Case &H19 - cmbVillian1.SelectedItem = "Lob Goblin" + Return "Lob Goblin" Exit Select Case &H1A - cmbVillian1.SelectedItem = "Chompy" + Return "Chompy" Exit Select Case &H1B - cmbVillian1.SelectedItem = "Fisticuffs" + Return "Fisticuffs" Exit Select Case &H1C - cmbVillian1.SelectedItem = "Trolling Thunder" + Return "Trolling Thunder" Exit Select Case &H1D - cmbVillian1.SelectedItem = "Hood Sickle" + Return "Hood Sickle" Exit Select Case &H1E - cmbVillian1.SelectedItem = "Bruiser Cruiser" + Return "Bruiser Cruiser" Exit Select Case &H1F - cmbVillian1.SelectedItem = "Brawlrus" + Return "Brawlrus" Exit Select Case &H20 - cmbVillian1.SelectedItem = "Tussle Sprout" + Return "Tussle Sprout" Exit Select Case &H21 - cmbVillian1.SelectedItem = "Krankenstein" + Return "Krankenstein" Exit Select Case &H22 - cmbVillian1.SelectedItem = "Scrap Shooter" + Return "Scrap Shooter" Exit Select Case &H23 - cmbVillian1.SelectedItem = "Slobber Trap" + Return "Slobber Trap" Exit Select Case &H24 - cmbVillian1.SelectedItem = "Grinnade" + Return "Grinnade" Exit Select Case &H25 - cmbVillian1.SelectedItem = "Bad Juju" + Return "Bad Juju" Exit Select Case &H26 - cmbVillian1.SelectedItem = "Blaster-Tron" + Return "Blaster-Tron" Exit Select Case &H27 - cmbVillian1.SelectedItem = "Tae Kwon Crow" + Return "Tae Kwon Crow" Exit Select Case &H28 - cmbVillian1.SelectedItem = "Painyata" + Return "Painyata" Exit Select Case &H29 - cmbVillian1.SelectedItem = "Smoke Scream" + Return "Smoke Scream" Exit Select Case &H2A - cmbVillian1.SelectedItem = "Eye Five" + Return "Eye Five" Exit Select Case &H2B - cmbVillian1.SelectedItem = "Grave Clobber" + Return "Grave Clobber" Exit Select Case &H2C - cmbVillian1.SelectedItem = "Threatpack" + Return "Threatpack" Exit Select Case &H2D - cmbVillian1.SelectedItem = "Mab Lobs" + Return "Mab Lobs" Exit Select Case &H2E - cmbVillian1.SelectedItem = "Eye Scream" + Return "Eye Scream" Exit Select Case Else - cmbVillian1.SelectedItem = "(None)" - Exit Select + Return "(None)" End Select - If WholeFile(&H91) = &H1 Then - chkVillian1Evolved.Checked = True - End If - Dim Villian1_Hat As Byte = WholeFile(&H92) - Select Case Villian1_Hat + End Function + Function Load_Hat(HatID As Byte) + Select Case HatID Case &H0 - cmbVillian1Hat.SelectedItem = "(None)" + Return "(None)" Case &HD3 - cmbVillian1Hat.SelectedItem = "Alarm Clock Hat" + Return "Alarm Clock Hat" Case &HDA - cmbVillian1Hat.SelectedItem = "Bat Hat" + Return "Bat Hat" Case &HD4 - cmbVillian1Hat.SelectedItem = "Batter Up Hat" + Return "Batter Up Hat" Case &H9B - cmbVillian1Hat.SelectedItem = "Beetle Hat" + Return "Beetle Hat" Case &HED - cmbVillian1Hat.SelectedItem = "Bellhop Hat" + Return "Bellhop Hat" Case &HC3 - cmbVillian1Hat.SelectedItem = "Bobby" + Return "Bobby" Case &H9C - cmbVillian1Hat.SelectedItem = "Brain Hat" + Return "Brain Hat" Case &H9D - cmbVillian1Hat.SelectedItem = "Brainiac Hat" + Return "Brainiac Hat" Case &HEE - cmbVillian1Hat.SelectedItem = "Bronze Arkeyan Helm" + Return "Bronze Arkeyan Helm" Case &H9E - cmbVillian1Hat.SelectedItem = "Bucket Hat" + Return "Bucket Hat" Case &HEA - cmbVillian1Hat.SelectedItem = "Candle Hat" + Return "Candle Hat" Case &HE8 - cmbVillian1Hat.SelectedItem = "Candy Cane Hat" + Return "Candy Cane Hat" Case &HF6 - cmbVillian1Hat.SelectedItem = "Carnival Hat" + Return "Carnival Hat" Case &HA0 - cmbVillian1Hat.SelectedItem = "Ceiling Fan Hat" + Return "Ceiling Fan Hat" Case &HBB - cmbVillian1Hat.SelectedItem = "Classic Pot Hat" + Return "Classic Pot Hat" Case &HA3 - cmbVillian1Hat.SelectedItem = "Clown Bowler Hat" + Return "Clown Bowler Hat" Case &HA2 - cmbVillian1Hat.SelectedItem = "Clown Classic Hat" + Return "Clown Classic Hat" Case &HF7 - cmbVillian1Hat.SelectedItem = "Coconut Hat" + Return "Coconut Hat" Case &HA4 - cmbVillian1Hat.SelectedItem = "Colander Hat" + Return "Colander Hat" Case &HFC - cmbVillian1Hat.SelectedItem = "Core Of Light Hat" + Return "Core Of Light Hat" Case &HA6 - cmbVillian1Hat.SelectedItem = "Cornucopia Hat" + Return "Cornucopia Hat" Case &HBD - cmbVillian1Hat.SelectedItem = "Crazy Light Bulb Hat" + Return "Crazy Light Bulb Hat" Case &HD6 - cmbVillian1Hat.SelectedItem = "Croissant Hat" + Return "Croissant Hat" Case &HA7 - cmbVillian1Hat.SelectedItem = "Cubano Hat" + Return "Cubano Hat" Case &HA8 - cmbVillian1Hat.SelectedItem = "Cycling Hat" + Return "Cycling Hat" Case &HA9 - cmbVillian1Hat.SelectedItem = "Daisy Crown" + Return "Daisy Crown" Case &HEB - cmbVillian1Hat.SelectedItem = "Dark Helm" + Return "Dark Helm" Case &H9F - cmbVillian1Hat.SelectedItem = "Desert Crown" + Return "Desert Crown" Case &HAA - cmbVillian1Hat.SelectedItem = "Dragon Skull" + Return "Dragon Skull" Case &HE9 - cmbVillian1Hat.SelectedItem = "Eggshell Hat" + Return "Eggshell Hat" Case &HCB - cmbVillian1Hat.SelectedItem = "Extreme Viking Hat" + Return "Extreme Viking Hat" Case &HD9 - cmbVillian1Hat.SelectedItem = "Eye of Kaos Hat" + Return "Eye of Kaos Hat" Case &HDC - cmbVillian1Hat.SelectedItem = "Firefly Jar" + Return "Firefly Jar" Case &HC6 - cmbVillian1Hat.SelectedItem = "Flight Attendant Hat" + Return "Flight Attendant Hat" Case &HAE - cmbVillian1Hat.SelectedItem = "Garrison Hat" + Return "Garrison Hat" Case &HAD - cmbVillian1Hat.SelectedItem = "Generalissimo" + Return "Generalissimo Hat" Case &HE2 - cmbVillian1Hat.SelectedItem = "Gold Arkeyan Helm" + Return "Gold Arkeyan Helm" Case &HAF - cmbVillian1Hat.SelectedItem = "Gondolier Hat" + Return "Gondolier Hat" Case &HC4 - cmbVillian1Hat.SelectedItem = "Hedgehog Hat" + Return "Hedgehog Hat" Case &HD5 - cmbVillian1Hat.SelectedItem = "Horns Be With You Hat" + Return "Horns Be With You Hat" Case &HB0 - cmbVillian1Hat.SelectedItem = "Hunting Hat" + Return "Hunting Hat" Case &HA1 - cmbVillian1Hat.SelectedItem = "Imperial Hat" + Return "Imperial Hat" Case &HB1 - cmbVillian1Hat.SelectedItem = "Juicer Hat" + Return "Juicer Hat" Case &HA5 - cmbVillian1Hat.SelectedItem = "Kepi Hat" + Return "Kepi Hat" Case &HB2 - cmbVillian1Hat.SelectedItem = "Kokoshnik" + Return "Kokoshnik" Case &HDB - cmbVillian1Hat.SelectedItem = "Light Bulb Hat" + Return "Light Bulb Hat" Case &HDE - cmbVillian1Hat.SelectedItem = "Lighthouse Beacon Hat" + Return "Lighthouse Beacon Hat" Case &HAC - cmbVillian1Hat.SelectedItem = "Lil' Elf Hat" + Return "Lil' Elf Hat" Case &HB3 - cmbVillian1Hat.SelectedItem = "Medic Hat" + Return "Medic Hat" Case &HB4 - cmbVillian1Hat.SelectedItem = "Melon Hat" + Return "Melon Hat" Case &HC0 - cmbVillian1Hat.SelectedItem = "Metal Fin Hat" + Return "Metal Fin Hat" Case &HE5 - cmbVillian1Hat.SelectedItem = "Miniature Skylands Hat" + Return "Miniature Skylands Hat" Case &HFA - cmbVillian1Hat.SelectedItem = "Molekin Mountain Hat" + Return "Molekin Mountain Hat" Case &HC7 - cmbVillian1Hat.SelectedItem = "Monday Hat" + Return "Monday Hat" Case &HB5 - cmbVillian1Hat.SelectedItem = "Mountie Hat" + Return "Mountie Hat" Case &HE0 - cmbVillian1Hat.SelectedItem = "Night Cap" + Return "Night Cap" Case &HB6 - cmbVillian1Hat.SelectedItem = "Nurse Hat" + Return "Nurse Hat" Case &HFD - cmbVillian1Hat.SelectedItem = "Octavius Cloptimus Hat" + Return "Octavius Cloptimus Hat" Case &HBA - cmbVillian1Hat.SelectedItem = "Old-Time Movie Hat" + Return "Old-Time Movie Hat" Case &HAB - cmbVillian1Hat.SelectedItem = "Outback Hat" + Return "Outback Hat" Case &HB7 - cmbVillian1Hat.SelectedItem = "Palm Hat" + Return "Palm Hat" Case &HB8 - cmbVillian1Hat.SelectedItem = "Paperboy Hat" + Return "Paperboy Hat" Case &HB9 - cmbVillian1Hat.SelectedItem = "Parrot Nest" + Return "Parrot Nest" Case &HEC - cmbVillian1Hat.SelectedItem = "Planet Hat" + Return "Planet Hat" Case &HD2 - cmbVillian1Hat.SelectedItem = "Pork Pie Hat" + Return "Pork Pie Hat" Case &HE4 - cmbVillian1Hat.SelectedItem = "Pyramid Hat" + Return "Pyramid Hat" Case &HBC - cmbVillian1Hat.SelectedItem = "Radar Hat" + Return "Radar Hat" Case &HD8 - cmbVillian1Hat.SelectedItem = "Rainbow Hat" + Return "Rainbow Hat" Case &HBE - cmbVillian1Hat.SelectedItem = "Rubber Glove Hat" + Return "Rubber Glove Hat" Case &HD1 - cmbVillian1Hat.SelectedItem = "Rude Boy Hat" + Return "Rude Boy Hat" Case &HBF - cmbVillian1Hat.SelectedItem = "Rugby Hat" + Return "Rugby Hat" Case &HCC - cmbVillian1Hat.SelectedItem = "Scooter Hat" + Return "Scooter Hat" Case &HDD - cmbVillian1Hat.SelectedItem = "Shadow Ghost Hat" + Return "Shadow Ghost Hat" Case &HC8 - cmbVillian1Hat.SelectedItem = "Sherpa Hat" + Return "Sherpa Hat" Case &HC2 - cmbVillian1Hat.SelectedItem = "Shower Cap" + Return "Shower Cap" Case &HEF - cmbVillian1Hat.SelectedItem = "Silver Arkeyan Helm" + Return "Silver Arkeyan Helm" Case &HF3 - cmbVillian1Hat.SelectedItem = "Skipper Hat" + Return "Skipper Hat" Case &HC1 - cmbVillian1Hat.SelectedItem = "Sleuth Hat" + Return "Sleuth Hat" Case &HC5 - cmbVillian1Hat.SelectedItem = "Steampunk Hat" + Return "Steampunk Hat" Case &HE1 - cmbVillian1Hat.SelectedItem = "Storm Hat" + Return "Storm Hat" Case &HCE - cmbVillian1Hat.SelectedItem = "Synchronized Swimming Cap" + Return "Synchronized Swimming Cap" Case &HDF - cmbVillian1Hat.SelectedItem = "Tin Foil Hat" + Return "Tin Foil Hat" Case &HE3 - cmbVillian1Hat.SelectedItem = "Toucan Hat" + Return "Toucan Hat" Case &HC9 - cmbVillian1Hat.SelectedItem = "Trash Lid" + Return "Trash Lid" Case &HD0 - cmbVillian1Hat.SelectedItem = "Tribal Hat" + Return "Tribal Hat" Case &HCA - cmbVillian1Hat.SelectedItem = "Turtle Hat" + Return "Turtle Hat" Case &HCD - cmbVillian1Hat.SelectedItem = "Volcano Island Hat" + Return "Volcano Island Hat" Case &HD7 - cmbVillian1Hat.SelectedItem = "Weather Vane Hat" + Return "Weather Vane Hat" Case &HCF - cmbVillian1Hat.SelectedItem = "William Tell Hat" + Return "William Tell Hat" Case Else - cmbVillian1Hat.SelectedItem = "(None)" + Return "(None)" End Select - Dim Villian1_Trinket As Byte = WholeFile(&H93) - Select Case Villian1_Trinket + End Function + Function Load_Trinket(TrinketID As Byte) + Select Case TrinketID Case &H0 - cmbVillian1Trinket.SelectedItem = "(None)" + Return "(None)" Exit Select Case &H1 - cmbVillian1Trinket.SelectedItem = "T-Bone's Lucky Tie" + Return "T-Bone's Lucky Tie" Exit Select Case &H2 - cmbVillian1Trinket.SelectedItem = "Batterson's Bubble" + Return "Batterson's Bubble" Exit Select Case &H3 - cmbVillian1Trinket.SelectedItem = "Dark Water Daisy" + Return "Dark Water Daisy" Exit Select Case &H4 - cmbVillian1Trinket.SelectedItem = "Vote For Cyclops" + Return "Vote For Cyclops" Exit Select Case &H5 - cmbVillian1Trinket.SelectedItem = "Ramses' Dragon Horn" + Return "Ramses' Dragon Horn" Exit Select Case &H6 - cmbVillian1Trinket.SelectedItem = "Iris' Iris" + Return "Iris' Iris" Exit Select Case &H7 - cmbVillian1Trinket.SelectedItem = "Kuckoo Kazoo" + Return "Kuckoo Kazoo" Exit Select Case &H8 - cmbVillian1Trinket.SelectedItem = "Ramses' Rune" + Return "Ramses' Rune" Exit Select Case &H9 - cmbVillian1Trinket.SelectedItem = "Ullysses Uniclops" + Return "Ullysses Uniclops" Exit Select Case &HA - cmbVillian1Trinket.SelectedItem = "Billy Bison" + Return "Billy Bison" Exit Select Case &HB - cmbVillian1Trinket.SelectedItem = "Stealth Elf's Gift" + Return "Stealth Elf's Gift" Exit Select Case &HC - cmbVillian1Trinket.SelectedItem = "Lizard Lilly" + Return "Lizard Lilly" Exit Select Case &HD - cmbVillian1Trinket.SelectedItem = "Pirate Pinwheel" + Return "Pirate Pinwheel" Exit Select Case &HE - cmbVillian1Trinket.SelectedItem = "Bubble Blower" + Return "Bubble Blower" Exit Select Case &HF - cmbVillian1Trinket.SelectedItem = "Medal of Heroism" + Return "Medal of Heroism" Exit Select Case &H10 - cmbVillian1Trinket.SelectedItem = "Blobber's Medal of Courage" + Return "Blobber's Medal of Courage" Exit Select Case &H11 - cmbVillian1Trinket.SelectedItem = "Medal of Valliance" + Return "Medal of Valliance" Exit Select Case &H12 - cmbVillian1Trinket.SelectedItem = "Medal of Gallantry" + Return "Medal of Gallantry" Exit Select Case &H13 - cmbVillian1Trinket.SelectedItem = "Medal of Mettle" + Return "Medal of Mettle" Exit Select Case &H14 - cmbVillian1Trinket.SelectedItem = "Winged Medal of Bravery" + Return "Winged Medal of Bravery" Exit Select Case &H15 - cmbVillian1Trinket.SelectedItem = "Seadog Seashell" + Return "Seadog Seashell" Exit Select Case &H16 - cmbVillian1Trinket.SelectedItem = "Snuckles' Sunflower" + Return "Snuckles' Sunflower" Exit Select Case &H17 - cmbVillian1Trinket.SelectedItem = "Teddy Cyclops" + Return "Teddy Cyclops" Exit Select Case &H18 - cmbVillian1Trinket.SelectedItem = "Goo Factory Gear" + Return "Goo Factory Gear" Exit Select Case &H19 - cmbVillian1Trinket.SelectedItem = "Elemental Opal" + Return "Elemental Opal" Exit Select Case &H1A - cmbVillian1Trinket.SelectedItem = "Elemental Radiant" + Return "Elemental Radiant" Exit Select Case &H1B - cmbVillian1Trinket.SelectedItem = "Elemental Diamond" + Return "Elemental Diamond" Exit Select Case &H1C - cmbVillian1Trinket.SelectedItem = "Cyclops Spinner" + Return "Cyclops Spinner" Exit Select Case &H1D - cmbVillian1Trinket.SelectedItem = "Wiliken Windmill" + Return "Wiliken Windmill" Exit Select Case &H1E - cmbVillian1Trinket.SelectedItem = "Time Town Ticker" + Return "Time Town Ticker" Exit Select Case &H1F - cmbVillian1Trinket.SelectedItem = "Big Bow of Doom" + Return "Big Bow of Doom" Exit Select Case &H20 - cmbVillian1Trinket.SelectedItem = "Mabu's Medallion" + Return "Mabu's Medallion" Exit Select Case &H21 - cmbVillian1Trinket.SelectedItem = "Spyro's Shield" + Return "Spyro's Shield" Exit Select Case Else - cmbVillian1Trinket.SelectedItem = "(None)" + Return "(None)" Exit Select End Select - 'Load Name from Offset 0x94 - txtVillian1Name.Text = Load_Name(&H94) - - '+&H40 - 'Villian Two Data is 0xD00 to 0x111 - 'Ignore 0xF00 Block as it's MiFare - 'Dim Villian2_ID As Byte = WholeFile(&HD0) - 'MessageBox.Show("HEX: " & Hex(WholeFile(&HD0))) - Select Case WholeFile(&HD0) - Case &H0 - cmbVillian2.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian2.SelectedItem = "Chompy Mage" - Exit Select - Case &H2 - cmbVillian2.SelectedItem = "Dr. Crankcase" - Exit Select - Case &H3 - cmbVillian2.SelectedItem = "Wolfgang" - Exit Select - Case &H4 - cmbVillian2.SelectedItem = "Chef Pepper Jack" - Exit Select - Case &H5 - cmbVillian2.SelectedItem = "Nightshade" - Exit Select - Case &H6 - cmbVillian2.SelectedItem = "Luminous" - Exit Select - Case &H7 - cmbVillian2.SelectedItem = "Golden Queen" - Exit Select - Case &H8 - cmbVillian2.SelectedItem = "Dreamcatcher" - Exit Select - Case &H9 - cmbVillian2.SelectedItem = "Gulper" - Exit Select - Case &HA - cmbVillian2.SelectedItem = "Kaos" - Exit Select - Case &HB - cmbVillian2.SelectedItem = "Cuckoo Clocker" - Exit Select - Case &HC - cmbVillian2.SelectedItem = "Buzzer Beak" - Exit Select - Case &HD - cmbVillian2.SelectedItem = "Shield Shredder" - Exit Select - Case &HE - cmbVillian2.SelectedItem = "Cross Crow" - Exit Select - Case &HF - cmbVillian2.SelectedItem = "Bone Chompy" - Exit Select - Case &H10 - cmbVillian2.SelectedItem = "Brawl and Chain" - Exit Select - Case &H11 - cmbVillian2.SelectedItem = "Bomb Shell" - Exit Select - Case &H12 - cmbVillian2.SelectedItem = "Masker Mind" - Exit Select - Case &H13 - cmbVillian2.SelectedItem = "Chill Bill" - Exit Select - Case &H14 - cmbVillian2.SelectedItem = "Sheep Creep" - Exit Select - Case &H15 - cmbVillian2.SelectedItem = "Shrednaught" - Exit Select - Case &H16 - cmbVillian2.SelectedItem = "Chomp Chest" - Exit Select - Case &H17 - cmbVillian2.SelectedItem = "Broccoli Guy" - Exit Select - Case &H18 - cmbVillian2.SelectedItem = "Rage Mage" - Exit Select - Case &H19 - cmbVillian2.SelectedItem = "Lob Goblin" - Exit Select - Case &H1A - cmbVillian2.SelectedItem = "Chompy" - Exit Select - Case &H1B - cmbVillian2.SelectedItem = "Fisticuffs" - Exit Select - Case &H1C - cmbVillian2.SelectedItem = "Trolling Thunder" - Exit Select - Case &H1D - cmbVillian2.SelectedItem = "Hood Sickle" - Exit Select - Case &H1E - cmbVillian2.SelectedItem = "Bruiser Cruiser" - Exit Select - Case &H1F - cmbVillian2.SelectedItem = "Brawlrus" - Exit Select - Case &H20 - cmbVillian2.SelectedItem = "Tussle Sprout" - Exit Select - Case &H21 - cmbVillian2.SelectedItem = "Krankenstein" - Exit Select - Case &H22 - cmbVillian2.SelectedItem = "Scrap Shooter" - Exit Select - Case &H23 - cmbVillian2.SelectedItem = "Slobber Trap" - Exit Select - Case &H24 - cmbVillian2.SelectedItem = "Grinnade" - Exit Select - Case &H25 - cmbVillian2.SelectedItem = "Bad Juju" - Exit Select - Case &H26 - cmbVillian2.SelectedItem = "Blaster-Tron" - Exit Select - Case &H27 - cmbVillian2.SelectedItem = "Tae Kwon Crow" - Exit Select - Case &H28 - cmbVillian2.SelectedItem = "Painyata" - Exit Select - Case &H29 - cmbVillian2.SelectedItem = "Smoke Scream" - Exit Select - Case &H2A - cmbVillian2.SelectedItem = "Eye Five" - Exit Select - Case &H2B - cmbVillian2.SelectedItem = "Grave Clobber" - Exit Select - Case &H2C - cmbVillian2.SelectedItem = "Threatpack" - Exit Select - Case &H2D - cmbVillian2.SelectedItem = "Mab Lobs" - Exit Select - Case &H2E - cmbVillian2.SelectedItem = "Eye Scream" - Exit Select - Case Else - cmbVillian2.SelectedItem = "(None)" - Exit Select - End Select - If WholeFile(&HD1) = &H1 Then - chkVillian2Evolved.Checked = True - End If - Dim Villian2_Hat As Byte = WholeFile(&HD2) - Select Case Villian2_Hat - Case &H0 - cmbVillian2Hat.SelectedItem = "(None)" - Case &HD3 - cmbVillian2Hat.SelectedItem = "Alarm Clock Hat" - Case &HDA - cmbVillian2Hat.SelectedItem = "Bat Hat" - Case &HD4 - cmbVillian2Hat.SelectedItem = "Batter Up Hat" - Case &H9B - cmbVillian2Hat.SelectedItem = "Beetle Hat" - Case &HED - cmbVillian2Hat.SelectedItem = "Bellhop Hat" - Case &HC3 - cmbVillian2Hat.SelectedItem = "Bobby" - Case &H9C - cmbVillian2Hat.SelectedItem = "Brain Hat" - Case &H9D - cmbVillian2Hat.SelectedItem = "Brainiac Hat" - Case &HEE - cmbVillian2Hat.SelectedItem = "Bronze Arkeyan Helm" - Case &H9E - cmbVillian2Hat.SelectedItem = "Bucket Hat" - Case &HEA - cmbVillian2Hat.SelectedItem = "Candle Hat" - Case &HE8 - cmbVillian2Hat.SelectedItem = "Candy Cane Hat" - Case &HF6 - cmbVillian2Hat.SelectedItem = "Carnival Hat" - Case &HA0 - cmbVillian2Hat.SelectedItem = "Ceiling Fan Hat" - Case &HBB - cmbVillian2Hat.SelectedItem = "Classic Pot Hat" - Case &HA3 - cmbVillian2Hat.SelectedItem = "Clown Bowler Hat" - Case &HA2 - cmbVillian2Hat.SelectedItem = "Clown Classic Hat" - Case &HF7 - cmbVillian2Hat.SelectedItem = "Coconut Hat" - Case &HA4 - cmbVillian2Hat.SelectedItem = "Colander Hat" - Case &HFC - cmbVillian2Hat.SelectedItem = "Core Of Light Hat" - Case &HA6 - cmbVillian2Hat.SelectedItem = "Cornucopia Hat" - Case &HBD - cmbVillian2Hat.SelectedItem = "Crazy Light Bulb Hat" - Case &HD6 - cmbVillian2Hat.SelectedItem = "Croissant Hat" - Case &HA7 - cmbVillian2Hat.SelectedItem = "Cubano Hat" - Case &HA8 - cmbVillian2Hat.SelectedItem = "Cycling Hat" - Case &HA9 - cmbVillian2Hat.SelectedItem = "Daisy Crown" - Case &HEB - cmbVillian2Hat.SelectedItem = "Dark Helm" - Case &H9F - cmbVillian2Hat.SelectedItem = "Desert Crown" - Case &HAA - cmbVillian2Hat.SelectedItem = "Dragon Skull" - Case &HE9 - cmbVillian2Hat.SelectedItem = "Eggshell Hat" - Case &HCB - cmbVillian2Hat.SelectedItem = "Extreme Viking Hat" - Case &HD9 - cmbVillian2Hat.SelectedItem = "Eye of Kaos Hat" - Case &HDC - cmbVillian2Hat.SelectedItem = "Firefly Jar" - Case &HC6 - cmbVillian2Hat.SelectedItem = "Flight Attendant Hat" - Case &HAE - cmbVillian2Hat.SelectedItem = "Garrison Hat" - Case &HAD - cmbVillian2Hat.SelectedItem = "Generalissimo" - Case &HE2 - cmbVillian2Hat.SelectedItem = "Gold Arkeyan Helm" - Case &HAF - cmbVillian2Hat.SelectedItem = "Gondolier Hat" - Case &HC4 - cmbVillian2Hat.SelectedItem = "Hedgehog Hat" - Case &HD5 - cmbVillian2Hat.SelectedItem = "Horns Be With You Hat" - Case &HB0 - cmbVillian2Hat.SelectedItem = "Hunting Hat" - Case &HA1 - cmbVillian2Hat.SelectedItem = "Imperial Hat" - Case &HB1 - cmbVillian2Hat.SelectedItem = "Juicer Hat" - Case &HA5 - cmbVillian2Hat.SelectedItem = "Kepi Hat" - Case &HB2 - cmbVillian2Hat.SelectedItem = "Kokoshnik" - Case &HDB - cmbVillian2Hat.SelectedItem = "Light Bulb Hat" - Case &HDE - cmbVillian2Hat.SelectedItem = "Lighthouse Beacon Hat" - Case &HAC - cmbVillian2Hat.SelectedItem = "Lil' Elf Hat" - Case &HB3 - cmbVillian2Hat.SelectedItem = "Medic Hat" - Case &HB4 - cmbVillian2Hat.SelectedItem = "Melon Hat" - Case &HC0 - cmbVillian2Hat.SelectedItem = "Metal Fin Hat" - Case &HE5 - cmbVillian2Hat.SelectedItem = "Miniature Skylands Hat" - Case &HFA - cmbVillian2Hat.SelectedItem = "Molekin Mountain Hat" - Case &HC7 - cmbVillian2Hat.SelectedItem = "Monday Hat" - Case &HB5 - cmbVillian2Hat.SelectedItem = "Mountie Hat" - Case &HE0 - cmbVillian2Hat.SelectedItem = "Night Cap" - Case &HB6 - cmbVillian2Hat.SelectedItem = "Nurse Hat" - Case &HFD - cmbVillian2Hat.SelectedItem = "Octavius Cloptimus Hat" - Case &HBA - cmbVillian2Hat.SelectedItem = "Old-Time Movie Hat" - Case &HAB - cmbVillian2Hat.SelectedItem = "Outback Hat" - Case &HB7 - cmbVillian2Hat.SelectedItem = "Palm Hat" - Case &HB8 - cmbVillian2Hat.SelectedItem = "Paperboy Hat" - Case &HB9 - cmbVillian2Hat.SelectedItem = "Parrot Nest" - Case &HEC - cmbVillian2Hat.SelectedItem = "Planet Hat" - Case &HD2 - cmbVillian2Hat.SelectedItem = "Pork Pie Hat" - Case &HE4 - cmbVillian2Hat.SelectedItem = "Pyramid Hat" - Case &HBC - cmbVillian2Hat.SelectedItem = "Radar Hat" - Case &HD8 - cmbVillian2Hat.SelectedItem = "Rainbow Hat" - Case &HBE - cmbVillian2Hat.SelectedItem = "Rubber Glove Hat" - Case &HD1 - cmbVillian2Hat.SelectedItem = "Rude Boy Hat" - Case &HBF - cmbVillian2Hat.SelectedItem = "Rugby Hat" - Case &HCC - cmbVillian2Hat.SelectedItem = "Scooter Hat" - Case &HDD - cmbVillian2Hat.SelectedItem = "Shadow Ghost Hat" - Case &HC8 - cmbVillian2Hat.SelectedItem = "Sherpa Hat" - Case &HC2 - cmbVillian2Hat.SelectedItem = "Shower Cap" - Case &HEF - cmbVillian2Hat.SelectedItem = "Silver Arkeyan Helm" - Case &HF3 - cmbVillian2Hat.SelectedItem = "Skipper Hat" - Case &HC1 - cmbVillian2Hat.SelectedItem = "Sleuth Hat" - Case &HC5 - cmbVillian2Hat.SelectedItem = "Steampunk Hat" - Case &HE1 - cmbVillian2Hat.SelectedItem = "Storm Hat" - Case &HCE - cmbVillian2Hat.SelectedItem = "Synchronized Swimming Cap" - Case &HDF - cmbVillian2Hat.SelectedItem = "Tin Foil Hat" - Case &HE3 - cmbVillian2Hat.SelectedItem = "Toucan Hat" - Case &HC9 - cmbVillian2Hat.SelectedItem = "Trash Lid" - Case &HD0 - cmbVillian2Hat.SelectedItem = "Tribal Hat" - Case &HCA - cmbVillian2Hat.SelectedItem = "Turtle Hat" - Case &HCD - cmbVillian2Hat.SelectedItem = "Volcano Island Hat" - Case &HD7 - cmbVillian2Hat.SelectedItem = "Weather Vane Hat" - Case &HCF - cmbVillian2Hat.SelectedItem = "William Tell Hat" - Case Else - cmbVillian2Hat.SelectedItem = "(None)" - End Select - Dim Villian2_Trinket As Byte = WholeFile(&HD3) - Select Case Villian2_Trinket - Case &H0 - cmbVillian2Trinket.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian2Trinket.SelectedItem = "T-Bone's Lucky Tie" - Exit Select - Case &H2 - cmbVillian2Trinket.SelectedItem = "Batterson's Bubble" - Exit Select - Case &H3 - cmbVillian2Trinket.SelectedItem = "Dark Water Daisy" - Exit Select - Case &H4 - cmbVillian2Trinket.SelectedItem = "Vote For Cyclops" - Exit Select - Case &H5 - cmbVillian2Trinket.SelectedItem = "Ramses' Dragon Horn" - Exit Select - Case &H6 - cmbVillian2Trinket.SelectedItem = "Iris' Iris" - Exit Select - Case &H7 - cmbVillian2Trinket.SelectedItem = "Kuckoo Kazoo" - Exit Select - Case &H8 - cmbVillian2Trinket.SelectedItem = "Ramses' Rune" - Exit Select - Case &H9 - cmbVillian2Trinket.SelectedItem = "Ullysses Uniclops" - Exit Select - Case &HA - cmbVillian2Trinket.SelectedItem = "Billy Bison" - Exit Select - Case &HB - cmbVillian2Trinket.SelectedItem = "Stealth Elf's Gift" - Exit Select - Case &HC - cmbVillian2Trinket.SelectedItem = "Lizard Lilly" - Exit Select - Case &HD - cmbVillian2Trinket.SelectedItem = "Pirate Pinwheel" - Exit Select - Case &HE - cmbVillian2Trinket.SelectedItem = "Bubble Blower" - Exit Select - Case &HF - cmbVillian2Trinket.SelectedItem = "Medal of Heroism" - Exit Select - Case &H10 - cmbVillian2Trinket.SelectedItem = "Blobber's Medal of Courage" - Exit Select - Case &H11 - cmbVillian2Trinket.SelectedItem = "Medal of Valliance" - Exit Select - Case &H12 - cmbVillian2Trinket.SelectedItem = "Medal of Gallantry" - Exit Select - Case &H13 - cmbVillian2Trinket.SelectedItem = "Medal of Mettle" - Exit Select - Case &H14 - cmbVillian2Trinket.SelectedItem = "Winged Medal of Bravery" - Exit Select - Case &H15 - cmbVillian2Trinket.SelectedItem = "Seadog Seashell" - Exit Select - Case &H16 - cmbVillian2Trinket.SelectedItem = "Snuckles' Sunflower" - Exit Select - Case &H17 - cmbVillian2Trinket.SelectedItem = "Teddy Cyclops" - Exit Select - Case &H18 - cmbVillian2Trinket.SelectedItem = "Goo Factory Gear" - Exit Select - Case &H19 - cmbVillian2Trinket.SelectedItem = "Elemental Opal" - Exit Select - Case &H1A - cmbVillian2Trinket.SelectedItem = "Elemental Radiant" - Exit Select - Case &H1B - cmbVillian2Trinket.SelectedItem = "Elemental Diamond" - Exit Select - Case &H1C - cmbVillian2Trinket.SelectedItem = "Cyclops Spinner" - Exit Select - Case &H1D - cmbVillian2Trinket.SelectedItem = "Wiliken Windmill" - Exit Select - Case &H1E - cmbVillian2Trinket.SelectedItem = "Time Town Ticker" - Exit Select - Case &H1F - cmbVillian2Trinket.SelectedItem = "Big Bow of Doom" - Exit Select - Case &H20 - cmbVillian2Trinket.SelectedItem = "Mabu's Medallion" - Exit Select - Case &H21 - cmbVillian2Trinket.SelectedItem = "Spyro's Shield" - Exit Select - Case Else - cmbVillian2Trinket.SelectedItem = "(None)" - Exit Select - End Select - 'Load Name from Byte 0xD4 - txtVillian2Name.Text = Load_Name(&HD4) - - '+&H40 - 'Villian Three Data is 0x110 to 0x141 - 'Ignore 0X130 Block as it's MiFare - Dim Villian3_ID As Byte = WholeFile(&H110) - Select Case Villian3_ID - Case &H0 - cmbVillian3.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian3.SelectedItem = "Chompy Mage" - Exit Select - Case &H2 - cmbVillian3.SelectedItem = "Dr. Crankcase" - Exit Select - Case &H3 - cmbVillian3.SelectedItem = "Wolfgang" - Exit Select - Case &H4 - cmbVillian3.SelectedItem = "Chef Pepper Jack" - Exit Select - Case &H5 - cmbVillian3.SelectedItem = "Nightshade" - Exit Select - Case &H6 - cmbVillian3.SelectedItem = "Luminous" - Exit Select - Case &H7 - cmbVillian3.SelectedItem = "Golden Queen" - Exit Select - Case &H8 - cmbVillian3.SelectedItem = "Dreamcatcher" - Exit Select - Case &H9 - cmbVillian3.SelectedItem = "Gulper" - Exit Select - Case &HA - cmbVillian3.SelectedItem = "Kaos" - Exit Select - Case &HB - cmbVillian3.SelectedItem = "Cuckoo Clocker" - Exit Select - Case &HC - cmbVillian3.SelectedItem = "Buzzer Beak" - Exit Select - Case &HD - cmbVillian3.SelectedItem = "Shield Shredder" - Exit Select - Case &HE - cmbVillian3.SelectedItem = "Cross Crow" - Exit Select - Case &HF - cmbVillian3.SelectedItem = "Bone Chompy" - Exit Select - Case &H10 - cmbVillian3.SelectedItem = "Brawl and Chain" - Exit Select - Case &H11 - cmbVillian3.SelectedItem = "Bomb Shell" - Exit Select - Case &H12 - cmbVillian3.SelectedItem = "Masker Mind" - Exit Select - Case &H13 - cmbVillian3.SelectedItem = "Chill Bill" - Exit Select - Case &H14 - cmbVillian3.SelectedItem = "Sheep Creep" - Exit Select - Case &H15 - cmbVillian3.SelectedItem = "Shrednaught" - Exit Select - Case &H16 - cmbVillian3.SelectedItem = "Chomp Chest" - Exit Select - Case &H17 - cmbVillian3.SelectedItem = "Broccoli Guy" - Exit Select - Case &H18 - cmbVillian3.SelectedItem = "Rage Mage" - Exit Select - Case &H19 - cmbVillian3.SelectedItem = "Lob Goblin" - Exit Select - Case &H1A - cmbVillian3.SelectedItem = "Chompy" - Exit Select - Case &H1B - cmbVillian3.SelectedItem = "Fisticuffs" - Exit Select - Case &H1C - cmbVillian3.SelectedItem = "Trolling Thunder" - Exit Select - Case &H1D - cmbVillian3.SelectedItem = "Hood Sickle" - Exit Select - Case &H1E - cmbVillian3.SelectedItem = "Bruiser Cruiser" - Exit Select - Case &H1F - cmbVillian3.SelectedItem = "Brawlrus" - Exit Select - Case &H20 - cmbVillian3.SelectedItem = "Tussle Sprout" - Exit Select - Case &H21 - cmbVillian3.SelectedItem = "Krankenstein" - Exit Select - Case &H22 - cmbVillian3.SelectedItem = "Scrap Shooter" - Exit Select - Case &H23 - cmbVillian3.SelectedItem = "Slobber Trap" - Exit Select - Case &H24 - cmbVillian3.SelectedItem = "Grinnade" - Exit Select - Case &H25 - cmbVillian3.SelectedItem = "Bad Juju" - Exit Select - Case &H26 - cmbVillian3.SelectedItem = "Blaster-Tron" - Exit Select - Case &H27 - cmbVillian3.SelectedItem = "Tae Kwon Crow" - Exit Select - Case &H28 - cmbVillian3.SelectedItem = "Painyata" - Exit Select - Case &H29 - cmbVillian3.SelectedItem = "Smoke Scream" - Exit Select - Case &H2A - cmbVillian3.SelectedItem = "Eye Five" - Exit Select - Case &H2B - cmbVillian3.SelectedItem = "Grave Clobber" - Exit Select - Case &H2C - cmbVillian3.SelectedItem = "Threatpack" - Exit Select - Case &H2D - cmbVillian3.SelectedItem = "Mab Lobs" - Exit Select - Case &H2E - cmbVillian3.SelectedItem = "Eye Scream" - Exit Select - Case Else - cmbVillian3.SelectedItem = "(None)" - Exit Select - End Select - If WholeFile(&H111) = &H1 Then - chkVillian3Evolved.Checked = True - End If - Dim Villian3_Hat As Byte = WholeFile(&H112) - Select Case Villian3_Hat - Case &H0 - cmbVillian3Hat.SelectedItem = "(None)" - Case &HD3 - cmbVillian3Hat.SelectedItem = "Alarm Clock Hat" - Case &HDA - cmbVillian3Hat.SelectedItem = "Bat Hat" - Case &HD4 - cmbVillian3Hat.SelectedItem = "Batter Up Hat" - Case &H9B - cmbVillian3Hat.SelectedItem = "Beetle Hat" - Case &HED - cmbVillian3Hat.SelectedItem = "Bellhop Hat" - Case &HC3 - cmbVillian3Hat.SelectedItem = "Bobby" - Case &H9C - cmbVillian3Hat.SelectedItem = "Brain Hat" - Case &H9D - cmbVillian3Hat.SelectedItem = "Brainiac Hat" - Case &HEE - cmbVillian3Hat.SelectedItem = "Bronze Arkeyan Helm" - Case &H9E - cmbVillian3Hat.SelectedItem = "Bucket Hat" - Case &HEA - cmbVillian3Hat.SelectedItem = "Candle Hat" - Case &HE8 - cmbVillian3Hat.SelectedItem = "Candy Cane Hat" - Case &HF6 - cmbVillian3Hat.SelectedItem = "Carnival Hat" - Case &HA0 - cmbVillian3Hat.SelectedItem = "Ceiling Fan Hat" - Case &HBB - cmbVillian3Hat.SelectedItem = "Classic Pot Hat" - Case &HA3 - cmbVillian3Hat.SelectedItem = "Clown Bowler Hat" - Case &HA2 - cmbVillian3Hat.SelectedItem = "Clown Classic Hat" - Case &HF7 - cmbVillian3Hat.SelectedItem = "Coconut Hat" - Case &HA4 - cmbVillian3Hat.SelectedItem = "Colander Hat" - Case &HFC - cmbVillian3Hat.SelectedItem = "Core Of Light Hat" - Case &HA6 - cmbVillian3Hat.SelectedItem = "Cornucopia Hat" - Case &HBD - cmbVillian3Hat.SelectedItem = "Crazy Light Bulb Hat" - Case &HD6 - cmbVillian3Hat.SelectedItem = "Croissant Hat" - Case &HA7 - cmbVillian3Hat.SelectedItem = "Cubano Hat" - Case &HA8 - cmbVillian3Hat.SelectedItem = "Cycling Hat" - Case &HA9 - cmbVillian3Hat.SelectedItem = "Daisy Crown" - Case &HEB - cmbVillian3Hat.SelectedItem = "Dark Helm" - Case &H9F - cmbVillian3Hat.SelectedItem = "Desert Crown" - Case &HAA - cmbVillian3Hat.SelectedItem = "Dragon Skull" - Case &HE9 - cmbVillian3Hat.SelectedItem = "Eggshell Hat" - Case &HCB - cmbVillian3Hat.SelectedItem = "Extreme Viking Hat" - Case &HD9 - cmbVillian3Hat.SelectedItem = "Eye of Kaos Hat" - Case &HDC - cmbVillian3Hat.SelectedItem = "Firefly Jar" - Case &HC6 - cmbVillian3Hat.SelectedItem = "Flight Attendant Hat" - Case &HAE - cmbVillian3Hat.SelectedItem = "Garrison Hat" - Case &HAD - cmbVillian3Hat.SelectedItem = "Generalissimo" - Case &HE2 - cmbVillian3Hat.SelectedItem = "Gold Arkeyan Helm" - Case &HAF - cmbVillian3Hat.SelectedItem = "Gondolier Hat" - Case &HC4 - cmbVillian3Hat.SelectedItem = "Hedgehog Hat" - Case &HD5 - cmbVillian3Hat.SelectedItem = "Horns Be With You Hat" - Case &HB0 - cmbVillian3Hat.SelectedItem = "Hunting Hat" - Case &HA1 - cmbVillian3Hat.SelectedItem = "Imperial Hat" - Case &HB1 - cmbVillian3Hat.SelectedItem = "Juicer Hat" - Case &HA5 - cmbVillian3Hat.SelectedItem = "Kepi Hat" - Case &HB2 - cmbVillian3Hat.SelectedItem = "Kokoshnik" - Case &HDB - cmbVillian3Hat.SelectedItem = "Light Bulb Hat" - Case &HDE - cmbVillian3Hat.SelectedItem = "Lighthouse Beacon Hat" - Case &HAC - cmbVillian3Hat.SelectedItem = "Lil' Elf Hat" - Case &HB3 - cmbVillian3Hat.SelectedItem = "Medic Hat" - Case &HB4 - cmbVillian3Hat.SelectedItem = "Melon Hat" - Case &HC0 - cmbVillian3Hat.SelectedItem = "Metal Fin Hat" - Case &HE5 - cmbVillian3Hat.SelectedItem = "Miniature Skylands Hat" - Case &HFA - cmbVillian3Hat.SelectedItem = "Molekin Mountain Hat" - Case &HC7 - cmbVillian3Hat.SelectedItem = "Monday Hat" - Case &HB5 - cmbVillian3Hat.SelectedItem = "Mountie Hat" - Case &HE0 - cmbVillian3Hat.SelectedItem = "Night Cap" - Case &HB6 - cmbVillian3Hat.SelectedItem = "Nurse Hat" - Case &HFD - cmbVillian3Hat.SelectedItem = "Octavius Cloptimus Hat" - Case &HBA - cmbVillian3Hat.SelectedItem = "Old-Time Movie Hat" - Case &HAB - cmbVillian3Hat.SelectedItem = "Outback Hat" - Case &HB7 - cmbVillian3Hat.SelectedItem = "Palm Hat" - Case &HB8 - cmbVillian3Hat.SelectedItem = "Paperboy Hat" - Case &HB9 - cmbVillian3Hat.SelectedItem = "Parrot Nest" - Case &HEC - cmbVillian3Hat.SelectedItem = "Planet Hat" - Case &HD2 - cmbVillian3Hat.SelectedItem = "Pork Pie Hat" - Case &HE4 - cmbVillian3Hat.SelectedItem = "Pyramid Hat" - Case &HBC - cmbVillian3Hat.SelectedItem = "Radar Hat" - Case &HD8 - cmbVillian3Hat.SelectedItem = "Rainbow Hat" - Case &HBE - cmbVillian3Hat.SelectedItem = "Rubber Glove Hat" - Case &HD1 - cmbVillian3Hat.SelectedItem = "Rude Boy Hat" - Case &HBF - cmbVillian3Hat.SelectedItem = "Rugby Hat" - Case &HCC - cmbVillian3Hat.SelectedItem = "Scooter Hat" - Case &HDD - cmbVillian3Hat.SelectedItem = "Shadow Ghost Hat" - Case &HC8 - cmbVillian3Hat.SelectedItem = "Sherpa Hat" - Case &HC2 - cmbVillian3Hat.SelectedItem = "Shower Cap" - Case &HEF - cmbVillian3Hat.SelectedItem = "Silver Arkeyan Helm" - Case &HF3 - cmbVillian3Hat.SelectedItem = "Skipper Hat" - Case &HC1 - cmbVillian3Hat.SelectedItem = "Sleuth Hat" - Case &HC5 - cmbVillian3Hat.SelectedItem = "Steampunk Hat" - Case &HE1 - cmbVillian3Hat.SelectedItem = "Storm Hat" - Case &HCE - cmbVillian3Hat.SelectedItem = "Synchronized Swimming Cap" - Case &HDF - cmbVillian3Hat.SelectedItem = "Tin Foil Hat" - Case &HE3 - cmbVillian3Hat.SelectedItem = "Toucan Hat" - Case &HC9 - cmbVillian3Hat.SelectedItem = "Trash Lid" - Case &HD0 - cmbVillian3Hat.SelectedItem = "Tribal Hat" - Case &HCA - cmbVillian3Hat.SelectedItem = "Turtle Hat" - Case &HCD - cmbVillian3Hat.SelectedItem = "Volcano Island Hat" - Case &HD7 - cmbVillian3Hat.SelectedItem = "Weather Vane Hat" - Case &HCF - cmbVillian3Hat.SelectedItem = "William Tell Hat" - Case Else - cmbVillian3Hat.SelectedItem = "(None)" - End Select - Dim Villian3_Trinket As Byte = WholeFile(&H113) - Select Case Villian3_Trinket - Case &H0 - cmbVillian3Trinket.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian3Trinket.SelectedItem = "T-Bone's Lucky Tie" - Exit Select - Case &H2 - cmbVillian3Trinket.SelectedItem = "Batterson's Bubble" - Exit Select - Case &H3 - cmbVillian3Trinket.SelectedItem = "Dark Water Daisy" - Exit Select - Case &H4 - cmbVillian3Trinket.SelectedItem = "Vote For Cyclops" - Exit Select - Case &H5 - cmbVillian3Trinket.SelectedItem = "Ramses' Dragon Horn" - Exit Select - Case &H6 - cmbVillian3Trinket.SelectedItem = "Iris' Iris" - Exit Select - Case &H7 - cmbVillian3Trinket.SelectedItem = "Kuckoo Kazoo" - Exit Select - Case &H8 - cmbVillian3Trinket.SelectedItem = "Ramses' Rune" - Exit Select - Case &H9 - cmbVillian3Trinket.SelectedItem = "Ullysses Uniclops" - Exit Select - Case &HA - cmbVillian3Trinket.SelectedItem = "Billy Bison" - Exit Select - Case &HB - cmbVillian3Trinket.SelectedItem = "Stealth Elf's Gift" - Exit Select - Case &HC - cmbVillian3Trinket.SelectedItem = "Lizard Lilly" - Exit Select - Case &HD - cmbVillian3Trinket.SelectedItem = "Pirate Pinwheel" - Exit Select - Case &HE - cmbVillian3Trinket.SelectedItem = "Bubble Blower" - Exit Select - Case &HF - cmbVillian3Trinket.SelectedItem = "Medal of Heroism" - Exit Select - Case &H10 - cmbVillian3Trinket.SelectedItem = "Blobber's Medal of Courage" - Exit Select - Case &H11 - cmbVillian3Trinket.SelectedItem = "Medal of Valliance" - Exit Select - Case &H12 - cmbVillian3Trinket.SelectedItem = "Medal of Gallantry" - Exit Select - Case &H13 - cmbVillian3Trinket.SelectedItem = "Medal of Mettle" - Exit Select - Case &H14 - cmbVillian3Trinket.SelectedItem = "Winged Medal of Bravery" - Exit Select - Case &H15 - cmbVillian3Trinket.SelectedItem = "Seadog Seashell" - Exit Select - Case &H16 - cmbVillian3Trinket.SelectedItem = "Snuckles' Sunflower" - Exit Select - Case &H17 - cmbVillian3Trinket.SelectedItem = "Teddy Cyclops" - Exit Select - Case &H18 - cmbVillian3Trinket.SelectedItem = "Goo Factory Gear" - Exit Select - Case &H19 - cmbVillian3Trinket.SelectedItem = "Elemental Opal" - Exit Select - Case &H1A - cmbVillian3Trinket.SelectedItem = "Elemental Radiant" - Exit Select - Case &H1B - cmbVillian3Trinket.SelectedItem = "Elemental Diamond" - Exit Select - Case &H1C - cmbVillian3Trinket.SelectedItem = "Cyclops Spinner" - Exit Select - Case &H1D - cmbVillian3Trinket.SelectedItem = "Wiliken Windmill" - Exit Select - Case &H1E - cmbVillian3Trinket.SelectedItem = "Time Town Ticker" - Exit Select - Case &H1F - cmbVillian3Trinket.SelectedItem = "Big Bow of Doom" - Exit Select - Case &H20 - cmbVillian3Trinket.SelectedItem = "Mabu's Medallion" - Exit Select - Case &H21 - cmbVillian3Trinket.SelectedItem = "Spyro's Shield" - Exit Select - Case Else - cmbVillian3Trinket.SelectedItem = "(None)" - Exit Select - End Select - 'Load Name from Byte 0x114 - txtVillian3Name.Text = Load_Name(&H114) - - '+&H40 - 'Villian Four Data is 0x150 to 0x181 - 'Ignore 0x170 Block as it's MiFare - Dim Villian4_ID As Byte = WholeFile(&H150) - Select Case Villian4_ID - Case &H0 - cmbVillian4.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian4.SelectedItem = "Chompy Mage" - Exit Select - Case &H2 - cmbVillian4.SelectedItem = "Dr. Crankcase" - Exit Select - Case &H3 - cmbVillian4.SelectedItem = "Wolfgang" - Exit Select - Case &H4 - cmbVillian4.SelectedItem = "Chef Pepper Jack" - Exit Select - Case &H5 - cmbVillian4.SelectedItem = "Nightshade" - Exit Select - Case &H6 - cmbVillian4.SelectedItem = "Luminous" - Exit Select - Case &H7 - cmbVillian4.SelectedItem = "Golden Queen" - Exit Select - Case &H8 - cmbVillian4.SelectedItem = "Dreamcatcher" - Exit Select - Case &H9 - cmbVillian4.SelectedItem = "Gulper" - Exit Select - Case &HA - cmbVillian4.SelectedItem = "Kaos" - Exit Select - Case &HB - cmbVillian4.SelectedItem = "Cuckoo Clocker" - Exit Select - Case &HC - cmbVillian4.SelectedItem = "Buzzer Beak" - Exit Select - Case &HD - cmbVillian4.SelectedItem = "Shield Shredder" - Exit Select - Case &HE - cmbVillian4.SelectedItem = "Cross Crow" - Exit Select - Case &HF - cmbVillian4.SelectedItem = "Bone Chompy" - Exit Select - Case &H10 - cmbVillian4.SelectedItem = "Brawl and Chain" - Exit Select - Case &H11 - cmbVillian4.SelectedItem = "Bomb Shell" - Exit Select - Case &H12 - cmbVillian4.SelectedItem = "Masker Mind" - Exit Select - Case &H13 - cmbVillian4.SelectedItem = "Chill Bill" - Exit Select - Case &H14 - cmbVillian4.SelectedItem = "Sheep Creep" - Exit Select - Case &H15 - cmbVillian4.SelectedItem = "Shrednaught" - Exit Select - Case &H16 - cmbVillian4.SelectedItem = "Chomp Chest" - Exit Select - Case &H17 - cmbVillian4.SelectedItem = "Broccoli Guy" - Exit Select - Case &H18 - cmbVillian4.SelectedItem = "Rage Mage" - Exit Select - Case &H19 - cmbVillian4.SelectedItem = "Lob Goblin" - Exit Select - Case &H1A - cmbVillian4.SelectedItem = "Chompy" - Exit Select - Case &H1B - cmbVillian4.SelectedItem = "Fisticuffs" - Exit Select - Case &H1C - cmbVillian4.SelectedItem = "Trolling Thunder" - Exit Select - Case &H1D - cmbVillian4.SelectedItem = "Hood Sickle" - Exit Select - Case &H1E - cmbVillian4.SelectedItem = "Bruiser Cruiser" - Exit Select - Case &H1F - cmbVillian4.SelectedItem = "Brawlrus" - Exit Select - Case &H20 - cmbVillian4.SelectedItem = "Tussle Sprout" - Exit Select - Case &H21 - cmbVillian4.SelectedItem = "Krankenstein" - Exit Select - Case &H22 - cmbVillian4.SelectedItem = "Scrap Shooter" - Exit Select - Case &H23 - cmbVillian4.SelectedItem = "Slobber Trap" - Exit Select - Case &H24 - cmbVillian4.SelectedItem = "Grinnade" - Exit Select - Case &H25 - cmbVillian4.SelectedItem = "Bad Juju" - Exit Select - Case &H26 - cmbVillian4.SelectedItem = "Blaster-Tron" - Exit Select - Case &H27 - cmbVillian4.SelectedItem = "Tae Kwon Crow" - Exit Select - Case &H28 - cmbVillian4.SelectedItem = "Painyata" - Exit Select - Case &H29 - cmbVillian4.SelectedItem = "Smoke Scream" - Exit Select - Case &H2A - cmbVillian4.SelectedItem = "Eye Five" - Exit Select - Case &H2B - cmbVillian4.SelectedItem = "Grave Clobber" - Exit Select - Case &H2C - cmbVillian4.SelectedItem = "Threatpack" - Exit Select - Case &H2D - cmbVillian4.SelectedItem = "Mab Lobs" - Exit Select - Case &H2E - cmbVillian4.SelectedItem = "Eye Scream" - Exit Select - Case Else - cmbVillian4.SelectedItem = "(None)" - Exit Select - End Select - If WholeFile(&H151) = &H1 Then - chkVillian4Evolved.Checked = True - End If - Dim Villian4_Hat As Byte = WholeFile(&H152) - Select Case Villian4_Hat - Case &H0 - cmbVillian4Hat.SelectedItem = "(None)" - Case &HD3 - cmbVillian4Hat.SelectedItem = "Alarm Clock Hat" - Case &HDA - cmbVillian4Hat.SelectedItem = "Bat Hat" - Case &HD4 - cmbVillian4Hat.SelectedItem = "Batter Up Hat" - Case &H9B - cmbVillian4Hat.SelectedItem = "Beetle Hat" - Case &HED - cmbVillian4Hat.SelectedItem = "Bellhop Hat" - Case &HC3 - cmbVillian4Hat.SelectedItem = "Bobby" - Case &H9C - cmbVillian4Hat.SelectedItem = "Brain Hat" - Case &H9D - cmbVillian4Hat.SelectedItem = "Brainiac Hat" - Case &HEE - cmbVillian4Hat.SelectedItem = "Bronze Arkeyan Helm" - Case &H9E - cmbVillian4Hat.SelectedItem = "Bucket Hat" - Case &HEA - cmbVillian4Hat.SelectedItem = "Candle Hat" - Case &HE8 - cmbVillian4Hat.SelectedItem = "Candy Cane Hat" - Case &HF6 - cmbVillian4Hat.SelectedItem = "Carnival Hat" - Case &HA0 - cmbVillian4Hat.SelectedItem = "Ceiling Fan Hat" - Case &HBB - cmbVillian4Hat.SelectedItem = "Classic Pot Hat" - Case &HA3 - cmbVillian4Hat.SelectedItem = "Clown Bowler Hat" - Case &HA2 - cmbVillian4Hat.SelectedItem = "Clown Classic Hat" - Case &HF7 - cmbVillian4Hat.SelectedItem = "Coconut Hat" - Case &HA4 - cmbVillian4Hat.SelectedItem = "Colander Hat" - Case &HFC - cmbVillian4Hat.SelectedItem = "Core Of Light Hat" - Case &HA6 - cmbVillian4Hat.SelectedItem = "Cornucopia Hat" - Case &HBD - cmbVillian4Hat.SelectedItem = "Crazy Light Bulb Hat" - Case &HD6 - cmbVillian4Hat.SelectedItem = "Croissant Hat" - Case &HA7 - cmbVillian4Hat.SelectedItem = "Cubano Hat" - Case &HA8 - cmbVillian4Hat.SelectedItem = "Cycling Hat" - Case &HA9 - cmbVillian4Hat.SelectedItem = "Daisy Crown" - Case &HEB - cmbVillian4Hat.SelectedItem = "Dark Helm" - Case &H9F - cmbVillian4Hat.SelectedItem = "Desert Crown" - Case &HAA - cmbVillian4Hat.SelectedItem = "Dragon Skull" - Case &HE9 - cmbVillian4Hat.SelectedItem = "Eggshell Hat" - Case &HCB - cmbVillian4Hat.SelectedItem = "Extreme Viking Hat" - Case &HD9 - cmbVillian4Hat.SelectedItem = "Eye of Kaos Hat" - Case &HDC - cmbVillian4Hat.SelectedItem = "Firefly Jar" - Case &HC6 - cmbVillian4Hat.SelectedItem = "Flight Attendant Hat" - Case &HAE - cmbVillian4Hat.SelectedItem = "Garrison Hat" - Case &HAD - cmbVillian4Hat.SelectedItem = "Generalissimo" - Case &HE2 - cmbVillian4Hat.SelectedItem = "Gold Arkeyan Helm" - Case &HAF - cmbVillian4Hat.SelectedItem = "Gondolier Hat" - Case &HC4 - cmbVillian4Hat.SelectedItem = "Hedgehog Hat" - Case &HD5 - cmbVillian4Hat.SelectedItem = "Horns Be With You Hat" - Case &HB0 - cmbVillian4Hat.SelectedItem = "Hunting Hat" - Case &HA1 - cmbVillian4Hat.SelectedItem = "Imperial Hat" - Case &HB1 - cmbVillian4Hat.SelectedItem = "Juicer Hat" - Case &HA5 - cmbVillian4Hat.SelectedItem = "Kepi Hat" - Case &HB2 - cmbVillian4Hat.SelectedItem = "Kokoshnik" - Case &HDB - cmbVillian4Hat.SelectedItem = "Light Bulb Hat" - Case &HDE - cmbVillian4Hat.SelectedItem = "Lighthouse Beacon Hat" - Case &HAC - cmbVillian4Hat.SelectedItem = "Lil' Elf Hat" - Case &HB3 - cmbVillian4Hat.SelectedItem = "Medic Hat" - Case &HB4 - cmbVillian4Hat.SelectedItem = "Melon Hat" - Case &HC0 - cmbVillian4Hat.SelectedItem = "Metal Fin Hat" - Case &HE5 - cmbVillian4Hat.SelectedItem = "Miniature Skylands Hat" - Case &HFA - cmbVillian4Hat.SelectedItem = "Molekin Mountain Hat" - Case &HC7 - cmbVillian4Hat.SelectedItem = "Monday Hat" - Case &HB5 - cmbVillian4Hat.SelectedItem = "Mountie Hat" - Case &HE0 - cmbVillian4Hat.SelectedItem = "Night Cap" - Case &HB6 - cmbVillian4Hat.SelectedItem = "Nurse Hat" - Case &HFD - cmbVillian4Hat.SelectedItem = "Octavius Cloptimus Hat" - Case &HBA - cmbVillian4Hat.SelectedItem = "Old-Time Movie Hat" - Case &HAB - cmbVillian4Hat.SelectedItem = "Outback Hat" - Case &HB7 - cmbVillian4Hat.SelectedItem = "Palm Hat" - Case &HB8 - cmbVillian4Hat.SelectedItem = "Paperboy Hat" - Case &HB9 - cmbVillian4Hat.SelectedItem = "Parrot Nest" - Case &HEC - cmbVillian4Hat.SelectedItem = "Planet Hat" - Case &HD2 - cmbVillian4Hat.SelectedItem = "Pork Pie Hat" - Case &HE4 - cmbVillian4Hat.SelectedItem = "Pyramid Hat" - Case &HBC - cmbVillian4Hat.SelectedItem = "Radar Hat" - Case &HD8 - cmbVillian4Hat.SelectedItem = "Rainbow Hat" - Case &HBE - cmbVillian4Hat.SelectedItem = "Rubber Glove Hat" - Case &HD1 - cmbVillian4Hat.SelectedItem = "Rude Boy Hat" - Case &HBF - cmbVillian4Hat.SelectedItem = "Rugby Hat" - Case &HCC - cmbVillian4Hat.SelectedItem = "Scooter Hat" - Case &HDD - cmbVillian4Hat.SelectedItem = "Shadow Ghost Hat" - Case &HC8 - cmbVillian4Hat.SelectedItem = "Sherpa Hat" - Case &HC2 - cmbVillian4Hat.SelectedItem = "Shower Cap" - Case &HEF - cmbVillian4Hat.SelectedItem = "Silver Arkeyan Helm" - Case &HF3 - cmbVillian4Hat.SelectedItem = "Skipper Hat" - Case &HC1 - cmbVillian4Hat.SelectedItem = "Sleuth Hat" - Case &HC5 - cmbVillian4Hat.SelectedItem = "Steampunk Hat" - Case &HE1 - cmbVillian4Hat.SelectedItem = "Storm Hat" - Case &HCE - cmbVillian4Hat.SelectedItem = "Synchronized Swimming Cap" - Case &HDF - cmbVillian4Hat.SelectedItem = "Tin Foil Hat" - Case &HE3 - cmbVillian4Hat.SelectedItem = "Toucan Hat" - Case &HC9 - cmbVillian4Hat.SelectedItem = "Trash Lid" - Case &HD0 - cmbVillian4Hat.SelectedItem = "Tribal Hat" - Case &HCA - cmbVillian4Hat.SelectedItem = "Turtle Hat" - Case &HCD - cmbVillian4Hat.SelectedItem = "Volcano Island Hat" - Case &HD7 - cmbVillian4Hat.SelectedItem = "Weather Vane Hat" - Case &HCF - cmbVillian4Hat.SelectedItem = "William Tell Hat" - Case Else - cmbVillian4Hat.SelectedItem = "(None)" - End Select - Dim Villian4_Trinket As Byte = WholeFile(&H153) - Select Case Villian4_Trinket - Case &H0 - cmbVillian4Trinket.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian4Trinket.SelectedItem = "T-Bone's Lucky Tie" - Exit Select - Case &H2 - cmbVillian4Trinket.SelectedItem = "Batterson's Bubble" - Exit Select - Case &H3 - cmbVillian4Trinket.SelectedItem = "Dark Water Daisy" - Exit Select - Case &H4 - cmbVillian4Trinket.SelectedItem = "Vote For Cyclops" - Exit Select - Case &H5 - cmbVillian4Trinket.SelectedItem = "Ramses' Dragon Horn" - Exit Select - Case &H6 - cmbVillian4Trinket.SelectedItem = "Iris' Iris" - Exit Select - Case &H7 - cmbVillian4Trinket.SelectedItem = "Kuckoo Kazoo" - Exit Select - Case &H8 - cmbVillian4Trinket.SelectedItem = "Ramses' Rune" - Exit Select - Case &H9 - cmbVillian4Trinket.SelectedItem = "Ullysses Uniclops" - Exit Select - Case &HA - cmbVillian4Trinket.SelectedItem = "Billy Bison" - Exit Select - Case &HB - cmbVillian4Trinket.SelectedItem = "Stealth Elf's Gift" - Exit Select - Case &HC - cmbVillian4Trinket.SelectedItem = "Lizard Lilly" - Exit Select - Case &HD - cmbVillian4Trinket.SelectedItem = "Pirate Pinwheel" - Exit Select - Case &HE - cmbVillian4Trinket.SelectedItem = "Bubble Blower" - Exit Select - Case &HF - cmbVillian4Trinket.SelectedItem = "Medal of Heroism" - Exit Select - Case &H10 - cmbVillian4Trinket.SelectedItem = "Blobber's Medal of Courage" - Exit Select - Case &H11 - cmbVillian4Trinket.SelectedItem = "Medal of Valliance" - Exit Select - Case &H12 - cmbVillian4Trinket.SelectedItem = "Medal of Gallantry" - Exit Select - Case &H13 - cmbVillian4Trinket.SelectedItem = "Medal of Mettle" - Exit Select - Case &H14 - cmbVillian4Trinket.SelectedItem = "Winged Medal of Bravery" - Exit Select - Case &H15 - cmbVillian4Trinket.SelectedItem = "Seadog Seashell" - Exit Select - Case &H16 - cmbVillian4Trinket.SelectedItem = "Snuckles' Sunflower" - Exit Select - Case &H17 - cmbVillian4Trinket.SelectedItem = "Teddy Cyclops" - Exit Select - Case &H18 - cmbVillian4Trinket.SelectedItem = "Goo Factory Gear" - Exit Select - Case &H19 - cmbVillian4Trinket.SelectedItem = "Elemental Opal" - Exit Select - Case &H1A - cmbVillian4Trinket.SelectedItem = "Elemental Radiant" - Exit Select - Case &H1B - cmbVillian4Trinket.SelectedItem = "Elemental Diamond" - Exit Select - Case &H1C - cmbVillian4Trinket.SelectedItem = "Cyclops Spinner" - Exit Select - Case &H1D - cmbVillian4Trinket.SelectedItem = "Wiliken Windmill" - Exit Select - Case &H1E - cmbVillian4Trinket.SelectedItem = "Time Town Ticker" - Exit Select - Case &H1F - cmbVillian4Trinket.SelectedItem = "Big Bow of Doom" - Exit Select - Case &H20 - cmbVillian4Trinket.SelectedItem = "Mabu's Medallion" - Exit Select - Case &H21 - cmbVillian4Trinket.SelectedItem = "Spyro's Shield" - Exit Select - Case Else - cmbVillian4Trinket.SelectedItem = "(None)" - Exit Select - End Select - 'Load Name from Byte 0x154 - txtVillian4Name.Text = Load_Name(&H154) - - '+&H40 - 'Villian Five Data is 0x190 to 0x1C1 - 'Ignore 0x1B0 Block as it's MiFare - Dim Villian5_ID As Byte = WholeFile(&H190) - Select Case Villian5_ID - Case &H0 - cmbVillian5.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian5.SelectedItem = "Chompy Mage" - Exit Select - Case &H2 - cmbVillian5.SelectedItem = "Dr. Crankcase" - Exit Select - Case &H3 - cmbVillian5.SelectedItem = "Wolfgang" - Exit Select - Case &H4 - cmbVillian5.SelectedItem = "Chef Pepper Jack" - Exit Select - Case &H5 - cmbVillian5.SelectedItem = "Nightshade" - Exit Select - Case &H6 - cmbVillian5.SelectedItem = "Luminous" - Exit Select - Case &H7 - cmbVillian5.SelectedItem = "Golden Queen" - Exit Select - Case &H8 - cmbVillian5.SelectedItem = "Dreamcatcher" - Exit Select - Case &H9 - cmbVillian5.SelectedItem = "Gulper" - Exit Select - Case &HA - cmbVillian5.SelectedItem = "Kaos" - Exit Select - Case &HB - cmbVillian5.SelectedItem = "Cuckoo Clocker" - Exit Select - Case &HC - cmbVillian5.SelectedItem = "Buzzer Beak" - Exit Select - Case &HD - cmbVillian5.SelectedItem = "Shield Shredder" - Exit Select - Case &HE - cmbVillian5.SelectedItem = "Cross Crow" - Exit Select - Case &HF - cmbVillian5.SelectedItem = "Bone Chompy" - Exit Select - Case &H10 - cmbVillian5.SelectedItem = "Brawl and Chain" - Exit Select - Case &H11 - cmbVillian5.SelectedItem = "Bomb Shell" - Exit Select - Case &H12 - cmbVillian5.SelectedItem = "Masker Mind" - Exit Select - Case &H13 - cmbVillian5.SelectedItem = "Chill Bill" - Exit Select - Case &H14 - cmbVillian5.SelectedItem = "Sheep Creep" - Exit Select - Case &H15 - cmbVillian5.SelectedItem = "Shrednaught" - Exit Select - Case &H16 - cmbVillian5.SelectedItem = "Chomp Chest" - Exit Select - Case &H17 - cmbVillian5.SelectedItem = "Broccoli Guy" - Exit Select - Case &H18 - cmbVillian5.SelectedItem = "Rage Mage" - Exit Select - Case &H19 - cmbVillian5.SelectedItem = "Lob Goblin" - Exit Select - Case &H1A - cmbVillian5.SelectedItem = "Chompy" - Exit Select - Case &H1B - cmbVillian5.SelectedItem = "Fisticuffs" - Exit Select - Case &H1C - cmbVillian5.SelectedItem = "Trolling Thunder" - Exit Select - Case &H1D - cmbVillian5.SelectedItem = "Hood Sickle" - Exit Select - Case &H1E - cmbVillian5.SelectedItem = "Bruiser Cruiser" - Exit Select - Case &H1F - cmbVillian5.SelectedItem = "Brawlrus" - Exit Select - Case &H20 - cmbVillian5.SelectedItem = "Tussle Sprout" - Exit Select - Case &H21 - cmbVillian5.SelectedItem = "Krankenstein" - Exit Select - Case &H22 - cmbVillian5.SelectedItem = "Scrap Shooter" - Exit Select - Case &H23 - cmbVillian5.SelectedItem = "Slobber Trap" - Exit Select - Case &H24 - cmbVillian5.SelectedItem = "Grinnade" - Exit Select - Case &H25 - cmbVillian5.SelectedItem = "Bad Juju" - Exit Select - Case &H26 - cmbVillian5.SelectedItem = "Blaster-Tron" - Exit Select - Case &H27 - cmbVillian5.SelectedItem = "Tae Kwon Crow" - Exit Select - Case &H28 - cmbVillian5.SelectedItem = "Painyata" - Exit Select - Case &H29 - cmbVillian5.SelectedItem = "Smoke Scream" - Exit Select - Case &H2A - cmbVillian5.SelectedItem = "Eye Five" - Exit Select - Case &H2B - cmbVillian5.SelectedItem = "Grave Clobber" - Exit Select - Case &H2C - cmbVillian5.SelectedItem = "Threatpack" - Exit Select - Case &H2D - cmbVillian5.SelectedItem = "Mab Lobs" - Exit Select - Case &H2E - cmbVillian5.SelectedItem = "Eye Scream" - Exit Select - Case Else - cmbVillian5.SelectedItem = "(None)" - Exit Select - End Select - If WholeFile(&H191) = &H1 Then - chkVillian5Evolved.Checked = True - End If - Dim Villian5_Hat As Byte = WholeFile(&H192) - Select Case Villian5_Hat - Case &H0 - cmbVillian5Hat.SelectedItem = "(None)" - Case &HD3 - cmbVillian5Hat.SelectedItem = "Alarm Clock Hat" - Case &HDA - cmbVillian5Hat.SelectedItem = "Bat Hat" - Case &HD4 - cmbVillian5Hat.SelectedItem = "Batter Up Hat" - Case &H9B - cmbVillian5Hat.SelectedItem = "Beetle Hat" - Case &HED - cmbVillian5Hat.SelectedItem = "Bellhop Hat" - Case &HC3 - cmbVillian5Hat.SelectedItem = "Bobby" - Case &H9C - cmbVillian5Hat.SelectedItem = "Brain Hat" - Case &H9D - cmbVillian5Hat.SelectedItem = "Brainiac Hat" - Case &HEE - cmbVillian5Hat.SelectedItem = "Bronze Arkeyan Helm" - Case &H9E - cmbVillian5Hat.SelectedItem = "Bucket Hat" - Case &HEA - cmbVillian5Hat.SelectedItem = "Candle Hat" - Case &HE8 - cmbVillian5Hat.SelectedItem = "Candy Cane Hat" - Case &HF6 - cmbVillian5Hat.SelectedItem = "Carnival Hat" - Case &HA0 - cmbVillian5Hat.SelectedItem = "Ceiling Fan Hat" - Case &HBB - cmbVillian5Hat.SelectedItem = "Classic Pot Hat" - Case &HA3 - cmbVillian5Hat.SelectedItem = "Clown Bowler Hat" - Case &HA2 - cmbVillian5Hat.SelectedItem = "Clown Classic Hat" - Case &HF7 - cmbVillian5Hat.SelectedItem = "Coconut Hat" - Case &HA4 - cmbVillian5Hat.SelectedItem = "Colander Hat" - Case &HFC - cmbVillian5Hat.SelectedItem = "Core Of Light Hat" - Case &HA6 - cmbVillian5Hat.SelectedItem = "Cornucopia Hat" - Case &HBD - cmbVillian5Hat.SelectedItem = "Crazy Light Bulb Hat" - Case &HD6 - cmbVillian5Hat.SelectedItem = "Croissant Hat" - Case &HA7 - cmbVillian5Hat.SelectedItem = "Cubano Hat" - Case &HA8 - cmbVillian5Hat.SelectedItem = "Cycling Hat" - Case &HA9 - cmbVillian5Hat.SelectedItem = "Daisy Crown" - Case &HEB - cmbVillian5Hat.SelectedItem = "Dark Helm" - Case &H9F - cmbVillian5Hat.SelectedItem = "Desert Crown" - Case &HAA - cmbVillian5Hat.SelectedItem = "Dragon Skull" - Case &HE9 - cmbVillian5Hat.SelectedItem = "Eggshell Hat" - Case &HCB - cmbVillian5Hat.SelectedItem = "Extreme Viking Hat" - Case &HD9 - cmbVillian5Hat.SelectedItem = "Eye of Kaos Hat" - Case &HDC - cmbVillian5Hat.SelectedItem = "Firefly Jar" - Case &HC6 - cmbVillian5Hat.SelectedItem = "Flight Attendant Hat" - Case &HAE - cmbVillian5Hat.SelectedItem = "Garrison Hat" - Case &HAD - cmbVillian5Hat.SelectedItem = "Generalissimo" - Case &HE2 - cmbVillian5Hat.SelectedItem = "Gold Arkeyan Helm" - Case &HAF - cmbVillian5Hat.SelectedItem = "Gondolier Hat" - Case &HC4 - cmbVillian5Hat.SelectedItem = "Hedgehog Hat" - Case &HD5 - cmbVillian5Hat.SelectedItem = "Horns Be With You Hat" - Case &HB0 - cmbVillian5Hat.SelectedItem = "Hunting Hat" - Case &HA1 - cmbVillian5Hat.SelectedItem = "Imperial Hat" - Case &HB1 - cmbVillian5Hat.SelectedItem = "Juicer Hat" - Case &HA5 - cmbVillian5Hat.SelectedItem = "Kepi Hat" - Case &HB2 - cmbVillian5Hat.SelectedItem = "Kokoshnik" - Case &HDB - cmbVillian5Hat.SelectedItem = "Light Bulb Hat" - Case &HDE - cmbVillian5Hat.SelectedItem = "Lighthouse Beacon Hat" - Case &HAC - cmbVillian5Hat.SelectedItem = "Lil' Elf Hat" - Case &HB3 - cmbVillian5Hat.SelectedItem = "Medic Hat" - Case &HB4 - cmbVillian5Hat.SelectedItem = "Melon Hat" - Case &HC0 - cmbVillian5Hat.SelectedItem = "Metal Fin Hat" - Case &HE5 - cmbVillian5Hat.SelectedItem = "Miniature Skylands Hat" - Case &HFA - cmbVillian5Hat.SelectedItem = "Molekin Mountain Hat" - Case &HC7 - cmbVillian5Hat.SelectedItem = "Monday Hat" - Case &HB5 - cmbVillian5Hat.SelectedItem = "Mountie Hat" - Case &HE0 - cmbVillian5Hat.SelectedItem = "Night Cap" - Case &HB6 - cmbVillian5Hat.SelectedItem = "Nurse Hat" - Case &HFD - cmbVillian5Hat.SelectedItem = "Octavius Cloptimus Hat" - Case &HBA - cmbVillian5Hat.SelectedItem = "Old-Time Movie Hat" - Case &HAB - cmbVillian5Hat.SelectedItem = "Outback Hat" - Case &HB7 - cmbVillian5Hat.SelectedItem = "Palm Hat" - Case &HB8 - cmbVillian5Hat.SelectedItem = "Paperboy Hat" - Case &HB9 - cmbVillian5Hat.SelectedItem = "Parrot Nest" - Case &HEC - cmbVillian5Hat.SelectedItem = "Planet Hat" - Case &HD2 - cmbVillian5Hat.SelectedItem = "Pork Pie Hat" - Case &HE4 - cmbVillian5Hat.SelectedItem = "Pyramid Hat" - Case &HBC - cmbVillian5Hat.SelectedItem = "Radar Hat" - Case &HD8 - cmbVillian5Hat.SelectedItem = "Rainbow Hat" - Case &HBE - cmbVillian5Hat.SelectedItem = "Rubber Glove Hat" - Case &HD1 - cmbVillian5Hat.SelectedItem = "Rude Boy Hat" - Case &HBF - cmbVillian5Hat.SelectedItem = "Rugby Hat" - Case &HCC - cmbVillian5Hat.SelectedItem = "Scooter Hat" - Case &HDD - cmbVillian5Hat.SelectedItem = "Shadow Ghost Hat" - Case &HC8 - cmbVillian5Hat.SelectedItem = "Sherpa Hat" - Case &HC2 - cmbVillian5Hat.SelectedItem = "Shower Cap" - Case &HEF - cmbVillian5Hat.SelectedItem = "Silver Arkeyan Helm" - Case &HF3 - cmbVillian5Hat.SelectedItem = "Skipper Hat" - Case &HC1 - cmbVillian5Hat.SelectedItem = "Sleuth Hat" - Case &HC5 - cmbVillian5Hat.SelectedItem = "Steampunk Hat" - Case &HE1 - cmbVillian5Hat.SelectedItem = "Storm Hat" - Case &HCE - cmbVillian5Hat.SelectedItem = "Synchronized Swimming Cap" - Case &HDF - cmbVillian5Hat.SelectedItem = "Tin Foil Hat" - Case &HE3 - cmbVillian5Hat.SelectedItem = "Toucan Hat" - Case &HC9 - cmbVillian5Hat.SelectedItem = "Trash Lid" - Case &HD0 - cmbVillian5Hat.SelectedItem = "Tribal Hat" - Case &HCA - cmbVillian5Hat.SelectedItem = "Turtle Hat" - Case &HCD - cmbVillian5Hat.SelectedItem = "Volcano Island Hat" - Case &HD7 - cmbVillian5Hat.SelectedItem = "Weather Vane Hat" - Case &HCF - cmbVillian5Hat.SelectedItem = "William Tell Hat" - Case Else - cmbVillian5Hat.SelectedItem = "(None)" - End Select - Dim Villian5_Trinket As Byte = WholeFile(&H193) - Select Case Villian5_Trinket - Case &H0 - cmbVillian5Trinket.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian5Trinket.SelectedItem = "T-Bone's Lucky Tie" - Exit Select - Case &H2 - cmbVillian5Trinket.SelectedItem = "Batterson's Bubble" - Exit Select - Case &H3 - cmbVillian5Trinket.SelectedItem = "Dark Water Daisy" - Exit Select - Case &H4 - cmbVillian5Trinket.SelectedItem = "Vote For Cyclops" - Exit Select - Case &H5 - cmbVillian5Trinket.SelectedItem = "Ramses' Dragon Horn" - Exit Select - Case &H6 - cmbVillian5Trinket.SelectedItem = "Iris' Iris" - Exit Select - Case &H7 - cmbVillian5Trinket.SelectedItem = "Kuckoo Kazoo" - Exit Select - Case &H8 - cmbVillian5Trinket.SelectedItem = "Ramses' Rune" - Exit Select - Case &H9 - cmbVillian5Trinket.SelectedItem = "Ullysses Uniclops" - Exit Select - Case &HA - cmbVillian5Trinket.SelectedItem = "Billy Bison" - Exit Select - Case &HB - cmbVillian5Trinket.SelectedItem = "Stealth Elf's Gift" - Exit Select - Case &HC - cmbVillian5Trinket.SelectedItem = "Lizard Lilly" - Exit Select - Case &HD - cmbVillian5Trinket.SelectedItem = "Pirate Pinwheel" - Exit Select - Case &HE - cmbVillian5Trinket.SelectedItem = "Bubble Blower" - Exit Select - Case &HF - cmbVillian5Trinket.SelectedItem = "Medal of Heroism" - Exit Select - Case &H10 - cmbVillian5Trinket.SelectedItem = "Blobber's Medal of Courage" - Exit Select - Case &H11 - cmbVillian5Trinket.SelectedItem = "Medal of Valliance" - Exit Select - Case &H12 - cmbVillian5Trinket.SelectedItem = "Medal of Gallantry" - Exit Select - Case &H13 - cmbVillian5Trinket.SelectedItem = "Medal of Mettle" - Exit Select - Case &H14 - cmbVillian5Trinket.SelectedItem = "Winged Medal of Bravery" - Exit Select - Case &H15 - cmbVillian5Trinket.SelectedItem = "Seadog Seashell" - Exit Select - Case &H16 - cmbVillian5Trinket.SelectedItem = "Snuckles' Sunflower" - Exit Select - Case &H17 - cmbVillian5Trinket.SelectedItem = "Teddy Cyclops" - Exit Select - Case &H18 - cmbVillian5Trinket.SelectedItem = "Goo Factory Gear" - Exit Select - Case &H19 - cmbVillian5Trinket.SelectedItem = "Elemental Opal" - Exit Select - Case &H1A - cmbVillian5Trinket.SelectedItem = "Elemental Radiant" - Exit Select - Case &H1B - cmbVillian5Trinket.SelectedItem = "Elemental Diamond" - Exit Select - Case &H1C - cmbVillian5Trinket.SelectedItem = "Cyclops Spinner" - Exit Select - Case &H1D - cmbVillian5Trinket.SelectedItem = "Wiliken Windmill" - Exit Select - Case &H1E - cmbVillian5Trinket.SelectedItem = "Time Town Ticker" - Exit Select - Case &H1F - cmbVillian5Trinket.SelectedItem = "Big Bow of Doom" - Exit Select - Case &H20 - cmbVillian5Trinket.SelectedItem = "Mabu's Medallion" - Exit Select - Case &H21 - cmbVillian5Trinket.SelectedItem = "Spyro's Shield" - Exit Select - Case Else - cmbVillian5Trinket.SelectedItem = "(None)" - Exit Select - End Select - 'Load Name from Byte 0x194 - txtVillian5Name.Text = Load_Name(&H194) - - '+&H40 - 'Villian Six Data is 0x1D0 to 0x201 - 'Ignore 0x200 Block as it's MiFare - Dim Villian6_ID As Byte = WholeFile(&H1D0) - Select Case Villian6_ID - Case &H0 - cmbVillian6.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian6.SelectedItem = "Chompy Mage" - Exit Select - Case &H2 - cmbVillian6.SelectedItem = "Dr. Crankcase" - Exit Select - Case &H3 - cmbVillian6.SelectedItem = "Wolfgang" - Exit Select - Case &H4 - cmbVillian6.SelectedItem = "Chef Pepper Jack" - Exit Select - Case &H5 - cmbVillian6.SelectedItem = "Nightshade" - Exit Select - Case &H6 - cmbVillian6.SelectedItem = "Luminous" - Exit Select - Case &H7 - cmbVillian6.SelectedItem = "Golden Queen" - Exit Select - Case &H8 - cmbVillian6.SelectedItem = "Dreamcatcher" - Exit Select - Case &H9 - cmbVillian6.SelectedItem = "Gulper" - Exit Select - Case &HA - cmbVillian6.SelectedItem = "Kaos" - Exit Select - Case &HB - cmbVillian6.SelectedItem = "Cuckoo Clocker" - Exit Select - Case &HC - cmbVillian6.SelectedItem = "Buzzer Beak" - Exit Select - Case &HD - cmbVillian6.SelectedItem = "Shield Shredder" - Exit Select - Case &HE - cmbVillian6.SelectedItem = "Cross Crow" - Exit Select - Case &HF - cmbVillian6.SelectedItem = "Bone Chompy" - Exit Select - Case &H10 - cmbVillian6.SelectedItem = "Brawl and Chain" - Exit Select - Case &H11 - cmbVillian6.SelectedItem = "Bomb Shell" - Exit Select - Case &H12 - cmbVillian6.SelectedItem = "Masker Mind" - Exit Select - Case &H13 - cmbVillian6.SelectedItem = "Chill Bill" - Exit Select - Case &H14 - cmbVillian6.SelectedItem = "Sheep Creep" - Exit Select - Case &H15 - cmbVillian6.SelectedItem = "Shrednaught" - Exit Select - Case &H16 - cmbVillian6.SelectedItem = "Chomp Chest" - Exit Select - Case &H17 - cmbVillian6.SelectedItem = "Broccoli Guy" - Exit Select - Case &H18 - cmbVillian6.SelectedItem = "Rage Mage" - Exit Select - Case &H19 - cmbVillian6.SelectedItem = "Lob Goblin" - Exit Select - Case &H1A - cmbVillian6.SelectedItem = "Chompy" - Exit Select - Case &H1B - cmbVillian6.SelectedItem = "Fisticuffs" - Exit Select - Case &H1C - cmbVillian6.SelectedItem = "Trolling Thunder" - Exit Select - Case &H1D - cmbVillian6.SelectedItem = "Hood Sickle" - Exit Select - Case &H1E - cmbVillian6.SelectedItem = "Bruiser Cruiser" - Exit Select - Case &H1F - cmbVillian6.SelectedItem = "Brawlrus" - Exit Select - Case &H20 - cmbVillian6.SelectedItem = "Tussle Sprout" - Exit Select - Case &H21 - cmbVillian6.SelectedItem = "Krankenstein" - Exit Select - Case &H22 - cmbVillian6.SelectedItem = "Scrap Shooter" - Exit Select - Case &H23 - cmbVillian6.SelectedItem = "Slobber Trap" - Exit Select - Case &H24 - cmbVillian6.SelectedItem = "Grinnade" - Exit Select - Case &H25 - cmbVillian6.SelectedItem = "Bad Juju" - Exit Select - Case &H26 - cmbVillian6.SelectedItem = "Blaster-Tron" - Exit Select - Case &H27 - cmbVillian6.SelectedItem = "Tae Kwon Crow" - Exit Select - Case &H28 - cmbVillian6.SelectedItem = "Painyata" - Exit Select - Case &H29 - cmbVillian6.SelectedItem = "Smoke Scream" - Exit Select - Case &H2A - cmbVillian6.SelectedItem = "Eye Five" - Exit Select - Case &H2B - cmbVillian6.SelectedItem = "Grave Clobber" - Exit Select - Case &H2C - cmbVillian6.SelectedItem = "Threatpack" - Exit Select - Case &H2D - cmbVillian6.SelectedItem = "Mab Lobs" - Exit Select - Case &H2E - cmbVillian6.SelectedItem = "Eye Scream" - Exit Select - Case Else - cmbVillian6.SelectedItem = "(None)" - Exit Select - End Select - If WholeFile(&H1D1) = &H1 Then - chkVillian6Evolved.Checked = True - End If - Dim Villian6_Trinket As Byte = WholeFile(&H1D3) - Select Case Villian6_Trinket - Case &H0 - cmbVillian6Trinket.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian6Trinket.SelectedItem = "T-Bone's Lucky Tie" - Exit Select - Case &H2 - cmbVillian6Trinket.SelectedItem = "Batterson's Bubble" - Exit Select - Case &H3 - cmbVillian6Trinket.SelectedItem = "Dark Water Daisy" - Exit Select - Case &H4 - cmbVillian6Trinket.SelectedItem = "Vote For Cyclops" - Exit Select - Case &H5 - cmbVillian6Trinket.SelectedItem = "Ramses' Dragon Horn" - Exit Select - Case &H6 - cmbVillian6Trinket.SelectedItem = "Iris' Iris" - Exit Select - Case &H7 - cmbVillian6Trinket.SelectedItem = "Kuckoo Kazoo" - Exit Select - Case &H8 - cmbVillian6Trinket.SelectedItem = "Ramses' Rune" - Exit Select - Case &H9 - cmbVillian6Trinket.SelectedItem = "Ullysses Uniclops" - Exit Select - Case &HA - cmbVillian6Trinket.SelectedItem = "Billy Bison" - Exit Select - Case &HB - cmbVillian6Trinket.SelectedItem = "Stealth Elf's Gift" - Exit Select - Case &HC - cmbVillian6Trinket.SelectedItem = "Lizard Lilly" - Exit Select - Case &HD - cmbVillian6Trinket.SelectedItem = "Pirate Pinwheel" - Exit Select - Case &HE - cmbVillian6Trinket.SelectedItem = "Bubble Blower" - Exit Select - Case &HF - cmbVillian6Trinket.SelectedItem = "Medal of Heroism" - Exit Select - Case &H10 - cmbVillian6Trinket.SelectedItem = "Blobber's Medal of Courage" - Exit Select - Case &H11 - cmbVillian6Trinket.SelectedItem = "Medal of Valliance" - Exit Select - Case &H12 - cmbVillian6Trinket.SelectedItem = "Medal of Gallantry" - Exit Select - Case &H13 - cmbVillian6Trinket.SelectedItem = "Medal of Mettle" - Exit Select - Case &H14 - cmbVillian6Trinket.SelectedItem = "Winged Medal of Bravery" - Exit Select - Case &H15 - cmbVillian6Trinket.SelectedItem = "Seadog Seashell" - Exit Select - Case &H16 - cmbVillian6Trinket.SelectedItem = "Snuckles' Sunflower" - Exit Select - Case &H17 - cmbVillian6Trinket.SelectedItem = "Teddy Cyclops" - Exit Select - Case &H18 - cmbVillian6Trinket.SelectedItem = "Goo Factory Gear" - Exit Select - Case &H19 - cmbVillian6Trinket.SelectedItem = "Elemental Opal" - Exit Select - Case &H1A - cmbVillian6Trinket.SelectedItem = "Elemental Radiant" - Exit Select - Case &H1B - cmbVillian6Trinket.SelectedItem = "Elemental Diamond" - Exit Select - Case &H1C - cmbVillian6Trinket.SelectedItem = "Cyclops Spinner" - Exit Select - Case &H1D - cmbVillian6Trinket.SelectedItem = "Wiliken Windmill" - Exit Select - Case &H1E - cmbVillian6Trinket.SelectedItem = "Time Town Ticker" - Exit Select - Case &H1F - cmbVillian6Trinket.SelectedItem = "Big Bow of Doom" - Exit Select - Case &H20 - cmbVillian6Trinket.SelectedItem = "Mabu's Medallion" - Exit Select - Case &H21 - cmbVillian6Trinket.SelectedItem = "Spyro's Shield" - Exit Select - Case Else - cmbVillian6Trinket.SelectedItem = "(None)" - Exit Select - End Select - Dim Villian6_Hat As Byte = WholeFile(&H1D2) - Select Case Villian6_Hat - Case &H0 - cmbVillian6Hat.SelectedItem = "(None)" - Case &HD3 - cmbVillian6Hat.SelectedItem = "Alarm Clock Hat" - Case &HDA - cmbVillian6Hat.SelectedItem = "Bat Hat" - Case &HD4 - cmbVillian6Hat.SelectedItem = "Batter Up Hat" - Case &H9B - cmbVillian6Hat.SelectedItem = "Beetle Hat" - Case &HED - cmbVillian6Hat.SelectedItem = "Bellhop Hat" - Case &HC3 - cmbVillian6Hat.SelectedItem = "Bobby" - Case &H9C - cmbVillian6Hat.SelectedItem = "Brain Hat" - Case &H9D - cmbVillian6Hat.SelectedItem = "Brainiac Hat" - Case &HEE - cmbVillian6Hat.SelectedItem = "Bronze Arkeyan Helm" - Case &H9E - cmbVillian6Hat.SelectedItem = "Bucket Hat" - Case &HEA - cmbVillian6Hat.SelectedItem = "Candle Hat" - Case &HE8 - cmbVillian6Hat.SelectedItem = "Candy Cane Hat" - Case &HF6 - cmbVillian6Hat.SelectedItem = "Carnival Hat" - Case &HA0 - cmbVillian6Hat.SelectedItem = "Ceiling Fan Hat" - Case &HBB - cmbVillian6Hat.SelectedItem = "Classic Pot Hat" - Case &HA3 - cmbVillian6Hat.SelectedItem = "Clown Bowler Hat" - Case &HA2 - cmbVillian6Hat.SelectedItem = "Clown Classic Hat" - Case &HF7 - cmbVillian6Hat.SelectedItem = "Coconut Hat" - Case &HA4 - cmbVillian6Hat.SelectedItem = "Colander Hat" - Case &HFC - cmbVillian6Hat.SelectedItem = "Core Of Light Hat" - Case &HA6 - cmbVillian6Hat.SelectedItem = "Cornucopia Hat" - Case &HBD - cmbVillian6Hat.SelectedItem = "Crazy Light Bulb Hat" - Case &HD6 - cmbVillian6Hat.SelectedItem = "Croissant Hat" - Case &HA7 - cmbVillian6Hat.SelectedItem = "Cubano Hat" - Case &HA8 - cmbVillian6Hat.SelectedItem = "Cycling Hat" - Case &HA9 - cmbVillian6Hat.SelectedItem = "Daisy Crown" - Case &HEB - cmbVillian6Hat.SelectedItem = "Dark Helm" - Case &H9F - cmbVillian6Hat.SelectedItem = "Desert Crown" - Case &HAA - cmbVillian6Hat.SelectedItem = "Dragon Skull" - Case &HE9 - cmbVillian6Hat.SelectedItem = "Eggshell Hat" - Case &HCB - cmbVillian6Hat.SelectedItem = "Extreme Viking Hat" - Case &HD9 - cmbVillian6Hat.SelectedItem = "Eye of Kaos Hat" - Case &HDC - cmbVillian6Hat.SelectedItem = "Firefly Jar" - Case &HC6 - cmbVillian6Hat.SelectedItem = "Flight Attendant Hat" - Case &HAE - cmbVillian6Hat.SelectedItem = "Garrison Hat" - Case &HAD - cmbVillian6Hat.SelectedItem = "Generalissimo" - Case &HE2 - cmbVillian6Hat.SelectedItem = "Gold Arkeyan Helm" - Case &HAF - cmbVillian6Hat.SelectedItem = "Gondolier Hat" - Case &HC4 - cmbVillian6Hat.SelectedItem = "Hedgehog Hat" - Case &HD5 - cmbVillian6Hat.SelectedItem = "Horns Be With You Hat" - Case &HB0 - cmbVillian6Hat.SelectedItem = "Hunting Hat" - Case &HA1 - cmbVillian6Hat.SelectedItem = "Imperial Hat" - Case &HB1 - cmbVillian6Hat.SelectedItem = "Juicer Hat" - Case &HA5 - cmbVillian6Hat.SelectedItem = "Kepi Hat" - Case &HB2 - cmbVillian6Hat.SelectedItem = "Kokoshnik" - Case &HDB - cmbVillian6Hat.SelectedItem = "Light Bulb Hat" - Case &HDE - cmbVillian6Hat.SelectedItem = "Lighthouse Beacon Hat" - Case &HAC - cmbVillian6Hat.SelectedItem = "Lil' Elf Hat" - Case &HB3 - cmbVillian6Hat.SelectedItem = "Medic Hat" - Case &HB4 - cmbVillian6Hat.SelectedItem = "Melon Hat" - Case &HC0 - cmbVillian6Hat.SelectedItem = "Metal Fin Hat" - Case &HE5 - cmbVillian6Hat.SelectedItem = "Miniature Skylands Hat" - Case &HFA - cmbVillian6Hat.SelectedItem = "Molekin Mountain Hat" - Case &HC7 - cmbVillian6Hat.SelectedItem = "Monday Hat" - Case &HB5 - cmbVillian6Hat.SelectedItem = "Mountie Hat" - Case &HE0 - cmbVillian6Hat.SelectedItem = "Night Cap" - Case &HB6 - cmbVillian6Hat.SelectedItem = "Nurse Hat" - Case &HFD - cmbVillian6Hat.SelectedItem = "Octavius Cloptimus Hat" - Case &HBA - cmbVillian6Hat.SelectedItem = "Old-Time Movie Hat" - Case &HAB - cmbVillian6Hat.SelectedItem = "Outback Hat" - Case &HB7 - cmbVillian6Hat.SelectedItem = "Palm Hat" - Case &HB8 - cmbVillian6Hat.SelectedItem = "Paperboy Hat" - Case &HB9 - cmbVillian6Hat.SelectedItem = "Parrot Nest" - Case &HEC - cmbVillian6Hat.SelectedItem = "Planet Hat" - Case &HD2 - cmbVillian6Hat.SelectedItem = "Pork Pie Hat" - Case &HE4 - cmbVillian6Hat.SelectedItem = "Pyramid Hat" - Case &HBC - cmbVillian6Hat.SelectedItem = "Radar Hat" - Case &HD8 - cmbVillian6Hat.SelectedItem = "Rainbow Hat" - Case &HBE - cmbVillian6Hat.SelectedItem = "Rubber Glove Hat" - Case &HD1 - cmbVillian6Hat.SelectedItem = "Rude Boy Hat" - Case &HBF - cmbVillian6Hat.SelectedItem = "Rugby Hat" - Case &HCC - cmbVillian6Hat.SelectedItem = "Scooter Hat" - Case &HDD - cmbVillian6Hat.SelectedItem = "Shadow Ghost Hat" - Case &HC8 - cmbVillian6Hat.SelectedItem = "Sherpa Hat" - Case &HC2 - cmbVillian6Hat.SelectedItem = "Shower Cap" - Case &HEF - cmbVillian6Hat.SelectedItem = "Silver Arkeyan Helm" - Case &HF3 - cmbVillian6Hat.SelectedItem = "Skipper Hat" - Case &HC1 - cmbVillian6Hat.SelectedItem = "Sleuth Hat" - Case &HC5 - cmbVillian6Hat.SelectedItem = "Steampunk Hat" - Case &HE1 - cmbVillian6Hat.SelectedItem = "Storm Hat" - Case &HCE - cmbVillian6Hat.SelectedItem = "Synchronized Swimming Cap" - Case &HDF - cmbVillian6Hat.SelectedItem = "Tin Foil Hat" - Case &HE3 - cmbVillian6Hat.SelectedItem = "Toucan Hat" - Case &HC9 - cmbVillian6Hat.SelectedItem = "Trash Lid" - Case &HD0 - cmbVillian6Hat.SelectedItem = "Tribal Hat" - Case &HCA - cmbVillian6Hat.SelectedItem = "Turtle Hat" - Case &HCD - cmbVillian6Hat.SelectedItem = "Volcano Island Hat" - Case &HD7 - cmbVillian6Hat.SelectedItem = "Weather Vane Hat" - Case &HCF - cmbVillian6Hat.SelectedItem = "William Tell Hat" - Case Else - cmbVillian6Hat.SelectedItem = "(None)" - End Select - 'Load Name from Byte 0x1D4 - txtVillian6Name.Text = Load_Name(&H1D4) - End Sub - - Sub Load_Area_1() - 'Add 1C0 - 'This only gets applied to the first villian - 'Special Villan Variables are at the 0x240 Block - numVillianCount.Value = WholeFile(&H241) - If WholeFile(&H240) = &H1 And WholeFile(&H247) = WholeFile(&H240) Then - chkVillian1Variant.Checked = True - End If - - 'Villain One Data is 0x250 to 0x281 - 'Ignore 0x270 Block as it's MiFare - Dim Villian1_ID As Byte = WholeFile(&H250) - Select Case Villian1_ID - Case &H0 - cmbVillian1.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian1.SelectedItem = "Chompy Mage" - Exit Select - Case &H2 - cmbVillian1.SelectedItem = "Dr. Crankcase" - Exit Select - Case &H3 - cmbVillian1.SelectedItem = "Wolfgang" - Exit Select - Case &H4 - cmbVillian1.SelectedItem = "Chef Pepper Jack" - Exit Select - Case &H5 - cmbVillian1.SelectedItem = "Nightshade" - Exit Select - Case &H6 - cmbVillian1.SelectedItem = "Luminous" - Exit Select - Case &H7 - cmbVillian1.SelectedItem = "Golden Queen" - Exit Select - Case &H8 - cmbVillian1.SelectedItem = "Dreamcatcher" - Exit Select - Case &H9 - cmbVillian1.SelectedItem = "Gulper" - Exit Select - Case &HA - cmbVillian1.SelectedItem = "Kaos" - Exit Select - Case &HB - cmbVillian1.SelectedItem = "Cuckoo Clocker" - Exit Select - Case &HC - cmbVillian1.SelectedItem = "Buzzer Beak" - Exit Select - Case &HD - cmbVillian1.SelectedItem = "Shield Shredder" - Exit Select - Case &HE - cmbVillian1.SelectedItem = "Cross Crow" - Exit Select - Case &HF - cmbVillian1.SelectedItem = "Bone Chompy" - Exit Select - Case &H10 - cmbVillian1.SelectedItem = "Brawl and Chain" - Exit Select - Case &H11 - cmbVillian1.SelectedItem = "Bomb Shell" - Exit Select - Case &H12 - cmbVillian1.SelectedItem = "Masker Mind" - Exit Select - Case &H13 - cmbVillian1.SelectedItem = "Chill Bill" - Exit Select - Case &H14 - cmbVillian1.SelectedItem = "Sheep Creep" - Exit Select - Case &H15 - cmbVillian1.SelectedItem = "Shrednaught" - Exit Select - Case &H16 - cmbVillian1.SelectedItem = "Chomp Chest" - Exit Select - Case &H17 - cmbVillian1.SelectedItem = "Broccoli Guy" - Exit Select - Case &H18 - cmbVillian1.SelectedItem = "Rage Mage" - Exit Select - Case &H19 - cmbVillian1.SelectedItem = "Lob Goblin" - Exit Select - Case &H1A - cmbVillian1.SelectedItem = "Chompy" - Exit Select - Case &H1B - cmbVillian1.SelectedItem = "Fisticuffs" - Exit Select - Case &H1C - cmbVillian1.SelectedItem = "Trolling Thunder" - Exit Select - Case &H1D - cmbVillian1.SelectedItem = "Hood Sickle" - Exit Select - Case &H1E - cmbVillian1.SelectedItem = "Bruiser Cruiser" - Exit Select - Case &H1F - cmbVillian1.SelectedItem = "Brawlrus" - Exit Select - Case &H20 - cmbVillian1.SelectedItem = "Tussle Sprout" - Exit Select - Case &H21 - cmbVillian1.SelectedItem = "Krankenstein" - Exit Select - Case &H22 - cmbVillian1.SelectedItem = "Scrap Shooter" - Exit Select - Case &H23 - cmbVillian1.SelectedItem = "Slobber Trap" - Exit Select - Case &H24 - cmbVillian1.SelectedItem = "Grinnade" - Exit Select - Case &H25 - cmbVillian1.SelectedItem = "Bad Juju" - Exit Select - Case &H26 - cmbVillian1.SelectedItem = "Blaster-Tron" - Exit Select - Case &H27 - cmbVillian1.SelectedItem = "Tae Kwon Crow" - Exit Select - Case &H28 - cmbVillian1.SelectedItem = "Painyata" - Exit Select - Case &H29 - cmbVillian1.SelectedItem = "Smoke Scream" - Exit Select - Case &H2A - cmbVillian1.SelectedItem = "Eye Five" - Exit Select - Case &H2B - cmbVillian1.SelectedItem = "Grave Clobber" - Exit Select - Case &H2C - cmbVillian1.SelectedItem = "Threatpack" - Exit Select - Case &H2D - cmbVillian1.SelectedItem = "Mab Lobs" - Exit Select - Case &H2E - cmbVillian1.SelectedItem = "Eye Scream" - Exit Select - Case Else - cmbVillian1.SelectedItem = "(None)" - Exit Select - End Select - If WholeFile(&H251) = &H1 Then - chkVillian1Evolved.Checked = True - End If - Dim Villian1_Hat As Byte = WholeFile(&H252) - Select Case Villian1_Hat - Case &H0 - cmbVillian1Hat.SelectedItem = "(None)" - Case &HD3 - cmbVillian1Hat.SelectedItem = "Alarm Clock Hat" - Case &HDA - cmbVillian1Hat.SelectedItem = "Bat Hat" - Case &HD4 - cmbVillian1Hat.SelectedItem = "Batter Up Hat" - Case &H9B - cmbVillian1Hat.SelectedItem = "Beetle Hat" - Case &HED - cmbVillian1Hat.SelectedItem = "Bellhop Hat" - Case &HC3 - cmbVillian1Hat.SelectedItem = "Bobby" - Case &H9C - cmbVillian1Hat.SelectedItem = "Brain Hat" - Case &H9D - cmbVillian1Hat.SelectedItem = "Brainiac Hat" - Case &HEE - cmbVillian1Hat.SelectedItem = "Bronze Arkeyan Helm" - Case &H9E - cmbVillian1Hat.SelectedItem = "Bucket Hat" - Case &HEA - cmbVillian1Hat.SelectedItem = "Candle Hat" - Case &HE8 - cmbVillian1Hat.SelectedItem = "Candy Cane Hat" - Case &HF6 - cmbVillian1Hat.SelectedItem = "Carnival Hat" - Case &HA0 - cmbVillian1Hat.SelectedItem = "Ceiling Fan Hat" - Case &HBB - cmbVillian1Hat.SelectedItem = "Classic Pot Hat" - Case &HA3 - cmbVillian1Hat.SelectedItem = "Clown Bowler Hat" - Case &HA2 - cmbVillian1Hat.SelectedItem = "Clown Classic Hat" - Case &HF7 - cmbVillian1Hat.SelectedItem = "Coconut Hat" - Case &HA4 - cmbVillian1Hat.SelectedItem = "Colander Hat" - Case &HFC - cmbVillian1Hat.SelectedItem = "Core Of Light Hat" - Case &HA6 - cmbVillian1Hat.SelectedItem = "Cornucopia Hat" - Case &HBD - cmbVillian1Hat.SelectedItem = "Crazy Light Bulb Hat" - Case &HD6 - cmbVillian1Hat.SelectedItem = "Croissant Hat" - Case &HA7 - cmbVillian1Hat.SelectedItem = "Cubano Hat" - Case &HA8 - cmbVillian1Hat.SelectedItem = "Cycling Hat" - Case &HA9 - cmbVillian1Hat.SelectedItem = "Daisy Crown" - Case &HEB - cmbVillian1Hat.SelectedItem = "Dark Helm" - Case &H9F - cmbVillian1Hat.SelectedItem = "Desert Crown" - Case &HAA - cmbVillian1Hat.SelectedItem = "Dragon Skull" - Case &HE9 - cmbVillian1Hat.SelectedItem = "Eggshell Hat" - Case &HCB - cmbVillian1Hat.SelectedItem = "Extreme Viking Hat" - Case &HD9 - cmbVillian1Hat.SelectedItem = "Eye of Kaos Hat" - Case &HDC - cmbVillian1Hat.SelectedItem = "Firefly Jar" - Case &HC6 - cmbVillian1Hat.SelectedItem = "Flight Attendant Hat" - Case &HAE - cmbVillian1Hat.SelectedItem = "Garrison Hat" - Case &HAD - cmbVillian1Hat.SelectedItem = "Generalissimo" - Case &HE2 - cmbVillian1Hat.SelectedItem = "Gold Arkeyan Helm" - Case &HAF - cmbVillian1Hat.SelectedItem = "Gondolier Hat" - Case &HC4 - cmbVillian1Hat.SelectedItem = "Hedgehog Hat" - Case &HD5 - cmbVillian1Hat.SelectedItem = "Horns Be With You Hat" - Case &HB0 - cmbVillian1Hat.SelectedItem = "Hunting Hat" - Case &HA1 - cmbVillian1Hat.SelectedItem = "Imperial Hat" - Case &HB1 - cmbVillian1Hat.SelectedItem = "Juicer Hat" - Case &HA5 - cmbVillian1Hat.SelectedItem = "Kepi Hat" - Case &HB2 - cmbVillian1Hat.SelectedItem = "Kokoshnik" - Case &HDB - cmbVillian1Hat.SelectedItem = "Light Bulb Hat" - Case &HDE - cmbVillian1Hat.SelectedItem = "Lighthouse Beacon Hat" - Case &HAC - cmbVillian1Hat.SelectedItem = "Lil' Elf Hat" - Case &HB3 - cmbVillian1Hat.SelectedItem = "Medic Hat" - Case &HB4 - cmbVillian1Hat.SelectedItem = "Melon Hat" - Case &HC0 - cmbVillian1Hat.SelectedItem = "Metal Fin Hat" - Case &HE5 - cmbVillian1Hat.SelectedItem = "Miniature Skylands Hat" - Case &HFA - cmbVillian1Hat.SelectedItem = "Molekin Mountain Hat" - Case &HC7 - cmbVillian1Hat.SelectedItem = "Monday Hat" - Case &HB5 - cmbVillian1Hat.SelectedItem = "Mountie Hat" - Case &HE0 - cmbVillian1Hat.SelectedItem = "Night Cap" - Case &HB6 - cmbVillian1Hat.SelectedItem = "Nurse Hat" - Case &HFD - cmbVillian1Hat.SelectedItem = "Octavius Cloptimus Hat" - Case &HBA - cmbVillian1Hat.SelectedItem = "Old-Time Movie Hat" - Case &HAB - cmbVillian1Hat.SelectedItem = "Outback Hat" - Case &HB7 - cmbVillian1Hat.SelectedItem = "Palm Hat" - Case &HB8 - cmbVillian1Hat.SelectedItem = "Paperboy Hat" - Case &HB9 - cmbVillian1Hat.SelectedItem = "Parrot Nest" - Case &HEC - cmbVillian1Hat.SelectedItem = "Planet Hat" - Case &HD2 - cmbVillian1Hat.SelectedItem = "Pork Pie Hat" - Case &HE4 - cmbVillian1Hat.SelectedItem = "Pyramid Hat" - Case &HBC - cmbVillian1Hat.SelectedItem = "Radar Hat" - Case &HD8 - cmbVillian1Hat.SelectedItem = "Rainbow Hat" - Case &HBE - cmbVillian1Hat.SelectedItem = "Rubber Glove Hat" - Case &HD1 - cmbVillian1Hat.SelectedItem = "Rude Boy Hat" - Case &HBF - cmbVillian1Hat.SelectedItem = "Rugby Hat" - Case &HCC - cmbVillian1Hat.SelectedItem = "Scooter Hat" - Case &HDD - cmbVillian1Hat.SelectedItem = "Shadow Ghost Hat" - Case &HC8 - cmbVillian1Hat.SelectedItem = "Sherpa Hat" - Case &HC2 - cmbVillian1Hat.SelectedItem = "Shower Cap" - Case &HEF - cmbVillian1Hat.SelectedItem = "Silver Arkeyan Helm" - Case &HF3 - cmbVillian1Hat.SelectedItem = "Skipper Hat" - Case &HC1 - cmbVillian1Hat.SelectedItem = "Sleuth Hat" - Case &HC5 - cmbVillian1Hat.SelectedItem = "Steampunk Hat" - Case &HE1 - cmbVillian1Hat.SelectedItem = "Storm Hat" - Case &HCE - cmbVillian1Hat.SelectedItem = "Synchronized Swimming Cap" - Case &HDF - cmbVillian1Hat.SelectedItem = "Tin Foil Hat" - Case &HE3 - cmbVillian1Hat.SelectedItem = "Toucan Hat" - Case &HC9 - cmbVillian1Hat.SelectedItem = "Trash Lid" - Case &HD0 - cmbVillian1Hat.SelectedItem = "Tribal Hat" - Case &HCA - cmbVillian1Hat.SelectedItem = "Turtle Hat" - Case &HCD - cmbVillian1Hat.SelectedItem = "Volcano Island Hat" - Case &HD7 - cmbVillian1Hat.SelectedItem = "Weather Vane Hat" - Case &HCF - cmbVillian1Hat.SelectedItem = "William Tell Hat" - Case Else - cmbVillian1Hat.SelectedItem = "(None)" - End Select - Dim Villian1_Trinket As Byte = WholeFile(&H253) - Select Case Villian1_Trinket - Case &H0 - cmbVillian1Trinket.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian1Trinket.SelectedItem = "T-Bone's Lucky Tie" - Exit Select - Case &H2 - cmbVillian1Trinket.SelectedItem = "Batterson's Bubble" - Exit Select - Case &H3 - cmbVillian1Trinket.SelectedItem = "Dark Water Daisy" - Exit Select - Case &H4 - cmbVillian1Trinket.SelectedItem = "Vote For Cyclops" - Exit Select - Case &H5 - cmbVillian1Trinket.SelectedItem = "Ramses' Dragon Horn" - Exit Select - Case &H6 - cmbVillian1Trinket.SelectedItem = "Iris' Iris" - Exit Select - Case &H7 - cmbVillian1Trinket.SelectedItem = "Kuckoo Kazoo" - Exit Select - Case &H8 - cmbVillian1Trinket.SelectedItem = "Ramses' Rune" - Exit Select - Case &H9 - cmbVillian1Trinket.SelectedItem = "Ullysses Uniclops" - Exit Select - Case &HA - cmbVillian1Trinket.SelectedItem = "Billy Bison" - Exit Select - Case &HB - cmbVillian1Trinket.SelectedItem = "Stealth Elf's Gift" - Exit Select - Case &HC - cmbVillian1Trinket.SelectedItem = "Lizard Lilly" - Exit Select - Case &HD - cmbVillian1Trinket.SelectedItem = "Pirate Pinwheel" - Exit Select - Case &HE - cmbVillian1Trinket.SelectedItem = "Bubble Blower" - Exit Select - Case &HF - cmbVillian1Trinket.SelectedItem = "Medal of Heroism" - Exit Select - Case &H10 - cmbVillian1Trinket.SelectedItem = "Blobber's Medal of Courage" - Exit Select - Case &H11 - cmbVillian1Trinket.SelectedItem = "Medal of Valliance" - Exit Select - Case &H12 - cmbVillian1Trinket.SelectedItem = "Medal of Gallantry" - Exit Select - Case &H13 - cmbVillian1Trinket.SelectedItem = "Medal of Mettle" - Exit Select - Case &H14 - cmbVillian1Trinket.SelectedItem = "Winged Medal of Bravery" - Exit Select - Case &H15 - cmbVillian1Trinket.SelectedItem = "Seadog Seashell" - Exit Select - Case &H16 - cmbVillian1Trinket.SelectedItem = "Snuckles' Sunflower" - Exit Select - Case &H17 - cmbVillian1Trinket.SelectedItem = "Teddy Cyclops" - Exit Select - Case &H18 - cmbVillian1Trinket.SelectedItem = "Goo Factory Gear" - Exit Select - Case &H19 - cmbVillian1Trinket.SelectedItem = "Elemental Opal" - Exit Select - Case &H1A - cmbVillian1Trinket.SelectedItem = "Elemental Radiant" - Exit Select - Case &H1B - cmbVillian1Trinket.SelectedItem = "Elemental Diamond" - Exit Select - Case &H1C - cmbVillian1Trinket.SelectedItem = "Cyclops Spinner" - Exit Select - Case &H1D - cmbVillian1Trinket.SelectedItem = "Wiliken Windmill" - Exit Select - Case &H1E - cmbVillian1Trinket.SelectedItem = "Time Town Ticker" - Exit Select - Case &H1F - cmbVillian1Trinket.SelectedItem = "Big Bow of Doom" - Exit Select - Case &H20 - cmbVillian1Trinket.SelectedItem = "Mabu's Medallion" - Exit Select - Case &H21 - cmbVillian1Trinket.SelectedItem = "Spyro's Shield" - Exit Select - Case Else - cmbVillian1Trinket.SelectedItem = "(None)" - Exit Select - End Select - 'Load Name from Byte 0x254 - txtVillian1Name.Text = Load_Name(&H254) - - '+&H40 - 'Villian Two Data is 0x290 to 0x2C1 - 'Ignore 0x2B0 Block as it's MiFare - Dim Villian2_ID As Byte = WholeFile(&H290) - Select Case Villian2_ID - Case &H0 - cmbVillian2.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian2.SelectedItem = "Chompy Mage" - Exit Select - Case &H2 - cmbVillian2.SelectedItem = "Dr. Crankcase" - Exit Select - Case &H3 - cmbVillian2.SelectedItem = "Wolfgang" - Exit Select - Case &H4 - cmbVillian2.SelectedItem = "Chef Pepper Jack" - Exit Select - Case &H5 - cmbVillian2.SelectedItem = "Nightshade" - Exit Select - Case &H6 - cmbVillian2.SelectedItem = "Luminous" - Exit Select - Case &H7 - cmbVillian2.SelectedItem = "Golden Queen" - Exit Select - Case &H8 - cmbVillian2.SelectedItem = "Dreamcatcher" - Exit Select - Case &H9 - cmbVillian2.SelectedItem = "Gulper" - Exit Select - Case &HA - cmbVillian2.SelectedItem = "Kaos" - Exit Select - Case &HB - cmbVillian2.SelectedItem = "Cuckoo Clocker" - Exit Select - Case &HC - cmbVillian2.SelectedItem = "Buzzer Beak" - Exit Select - Case &HD - cmbVillian2.SelectedItem = "Shield Shredder" - Exit Select - Case &HE - cmbVillian2.SelectedItem = "Cross Crow" - Exit Select - Case &HF - cmbVillian2.SelectedItem = "Bone Chompy" - Exit Select - Case &H10 - cmbVillian2.SelectedItem = "Brawl and Chain" - Exit Select - Case &H11 - cmbVillian2.SelectedItem = "Bomb Shell" - Exit Select - Case &H12 - cmbVillian2.SelectedItem = "Masker Mind" - Exit Select - Case &H13 - cmbVillian2.SelectedItem = "Chill Bill" - Exit Select - Case &H14 - cmbVillian2.SelectedItem = "Sheep Creep" - Exit Select - Case &H15 - cmbVillian2.SelectedItem = "Shrednaught" - Exit Select - Case &H16 - cmbVillian2.SelectedItem = "Chomp Chest" - Exit Select - Case &H17 - cmbVillian2.SelectedItem = "Broccoli Guy" - Exit Select - Case &H18 - cmbVillian2.SelectedItem = "Rage Mage" - Exit Select - Case &H19 - cmbVillian2.SelectedItem = "Lob Goblin" - Exit Select - Case &H1A - cmbVillian2.SelectedItem = "Chompy" - Exit Select - Case &H1B - cmbVillian2.SelectedItem = "Fisticuffs" - Exit Select - Case &H1C - cmbVillian2.SelectedItem = "Trolling Thunder" - Exit Select - Case &H1D - cmbVillian2.SelectedItem = "Hood Sickle" - Exit Select - Case &H1E - cmbVillian2.SelectedItem = "Bruiser Cruiser" - Exit Select - Case &H1F - cmbVillian2.SelectedItem = "Brawlrus" - Exit Select - Case &H20 - cmbVillian2.SelectedItem = "Tussle Sprout" - Exit Select - Case &H21 - cmbVillian2.SelectedItem = "Krankenstein" - Exit Select - Case &H22 - cmbVillian2.SelectedItem = "Scrap Shooter" - Exit Select - Case &H23 - cmbVillian2.SelectedItem = "Slobber Trap" - Exit Select - Case &H24 - cmbVillian2.SelectedItem = "Grinnade" - Exit Select - Case &H25 - cmbVillian2.SelectedItem = "Bad Juju" - Exit Select - Case &H26 - cmbVillian2.SelectedItem = "Blaster-Tron" - Exit Select - Case &H27 - cmbVillian2.SelectedItem = "Tae Kwon Crow" - Exit Select - Case &H28 - cmbVillian2.SelectedItem = "Painyata" - Exit Select - Case &H29 - cmbVillian2.SelectedItem = "Smoke Scream" - Exit Select - Case &H2A - cmbVillian2.SelectedItem = "Eye Five" - Exit Select - Case &H2B - cmbVillian2.SelectedItem = "Grave Clobber" - Exit Select - Case &H2C - cmbVillian2.SelectedItem = "Threatpack" - Exit Select - Case &H2D - cmbVillian2.SelectedItem = "Mab Lobs" - Exit Select - Case &H2E - cmbVillian2.SelectedItem = "Eye Scream" - Exit Select - Case Else - cmbVillian2.SelectedItem = "(None)" - Exit Select - End Select - If WholeFile(&H291) = &H1 Then - chkVillian2Evolved.Checked = True - End If - Dim Villian2_Hat As Byte = WholeFile(&H292) - Select Case Villian2_Hat - Case &H0 - cmbVillian2Hat.SelectedItem = "(None)" - Case &HD3 - cmbVillian2Hat.SelectedItem = "Alarm Clock Hat" - Case &HDA - cmbVillian2Hat.SelectedItem = "Bat Hat" - Case &HD4 - cmbVillian2Hat.SelectedItem = "Batter Up Hat" - Case &H9B - cmbVillian2Hat.SelectedItem = "Beetle Hat" - Case &HED - cmbVillian2Hat.SelectedItem = "Bellhop Hat" - Case &HC3 - cmbVillian2Hat.SelectedItem = "Bobby" - Case &H9C - cmbVillian2Hat.SelectedItem = "Brain Hat" - Case &H9D - cmbVillian2Hat.SelectedItem = "Brainiac Hat" - Case &HEE - cmbVillian2Hat.SelectedItem = "Bronze Arkeyan Helm" - Case &H9E - cmbVillian2Hat.SelectedItem = "Bucket Hat" - Case &HEA - cmbVillian2Hat.SelectedItem = "Candle Hat" - Case &HE8 - cmbVillian2Hat.SelectedItem = "Candy Cane Hat" - Case &HF6 - cmbVillian2Hat.SelectedItem = "Carnival Hat" - Case &HA0 - cmbVillian2Hat.SelectedItem = "Ceiling Fan Hat" - Case &HBB - cmbVillian2Hat.SelectedItem = "Classic Pot Hat" - Case &HA3 - cmbVillian2Hat.SelectedItem = "Clown Bowler Hat" - Case &HA2 - cmbVillian2Hat.SelectedItem = "Clown Classic Hat" - Case &HF7 - cmbVillian2Hat.SelectedItem = "Coconut Hat" - Case &HA4 - cmbVillian2Hat.SelectedItem = "Colander Hat" - Case &HFC - cmbVillian2Hat.SelectedItem = "Core Of Light Hat" - Case &HA6 - cmbVillian2Hat.SelectedItem = "Cornucopia Hat" - Case &HBD - cmbVillian2Hat.SelectedItem = "Crazy Light Bulb Hat" - Case &HD6 - cmbVillian2Hat.SelectedItem = "Croissant Hat" - Case &HA7 - cmbVillian2Hat.SelectedItem = "Cubano Hat" - Case &HA8 - cmbVillian2Hat.SelectedItem = "Cycling Hat" - Case &HA9 - cmbVillian2Hat.SelectedItem = "Daisy Crown" - Case &HEB - cmbVillian2Hat.SelectedItem = "Dark Helm" - Case &H9F - cmbVillian2Hat.SelectedItem = "Desert Crown" - Case &HAA - cmbVillian2Hat.SelectedItem = "Dragon Skull" - Case &HE9 - cmbVillian2Hat.SelectedItem = "Eggshell Hat" - Case &HCB - cmbVillian2Hat.SelectedItem = "Extreme Viking Hat" - Case &HD9 - cmbVillian2Hat.SelectedItem = "Eye of Kaos Hat" - Case &HDC - cmbVillian2Hat.SelectedItem = "Firefly Jar" - Case &HC6 - cmbVillian2Hat.SelectedItem = "Flight Attendant Hat" - Case &HAE - cmbVillian2Hat.SelectedItem = "Garrison Hat" - Case &HAD - cmbVillian2Hat.SelectedItem = "Generalissimo" - Case &HE2 - cmbVillian2Hat.SelectedItem = "Gold Arkeyan Helm" - Case &HAF - cmbVillian2Hat.SelectedItem = "Gondolier Hat" - Case &HC4 - cmbVillian2Hat.SelectedItem = "Hedgehog Hat" - Case &HD5 - cmbVillian2Hat.SelectedItem = "Horns Be With You Hat" - Case &HB0 - cmbVillian2Hat.SelectedItem = "Hunting Hat" - Case &HA1 - cmbVillian2Hat.SelectedItem = "Imperial Hat" - Case &HB1 - cmbVillian2Hat.SelectedItem = "Juicer Hat" - Case &HA5 - cmbVillian2Hat.SelectedItem = "Kepi Hat" - Case &HB2 - cmbVillian2Hat.SelectedItem = "Kokoshnik" - Case &HDB - cmbVillian2Hat.SelectedItem = "Light Bulb Hat" - Case &HDE - cmbVillian2Hat.SelectedItem = "Lighthouse Beacon Hat" - Case &HAC - cmbVillian2Hat.SelectedItem = "Lil' Elf Hat" - Case &HB3 - cmbVillian2Hat.SelectedItem = "Medic Hat" - Case &HB4 - cmbVillian2Hat.SelectedItem = "Melon Hat" - Case &HC0 - cmbVillian2Hat.SelectedItem = "Metal Fin Hat" - Case &HE5 - cmbVillian2Hat.SelectedItem = "Miniature Skylands Hat" - Case &HFA - cmbVillian2Hat.SelectedItem = "Molekin Mountain Hat" - Case &HC7 - cmbVillian2Hat.SelectedItem = "Monday Hat" - Case &HB5 - cmbVillian2Hat.SelectedItem = "Mountie Hat" - Case &HE0 - cmbVillian2Hat.SelectedItem = "Night Cap" - Case &HB6 - cmbVillian2Hat.SelectedItem = "Nurse Hat" - Case &HFD - cmbVillian2Hat.SelectedItem = "Octavius Cloptimus Hat" - Case &HBA - cmbVillian2Hat.SelectedItem = "Old-Time Movie Hat" - Case &HAB - cmbVillian2Hat.SelectedItem = "Outback Hat" - Case &HB7 - cmbVillian2Hat.SelectedItem = "Palm Hat" - Case &HB8 - cmbVillian2Hat.SelectedItem = "Paperboy Hat" - Case &HB9 - cmbVillian2Hat.SelectedItem = "Parrot Nest" - Case &HEC - cmbVillian2Hat.SelectedItem = "Planet Hat" - Case &HD2 - cmbVillian2Hat.SelectedItem = "Pork Pie Hat" - Case &HE4 - cmbVillian2Hat.SelectedItem = "Pyramid Hat" - Case &HBC - cmbVillian2Hat.SelectedItem = "Radar Hat" - Case &HD8 - cmbVillian2Hat.SelectedItem = "Rainbow Hat" - Case &HBE - cmbVillian2Hat.SelectedItem = "Rubber Glove Hat" - Case &HD1 - cmbVillian2Hat.SelectedItem = "Rude Boy Hat" - Case &HBF - cmbVillian2Hat.SelectedItem = "Rugby Hat" - Case &HCC - cmbVillian2Hat.SelectedItem = "Scooter Hat" - Case &HDD - cmbVillian2Hat.SelectedItem = "Shadow Ghost Hat" - Case &HC8 - cmbVillian2Hat.SelectedItem = "Sherpa Hat" - Case &HC2 - cmbVillian2Hat.SelectedItem = "Shower Cap" - Case &HEF - cmbVillian2Hat.SelectedItem = "Silver Arkeyan Helm" - Case &HF3 - cmbVillian2Hat.SelectedItem = "Skipper Hat" - Case &HC1 - cmbVillian2Hat.SelectedItem = "Sleuth Hat" - Case &HC5 - cmbVillian2Hat.SelectedItem = "Steampunk Hat" - Case &HE1 - cmbVillian2Hat.SelectedItem = "Storm Hat" - Case &HCE - cmbVillian2Hat.SelectedItem = "Synchronized Swimming Cap" - Case &HDF - cmbVillian2Hat.SelectedItem = "Tin Foil Hat" - Case &HE3 - cmbVillian2Hat.SelectedItem = "Toucan Hat" - Case &HC9 - cmbVillian2Hat.SelectedItem = "Trash Lid" - Case &HD0 - cmbVillian2Hat.SelectedItem = "Tribal Hat" - Case &HCA - cmbVillian2Hat.SelectedItem = "Turtle Hat" - Case &HCD - cmbVillian2Hat.SelectedItem = "Volcano Island Hat" - Case &HD7 - cmbVillian2Hat.SelectedItem = "Weather Vane Hat" - Case &HCF - cmbVillian2Hat.SelectedItem = "William Tell Hat" - Case Else - cmbVillian2Hat.SelectedItem = "(None)" - End Select - Dim Villian2_Trinket As Byte = WholeFile(&H293) - Select Case Villian2_Trinket - Case &H0 - cmbVillian2Trinket.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian2Trinket.SelectedItem = "T-Bone's Lucky Tie" - Exit Select - Case &H2 - cmbVillian2Trinket.SelectedItem = "Batterson's Bubble" - Exit Select - Case &H3 - cmbVillian2Trinket.SelectedItem = "Dark Water Daisy" - Exit Select - Case &H4 - cmbVillian2Trinket.SelectedItem = "Vote For Cyclops" - Exit Select - Case &H5 - cmbVillian2Trinket.SelectedItem = "Ramses' Dragon Horn" - Exit Select - Case &H6 - cmbVillian2Trinket.SelectedItem = "Iris' Iris" - Exit Select - Case &H7 - cmbVillian2Trinket.SelectedItem = "Kuckoo Kazoo" - Exit Select - Case &H8 - cmbVillian2Trinket.SelectedItem = "Ramses' Rune" - Exit Select - Case &H9 - cmbVillian2Trinket.SelectedItem = "Ullysses Uniclops" - Exit Select - Case &HA - cmbVillian2Trinket.SelectedItem = "Billy Bison" - Exit Select - Case &HB - cmbVillian2Trinket.SelectedItem = "Stealth Elf's Gift" - Exit Select - Case &HC - cmbVillian2Trinket.SelectedItem = "Lizard Lilly" - Exit Select - Case &HD - cmbVillian2Trinket.SelectedItem = "Pirate Pinwheel" - Exit Select - Case &HE - cmbVillian2Trinket.SelectedItem = "Bubble Blower" - Exit Select - Case &HF - cmbVillian2Trinket.SelectedItem = "Medal of Heroism" - Exit Select - Case &H10 - cmbVillian2Trinket.SelectedItem = "Blobber's Medal of Courage" - Exit Select - Case &H11 - cmbVillian2Trinket.SelectedItem = "Medal of Valliance" - Exit Select - Case &H12 - cmbVillian2Trinket.SelectedItem = "Medal of Gallantry" - Exit Select - Case &H13 - cmbVillian2Trinket.SelectedItem = "Medal of Mettle" - Exit Select - Case &H14 - cmbVillian2Trinket.SelectedItem = "Winged Medal of Bravery" - Exit Select - Case &H15 - cmbVillian2Trinket.SelectedItem = "Seadog Seashell" - Exit Select - Case &H16 - cmbVillian2Trinket.SelectedItem = "Snuckles' Sunflower" - Exit Select - Case &H17 - cmbVillian2Trinket.SelectedItem = "Teddy Cyclops" - Exit Select - Case &H18 - cmbVillian2Trinket.SelectedItem = "Goo Factory Gear" - Exit Select - Case &H19 - cmbVillian2Trinket.SelectedItem = "Elemental Opal" - Exit Select - Case &H1A - cmbVillian2Trinket.SelectedItem = "Elemental Radiant" - Exit Select - Case &H1B - cmbVillian2Trinket.SelectedItem = "Elemental Diamond" - Exit Select - Case &H1C - cmbVillian2Trinket.SelectedItem = "Cyclops Spinner" - Exit Select - Case &H1D - cmbVillian2Trinket.SelectedItem = "Wiliken Windmill" - Exit Select - Case &H1E - cmbVillian2Trinket.SelectedItem = "Time Town Ticker" - Exit Select - Case &H1F - cmbVillian2Trinket.SelectedItem = "Big Bow of Doom" - Exit Select - Case &H20 - cmbVillian2Trinket.SelectedItem = "Mabu's Medallion" - Exit Select - Case &H21 - cmbVillian2Trinket.SelectedItem = "Spyro's Shield" - Exit Select - Case Else - cmbVillian2Trinket.SelectedItem = "(None)" - Exit Select - End Select - 'Load Name from Byte 0x294 - txtVillian1Name.Text = Load_Name(&H294) - - '+&H40 - 'Villian Three Data is 0x2D0 to 0x301 - 'Ignore 0X2F0 Block as it's MiFare - Dim Villian3_ID As Byte = WholeFile(&H2D0) - Select Case Villian3_ID - Case &H0 - cmbVillian3.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian3.SelectedItem = "Chompy Mage" - Exit Select - Case &H2 - cmbVillian3.SelectedItem = "Dr. Crankcase" - Exit Select - Case &H3 - cmbVillian3.SelectedItem = "Wolfgang" - Exit Select - Case &H4 - cmbVillian3.SelectedItem = "Chef Pepper Jack" - Exit Select - Case &H5 - cmbVillian3.SelectedItem = "Nightshade" - Exit Select - Case &H6 - cmbVillian3.SelectedItem = "Luminous" - Exit Select - Case &H7 - cmbVillian3.SelectedItem = "Golden Queen" - Exit Select - Case &H8 - cmbVillian3.SelectedItem = "Dreamcatcher" - Exit Select - Case &H9 - cmbVillian3.SelectedItem = "Gulper" - Exit Select - Case &HA - cmbVillian3.SelectedItem = "Kaos" - Exit Select - Case &HB - cmbVillian3.SelectedItem = "Cuckoo Clocker" - Exit Select - Case &HC - cmbVillian3.SelectedItem = "Buzzer Beak" - Exit Select - Case &HD - cmbVillian3.SelectedItem = "Shield Shredder" - Exit Select - Case &HE - cmbVillian3.SelectedItem = "Cross Crow" - Exit Select - Case &HF - cmbVillian3.SelectedItem = "Bone Chompy" - Exit Select - Case &H10 - cmbVillian3.SelectedItem = "Brawl and Chain" - Exit Select - Case &H11 - cmbVillian3.SelectedItem = "Bomb Shell" - Exit Select - Case &H12 - cmbVillian3.SelectedItem = "Masker Mind" - Exit Select - Case &H13 - cmbVillian3.SelectedItem = "Chill Bill" - Exit Select - Case &H14 - cmbVillian3.SelectedItem = "Sheep Creep" - Exit Select - Case &H15 - cmbVillian3.SelectedItem = "Shrednaught" - Exit Select - Case &H16 - cmbVillian3.SelectedItem = "Chomp Chest" - Exit Select - Case &H17 - cmbVillian3.SelectedItem = "Broccoli Guy" - Exit Select - Case &H18 - cmbVillian3.SelectedItem = "Rage Mage" - Exit Select - Case &H19 - cmbVillian3.SelectedItem = "Lob Goblin" - Exit Select - Case &H1A - cmbVillian3.SelectedItem = "Chompy" - Exit Select - Case &H1B - cmbVillian3.SelectedItem = "Fisticuffs" - Exit Select - Case &H1C - cmbVillian3.SelectedItem = "Trolling Thunder" - Exit Select - Case &H1D - cmbVillian3.SelectedItem = "Hood Sickle" - Exit Select - Case &H1E - cmbVillian3.SelectedItem = "Bruiser Cruiser" - Exit Select - Case &H1F - cmbVillian3.SelectedItem = "Brawlrus" - Exit Select - Case &H20 - cmbVillian3.SelectedItem = "Tussle Sprout" - Exit Select - Case &H21 - cmbVillian3.SelectedItem = "Krankenstein" - Exit Select - Case &H22 - cmbVillian3.SelectedItem = "Scrap Shooter" - Exit Select - Case &H23 - cmbVillian3.SelectedItem = "Slobber Trap" - Exit Select - Case &H24 - cmbVillian3.SelectedItem = "Grinnade" - Exit Select - Case &H25 - cmbVillian3.SelectedItem = "Bad Juju" - Exit Select - Case &H26 - cmbVillian3.SelectedItem = "Blaster-Tron" - Exit Select - Case &H27 - cmbVillian3.SelectedItem = "Tae Kwon Crow" - Exit Select - Case &H28 - cmbVillian3.SelectedItem = "Painyata" - Exit Select - Case &H29 - cmbVillian3.SelectedItem = "Smoke Scream" - Exit Select - Case &H2A - cmbVillian3.SelectedItem = "Eye Five" - Exit Select - Case &H2B - cmbVillian3.SelectedItem = "Grave Clobber" - Exit Select - Case &H2C - cmbVillian3.SelectedItem = "Threatpack" - Exit Select - Case &H2D - cmbVillian3.SelectedItem = "Mab Lobs" - Exit Select - Case &H2E - cmbVillian3.SelectedItem = "Eye Scream" - Exit Select - Case Else - cmbVillian3.SelectedItem = "(None)" - Exit Select - End Select - If WholeFile(&H2D1) = &H1 Then - chkVillian3Evolved.Checked = True - End If - Dim Villian3_Hat As Byte = WholeFile(&H2D2) - Select Case Villian3_Hat - Case &H0 - cmbVillian3Hat.SelectedItem = "(None)" - Case &HD3 - cmbVillian3Hat.SelectedItem = "Alarm Clock Hat" - Case &HDA - cmbVillian3Hat.SelectedItem = "Bat Hat" - Case &HD4 - cmbVillian3Hat.SelectedItem = "Batter Up Hat" - Case &H9B - cmbVillian3Hat.SelectedItem = "Beetle Hat" - Case &HED - cmbVillian3Hat.SelectedItem = "Bellhop Hat" - Case &HC3 - cmbVillian3Hat.SelectedItem = "Bobby" - Case &H9C - cmbVillian3Hat.SelectedItem = "Brain Hat" - Case &H9D - cmbVillian3Hat.SelectedItem = "Brainiac Hat" - Case &HEE - cmbVillian3Hat.SelectedItem = "Bronze Arkeyan Helm" - Case &H9E - cmbVillian3Hat.SelectedItem = "Bucket Hat" - Case &HEA - cmbVillian3Hat.SelectedItem = "Candle Hat" - Case &HE8 - cmbVillian3Hat.SelectedItem = "Candy Cane Hat" - Case &HF6 - cmbVillian3Hat.SelectedItem = "Carnival Hat" - Case &HA0 - cmbVillian3Hat.SelectedItem = "Ceiling Fan Hat" - Case &HBB - cmbVillian3Hat.SelectedItem = "Classic Pot Hat" - Case &HA3 - cmbVillian3Hat.SelectedItem = "Clown Bowler Hat" - Case &HA2 - cmbVillian3Hat.SelectedItem = "Clown Classic Hat" - Case &HF7 - cmbVillian3Hat.SelectedItem = "Coconut Hat" - Case &HA4 - cmbVillian3Hat.SelectedItem = "Colander Hat" - Case &HFC - cmbVillian3Hat.SelectedItem = "Core Of Light Hat" - Case &HA6 - cmbVillian3Hat.SelectedItem = "Cornucopia Hat" - Case &HBD - cmbVillian3Hat.SelectedItem = "Crazy Light Bulb Hat" - Case &HD6 - cmbVillian3Hat.SelectedItem = "Croissant Hat" - Case &HA7 - cmbVillian3Hat.SelectedItem = "Cubano Hat" - Case &HA8 - cmbVillian3Hat.SelectedItem = "Cycling Hat" - Case &HA9 - cmbVillian3Hat.SelectedItem = "Daisy Crown" - Case &HEB - cmbVillian3Hat.SelectedItem = "Dark Helm" - Case &H9F - cmbVillian3Hat.SelectedItem = "Desert Crown" - Case &HAA - cmbVillian3Hat.SelectedItem = "Dragon Skull" - Case &HE9 - cmbVillian3Hat.SelectedItem = "Eggshell Hat" - Case &HCB - cmbVillian3Hat.SelectedItem = "Extreme Viking Hat" - Case &HD9 - cmbVillian3Hat.SelectedItem = "Eye of Kaos Hat" - Case &HDC - cmbVillian3Hat.SelectedItem = "Firefly Jar" - Case &HC6 - cmbVillian3Hat.SelectedItem = "Flight Attendant Hat" - Case &HAE - cmbVillian3Hat.SelectedItem = "Garrison Hat" - Case &HAD - cmbVillian3Hat.SelectedItem = "Generalissimo" - Case &HE2 - cmbVillian3Hat.SelectedItem = "Gold Arkeyan Helm" - Case &HAF - cmbVillian3Hat.SelectedItem = "Gondolier Hat" - Case &HC4 - cmbVillian3Hat.SelectedItem = "Hedgehog Hat" - Case &HD5 - cmbVillian3Hat.SelectedItem = "Horns Be With You Hat" - Case &HB0 - cmbVillian3Hat.SelectedItem = "Hunting Hat" - Case &HA1 - cmbVillian3Hat.SelectedItem = "Imperial Hat" - Case &HB1 - cmbVillian3Hat.SelectedItem = "Juicer Hat" - Case &HA5 - cmbVillian3Hat.SelectedItem = "Kepi Hat" - Case &HB2 - cmbVillian3Hat.SelectedItem = "Kokoshnik" - Case &HDB - cmbVillian3Hat.SelectedItem = "Light Bulb Hat" - Case &HDE - cmbVillian3Hat.SelectedItem = "Lighthouse Beacon Hat" - Case &HAC - cmbVillian3Hat.SelectedItem = "Lil' Elf Hat" - Case &HB3 - cmbVillian3Hat.SelectedItem = "Medic Hat" - Case &HB4 - cmbVillian3Hat.SelectedItem = "Melon Hat" - Case &HC0 - cmbVillian3Hat.SelectedItem = "Metal Fin Hat" - Case &HE5 - cmbVillian3Hat.SelectedItem = "Miniature Skylands Hat" - Case &HFA - cmbVillian3Hat.SelectedItem = "Molekin Mountain Hat" - Case &HC7 - cmbVillian3Hat.SelectedItem = "Monday Hat" - Case &HB5 - cmbVillian3Hat.SelectedItem = "Mountie Hat" - Case &HE0 - cmbVillian3Hat.SelectedItem = "Night Cap" - Case &HB6 - cmbVillian3Hat.SelectedItem = "Nurse Hat" - Case &HFD - cmbVillian3Hat.SelectedItem = "Octavius Cloptimus Hat" - Case &HBA - cmbVillian3Hat.SelectedItem = "Old-Time Movie Hat" - Case &HAB - cmbVillian3Hat.SelectedItem = "Outback Hat" - Case &HB7 - cmbVillian3Hat.SelectedItem = "Palm Hat" - Case &HB8 - cmbVillian3Hat.SelectedItem = "Paperboy Hat" - Case &HB9 - cmbVillian3Hat.SelectedItem = "Parrot Nest" - Case &HEC - cmbVillian3Hat.SelectedItem = "Planet Hat" - Case &HD2 - cmbVillian3Hat.SelectedItem = "Pork Pie Hat" - Case &HE4 - cmbVillian3Hat.SelectedItem = "Pyramid Hat" - Case &HBC - cmbVillian3Hat.SelectedItem = "Radar Hat" - Case &HD8 - cmbVillian3Hat.SelectedItem = "Rainbow Hat" - Case &HBE - cmbVillian3Hat.SelectedItem = "Rubber Glove Hat" - Case &HD1 - cmbVillian3Hat.SelectedItem = "Rude Boy Hat" - Case &HBF - cmbVillian3Hat.SelectedItem = "Rugby Hat" - Case &HCC - cmbVillian3Hat.SelectedItem = "Scooter Hat" - Case &HDD - cmbVillian3Hat.SelectedItem = "Shadow Ghost Hat" - Case &HC8 - cmbVillian3Hat.SelectedItem = "Sherpa Hat" - Case &HC2 - cmbVillian3Hat.SelectedItem = "Shower Cap" - Case &HEF - cmbVillian3Hat.SelectedItem = "Silver Arkeyan Helm" - Case &HF3 - cmbVillian3Hat.SelectedItem = "Skipper Hat" - Case &HC1 - cmbVillian3Hat.SelectedItem = "Sleuth Hat" - Case &HC5 - cmbVillian3Hat.SelectedItem = "Steampunk Hat" - Case &HE1 - cmbVillian3Hat.SelectedItem = "Storm Hat" - Case &HCE - cmbVillian3Hat.SelectedItem = "Synchronized Swimming Cap" - Case &HDF - cmbVillian3Hat.SelectedItem = "Tin Foil Hat" - Case &HE3 - cmbVillian3Hat.SelectedItem = "Toucan Hat" - Case &HC9 - cmbVillian3Hat.SelectedItem = "Trash Lid" - Case &HD0 - cmbVillian3Hat.SelectedItem = "Tribal Hat" - Case &HCA - cmbVillian3Hat.SelectedItem = "Turtle Hat" - Case &HCD - cmbVillian3Hat.SelectedItem = "Volcano Island Hat" - Case &HD7 - cmbVillian3Hat.SelectedItem = "Weather Vane Hat" - Case &HCF - cmbVillian3Hat.SelectedItem = "William Tell Hat" - Case Else - cmbVillian3Hat.SelectedItem = "(None)" - End Select - Dim Villian3_Trinket As Byte = WholeFile(&H2D3) - Select Case Villian3_Trinket - Case &H0 - cmbVillian3Trinket.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian3Trinket.SelectedItem = "T-Bone's Lucky Tie" - Exit Select - Case &H2 - cmbVillian3Trinket.SelectedItem = "Batterson's Bubble" - Exit Select - Case &H3 - cmbVillian3Trinket.SelectedItem = "Dark Water Daisy" - Exit Select - Case &H4 - cmbVillian3Trinket.SelectedItem = "Vote For Cyclops" - Exit Select - Case &H5 - cmbVillian3Trinket.SelectedItem = "Ramses' Dragon Horn" - Exit Select - Case &H6 - cmbVillian3Trinket.SelectedItem = "Iris' Iris" - Exit Select - Case &H7 - cmbVillian3Trinket.SelectedItem = "Kuckoo Kazoo" - Exit Select - Case &H8 - cmbVillian3Trinket.SelectedItem = "Ramses' Rune" - Exit Select - Case &H9 - cmbVillian3Trinket.SelectedItem = "Ullysses Uniclops" - Exit Select - Case &HA - cmbVillian3Trinket.SelectedItem = "Billy Bison" - Exit Select - Case &HB - cmbVillian3Trinket.SelectedItem = "Stealth Elf's Gift" - Exit Select - Case &HC - cmbVillian3Trinket.SelectedItem = "Lizard Lilly" - Exit Select - Case &HD - cmbVillian3Trinket.SelectedItem = "Pirate Pinwheel" - Exit Select - Case &HE - cmbVillian3Trinket.SelectedItem = "Bubble Blower" - Exit Select - Case &HF - cmbVillian3Trinket.SelectedItem = "Medal of Heroism" - Exit Select - Case &H10 - cmbVillian3Trinket.SelectedItem = "Blobber's Medal of Courage" - Exit Select - Case &H11 - cmbVillian3Trinket.SelectedItem = "Medal of Valliance" - Exit Select - Case &H12 - cmbVillian3Trinket.SelectedItem = "Medal of Gallantry" - Exit Select - Case &H13 - cmbVillian3Trinket.SelectedItem = "Medal of Mettle" - Exit Select - Case &H14 - cmbVillian3Trinket.SelectedItem = "Winged Medal of Bravery" - Exit Select - Case &H15 - cmbVillian3Trinket.SelectedItem = "Seadog Seashell" - Exit Select - Case &H16 - cmbVillian3Trinket.SelectedItem = "Snuckles' Sunflower" - Exit Select - Case &H17 - cmbVillian3Trinket.SelectedItem = "Teddy Cyclops" - Exit Select - Case &H18 - cmbVillian3Trinket.SelectedItem = "Goo Factory Gear" - Exit Select - Case &H19 - cmbVillian3Trinket.SelectedItem = "Elemental Opal" - Exit Select - Case &H1A - cmbVillian3Trinket.SelectedItem = "Elemental Radiant" - Exit Select - Case &H1B - cmbVillian3Trinket.SelectedItem = "Elemental Diamond" - Exit Select - Case &H1C - cmbVillian3Trinket.SelectedItem = "Cyclops Spinner" - Exit Select - Case &H1D - cmbVillian3Trinket.SelectedItem = "Wiliken Windmill" - Exit Select - Case &H1E - cmbVillian3Trinket.SelectedItem = "Time Town Ticker" - Exit Select - Case &H1F - cmbVillian3Trinket.SelectedItem = "Big Bow of Doom" - Exit Select - Case &H20 - cmbVillian3Trinket.SelectedItem = "Mabu's Medallion" - Exit Select - Case &H21 - cmbVillian3Trinket.SelectedItem = "Spyro's Shield" - Exit Select - Case Else - cmbVillian3Trinket.SelectedItem = "(None)" - Exit Select - End Select - 'Load Name from Byte 0x2D4 - txtVillian1Name.Text = Load_Name(&H2D4) - - '+&H40 - 'Villian Four Data is 0x310 to 0x341 - 'Ignore 0x330 Block as it's MiFare - Dim Villian4_ID As Byte = WholeFile(&H310) - Select Case Villian4_ID - Case &H0 - cmbVillian4.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian4.SelectedItem = "Chompy Mage" - Exit Select - Case &H2 - cmbVillian4.SelectedItem = "Dr. Crankcase" - Exit Select - Case &H3 - cmbVillian4.SelectedItem = "Wolfgang" - Exit Select - Case &H4 - cmbVillian4.SelectedItem = "Chef Pepper Jack" - Exit Select - Case &H5 - cmbVillian4.SelectedItem = "Nightshade" - Exit Select - Case &H6 - cmbVillian4.SelectedItem = "Luminous" - Exit Select - Case &H7 - cmbVillian4.SelectedItem = "Golden Queen" - Exit Select - Case &H8 - cmbVillian4.SelectedItem = "Dreamcatcher" - Exit Select - Case &H9 - cmbVillian4.SelectedItem = "Gulper" - Exit Select - Case &HA - cmbVillian4.SelectedItem = "Kaos" - Exit Select - Case &HB - cmbVillian4.SelectedItem = "Cuckoo Clocker" - Exit Select - Case &HC - cmbVillian4.SelectedItem = "Buzzer Beak" - Exit Select - Case &HD - cmbVillian4.SelectedItem = "Shield Shredder" - Exit Select - Case &HE - cmbVillian4.SelectedItem = "Cross Crow" - Exit Select - Case &HF - cmbVillian4.SelectedItem = "Bone Chompy" - Exit Select - Case &H10 - cmbVillian4.SelectedItem = "Brawl and Chain" - Exit Select - Case &H11 - cmbVillian4.SelectedItem = "Bomb Shell" - Exit Select - Case &H12 - cmbVillian4.SelectedItem = "Masker Mind" - Exit Select - Case &H13 - cmbVillian4.SelectedItem = "Chill Bill" - Exit Select - Case &H14 - cmbVillian4.SelectedItem = "Sheep Creep" - Exit Select - Case &H15 - cmbVillian4.SelectedItem = "Shrednaught" - Exit Select - Case &H16 - cmbVillian4.SelectedItem = "Chomp Chest" - Exit Select - Case &H17 - cmbVillian4.SelectedItem = "Broccoli Guy" - Exit Select - Case &H18 - cmbVillian4.SelectedItem = "Rage Mage" - Exit Select - Case &H19 - cmbVillian4.SelectedItem = "Lob Goblin" - Exit Select - Case &H1A - cmbVillian4.SelectedItem = "Chompy" - Exit Select - Case &H1B - cmbVillian4.SelectedItem = "Fisticuffs" - Exit Select - Case &H1C - cmbVillian4.SelectedItem = "Trolling Thunder" - Exit Select - Case &H1D - cmbVillian4.SelectedItem = "Hood Sickle" - Exit Select - Case &H1E - cmbVillian4.SelectedItem = "Bruiser Cruiser" - Exit Select - Case &H1F - cmbVillian4.SelectedItem = "Brawlrus" - Exit Select - Case &H20 - cmbVillian4.SelectedItem = "Tussle Sprout" - Exit Select - Case &H21 - cmbVillian4.SelectedItem = "Krankenstein" - Exit Select - Case &H22 - cmbVillian4.SelectedItem = "Scrap Shooter" - Exit Select - Case &H23 - cmbVillian4.SelectedItem = "Slobber Trap" - Exit Select - Case &H24 - cmbVillian4.SelectedItem = "Grinnade" - Exit Select - Case &H25 - cmbVillian4.SelectedItem = "Bad Juju" - Exit Select - Case &H26 - cmbVillian4.SelectedItem = "Blaster-Tron" - Exit Select - Case &H27 - cmbVillian4.SelectedItem = "Tae Kwon Crow" - Exit Select - Case &H28 - cmbVillian4.SelectedItem = "Painyata" - Exit Select - Case &H29 - cmbVillian4.SelectedItem = "Smoke Scream" - Exit Select - Case &H2A - cmbVillian4.SelectedItem = "Eye Five" - Exit Select - Case &H2B - cmbVillian4.SelectedItem = "Grave Clobber" - Exit Select - Case &H2C - cmbVillian4.SelectedItem = "Threatpack" - Exit Select - Case &H2D - cmbVillian4.SelectedItem = "Mab Lobs" - Exit Select - Case &H2E - cmbVillian4.SelectedItem = "Eye Scream" - Exit Select - Case Else - cmbVillian4.SelectedItem = "(None)" - Exit Select - End Select - If WholeFile(&H311) = &H1 Then - chkVillian4Evolved.Checked = True - End If - Dim Villian4_Hat As Byte = WholeFile(&H312) - Select Case Villian4_Hat - Case &H0 - cmbVillian4Hat.SelectedItem = "(None)" - Case &HD3 - cmbVillian4Hat.SelectedItem = "Alarm Clock Hat" - Case &HDA - cmbVillian4Hat.SelectedItem = "Bat Hat" - Case &HD4 - cmbVillian4Hat.SelectedItem = "Batter Up Hat" - Case &H9B - cmbVillian4Hat.SelectedItem = "Beetle Hat" - Case &HED - cmbVillian4Hat.SelectedItem = "Bellhop Hat" - Case &HC3 - cmbVillian4Hat.SelectedItem = "Bobby" - Case &H9C - cmbVillian4Hat.SelectedItem = "Brain Hat" - Case &H9D - cmbVillian4Hat.SelectedItem = "Brainiac Hat" - Case &HEE - cmbVillian4Hat.SelectedItem = "Bronze Arkeyan Helm" - Case &H9E - cmbVillian4Hat.SelectedItem = "Bucket Hat" - Case &HEA - cmbVillian4Hat.SelectedItem = "Candle Hat" - Case &HE8 - cmbVillian4Hat.SelectedItem = "Candy Cane Hat" - Case &HF6 - cmbVillian4Hat.SelectedItem = "Carnival Hat" - Case &HA0 - cmbVillian4Hat.SelectedItem = "Ceiling Fan Hat" - Case &HBB - cmbVillian4Hat.SelectedItem = "Classic Pot Hat" - Case &HA3 - cmbVillian4Hat.SelectedItem = "Clown Bowler Hat" - Case &HA2 - cmbVillian4Hat.SelectedItem = "Clown Classic Hat" - Case &HF7 - cmbVillian4Hat.SelectedItem = "Coconut Hat" - Case &HA4 - cmbVillian4Hat.SelectedItem = "Colander Hat" - Case &HFC - cmbVillian4Hat.SelectedItem = "Core Of Light Hat" - Case &HA6 - cmbVillian4Hat.SelectedItem = "Cornucopia Hat" - Case &HBD - cmbVillian4Hat.SelectedItem = "Crazy Light Bulb Hat" - Case &HD6 - cmbVillian4Hat.SelectedItem = "Croissant Hat" - Case &HA7 - cmbVillian4Hat.SelectedItem = "Cubano Hat" - Case &HA8 - cmbVillian4Hat.SelectedItem = "Cycling Hat" - Case &HA9 - cmbVillian4Hat.SelectedItem = "Daisy Crown" - Case &HEB - cmbVillian4Hat.SelectedItem = "Dark Helm" - Case &H9F - cmbVillian4Hat.SelectedItem = "Desert Crown" - Case &HAA - cmbVillian4Hat.SelectedItem = "Dragon Skull" - Case &HE9 - cmbVillian4Hat.SelectedItem = "Eggshell Hat" - Case &HCB - cmbVillian4Hat.SelectedItem = "Extreme Viking Hat" - Case &HD9 - cmbVillian4Hat.SelectedItem = "Eye of Kaos Hat" - Case &HDC - cmbVillian4Hat.SelectedItem = "Firefly Jar" - Case &HC6 - cmbVillian4Hat.SelectedItem = "Flight Attendant Hat" - Case &HAE - cmbVillian4Hat.SelectedItem = "Garrison Hat" - Case &HAD - cmbVillian4Hat.SelectedItem = "Generalissimo" - Case &HE2 - cmbVillian4Hat.SelectedItem = "Gold Arkeyan Helm" - Case &HAF - cmbVillian4Hat.SelectedItem = "Gondolier Hat" - Case &HC4 - cmbVillian4Hat.SelectedItem = "Hedgehog Hat" - Case &HD5 - cmbVillian4Hat.SelectedItem = "Horns Be With You Hat" - Case &HB0 - cmbVillian4Hat.SelectedItem = "Hunting Hat" - Case &HA1 - cmbVillian4Hat.SelectedItem = "Imperial Hat" - Case &HB1 - cmbVillian4Hat.SelectedItem = "Juicer Hat" - Case &HA5 - cmbVillian4Hat.SelectedItem = "Kepi Hat" - Case &HB2 - cmbVillian4Hat.SelectedItem = "Kokoshnik" - Case &HDB - cmbVillian4Hat.SelectedItem = "Light Bulb Hat" - Case &HDE - cmbVillian4Hat.SelectedItem = "Lighthouse Beacon Hat" - Case &HAC - cmbVillian4Hat.SelectedItem = "Lil' Elf Hat" - Case &HB3 - cmbVillian4Hat.SelectedItem = "Medic Hat" - Case &HB4 - cmbVillian4Hat.SelectedItem = "Melon Hat" - Case &HC0 - cmbVillian4Hat.SelectedItem = "Metal Fin Hat" - Case &HE5 - cmbVillian4Hat.SelectedItem = "Miniature Skylands Hat" - Case &HFA - cmbVillian4Hat.SelectedItem = "Molekin Mountain Hat" - Case &HC7 - cmbVillian4Hat.SelectedItem = "Monday Hat" - Case &HB5 - cmbVillian4Hat.SelectedItem = "Mountie Hat" - Case &HE0 - cmbVillian4Hat.SelectedItem = "Night Cap" - Case &HB6 - cmbVillian4Hat.SelectedItem = "Nurse Hat" - Case &HFD - cmbVillian4Hat.SelectedItem = "Octavius Cloptimus Hat" - Case &HBA - cmbVillian4Hat.SelectedItem = "Old-Time Movie Hat" - Case &HAB - cmbVillian4Hat.SelectedItem = "Outback Hat" - Case &HB7 - cmbVillian4Hat.SelectedItem = "Palm Hat" - Case &HB8 - cmbVillian4Hat.SelectedItem = "Paperboy Hat" - Case &HB9 - cmbVillian4Hat.SelectedItem = "Parrot Nest" - Case &HEC - cmbVillian4Hat.SelectedItem = "Planet Hat" - Case &HD2 - cmbVillian4Hat.SelectedItem = "Pork Pie Hat" - Case &HE4 - cmbVillian4Hat.SelectedItem = "Pyramid Hat" - Case &HBC - cmbVillian4Hat.SelectedItem = "Radar Hat" - Case &HD8 - cmbVillian4Hat.SelectedItem = "Rainbow Hat" - Case &HBE - cmbVillian4Hat.SelectedItem = "Rubber Glove Hat" - Case &HD1 - cmbVillian4Hat.SelectedItem = "Rude Boy Hat" - Case &HBF - cmbVillian4Hat.SelectedItem = "Rugby Hat" - Case &HCC - cmbVillian4Hat.SelectedItem = "Scooter Hat" - Case &HDD - cmbVillian4Hat.SelectedItem = "Shadow Ghost Hat" - Case &HC8 - cmbVillian4Hat.SelectedItem = "Sherpa Hat" - Case &HC2 - cmbVillian4Hat.SelectedItem = "Shower Cap" - Case &HEF - cmbVillian4Hat.SelectedItem = "Silver Arkeyan Helm" - Case &HF3 - cmbVillian4Hat.SelectedItem = "Skipper Hat" - Case &HC1 - cmbVillian4Hat.SelectedItem = "Sleuth Hat" - Case &HC5 - cmbVillian4Hat.SelectedItem = "Steampunk Hat" - Case &HE1 - cmbVillian4Hat.SelectedItem = "Storm Hat" - Case &HCE - cmbVillian4Hat.SelectedItem = "Synchronized Swimming Cap" - Case &HDF - cmbVillian4Hat.SelectedItem = "Tin Foil Hat" - Case &HE3 - cmbVillian4Hat.SelectedItem = "Toucan Hat" - Case &HC9 - cmbVillian4Hat.SelectedItem = "Trash Lid" - Case &HD0 - cmbVillian4Hat.SelectedItem = "Tribal Hat" - Case &HCA - cmbVillian4Hat.SelectedItem = "Turtle Hat" - Case &HCD - cmbVillian4Hat.SelectedItem = "Volcano Island Hat" - Case &HD7 - cmbVillian4Hat.SelectedItem = "Weather Vane Hat" - Case &HCF - cmbVillian4Hat.SelectedItem = "William Tell Hat" - Case Else - cmbVillian4Hat.SelectedItem = "(None)" - End Select - Dim Villian4_Trinket As Byte = WholeFile(&H313) - Select Case Villian4_Trinket - Case &H0 - cmbVillian4Trinket.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian4Trinket.SelectedItem = "T-Bone's Lucky Tie" - Exit Select - Case &H2 - cmbVillian4Trinket.SelectedItem = "Batterson's Bubble" - Exit Select - Case &H3 - cmbVillian4Trinket.SelectedItem = "Dark Water Daisy" - Exit Select - Case &H4 - cmbVillian4Trinket.SelectedItem = "Vote For Cyclops" - Exit Select - Case &H5 - cmbVillian4Trinket.SelectedItem = "Ramses' Dragon Horn" - Exit Select - Case &H6 - cmbVillian4Trinket.SelectedItem = "Iris' Iris" - Exit Select - Case &H7 - cmbVillian4Trinket.SelectedItem = "Kuckoo Kazoo" - Exit Select - Case &H8 - cmbVillian4Trinket.SelectedItem = "Ramses' Rune" - Exit Select - Case &H9 - cmbVillian4Trinket.SelectedItem = "Ullysses Uniclops" - Exit Select - Case &HA - cmbVillian4Trinket.SelectedItem = "Billy Bison" - Exit Select - Case &HB - cmbVillian4Trinket.SelectedItem = "Stealth Elf's Gift" - Exit Select - Case &HC - cmbVillian4Trinket.SelectedItem = "Lizard Lilly" - Exit Select - Case &HD - cmbVillian4Trinket.SelectedItem = "Pirate Pinwheel" - Exit Select - Case &HE - cmbVillian4Trinket.SelectedItem = "Bubble Blower" - Exit Select - Case &HF - cmbVillian4Trinket.SelectedItem = "Medal of Heroism" - Exit Select - Case &H10 - cmbVillian4Trinket.SelectedItem = "Blobber's Medal of Courage" - Exit Select - Case &H11 - cmbVillian4Trinket.SelectedItem = "Medal of Valliance" - Exit Select - Case &H12 - cmbVillian4Trinket.SelectedItem = "Medal of Gallantry" - Exit Select - Case &H13 - cmbVillian4Trinket.SelectedItem = "Medal of Mettle" - Exit Select - Case &H14 - cmbVillian4Trinket.SelectedItem = "Winged Medal of Bravery" - Exit Select - Case &H15 - cmbVillian4Trinket.SelectedItem = "Seadog Seashell" - Exit Select - Case &H16 - cmbVillian4Trinket.SelectedItem = "Snuckles' Sunflower" - Exit Select - Case &H17 - cmbVillian4Trinket.SelectedItem = "Teddy Cyclops" - Exit Select - Case &H18 - cmbVillian4Trinket.SelectedItem = "Goo Factory Gear" - Exit Select - Case &H19 - cmbVillian4Trinket.SelectedItem = "Elemental Opal" - Exit Select - Case &H1A - cmbVillian4Trinket.SelectedItem = "Elemental Radiant" - Exit Select - Case &H1B - cmbVillian4Trinket.SelectedItem = "Elemental Diamond" - Exit Select - Case &H1C - cmbVillian4Trinket.SelectedItem = "Cyclops Spinner" - Exit Select - Case &H1D - cmbVillian4Trinket.SelectedItem = "Wiliken Windmill" - Exit Select - Case &H1E - cmbVillian4Trinket.SelectedItem = "Time Town Ticker" - Exit Select - Case &H1F - cmbVillian4Trinket.SelectedItem = "Big Bow of Doom" - Exit Select - Case &H20 - cmbVillian4Trinket.SelectedItem = "Mabu's Medallion" - Exit Select - Case &H21 - cmbVillian4Trinket.SelectedItem = "Spyro's Shield" - Exit Select - Case Else - cmbVillian4Trinket.SelectedItem = "(None)" - Exit Select - End Select - 'Load Name from Byte 0x314 - txtVillian1Name.Text = Load_Name(&H314) - - '+&H40 - 'Villian Five Data is 0x350 to 0x381 - 'Ignore 0x370 Block as it's MiFare - Dim Villian5_ID As Byte = WholeFile(&H350) - Select Case Villian5_ID - Case &H0 - cmbVillian5.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian5.SelectedItem = "Chompy Mage" - Exit Select - Case &H2 - cmbVillian5.SelectedItem = "Dr. Crankcase" - Exit Select - Case &H3 - cmbVillian5.SelectedItem = "Wolfgang" - Exit Select - Case &H4 - cmbVillian5.SelectedItem = "Chef Pepper Jack" - Exit Select - Case &H5 - cmbVillian5.SelectedItem = "Nightshade" - Exit Select - Case &H6 - cmbVillian5.SelectedItem = "Luminous" - Exit Select - Case &H7 - cmbVillian5.SelectedItem = "Golden Queen" - Exit Select - Case &H8 - cmbVillian5.SelectedItem = "Dreamcatcher" - Exit Select - Case &H9 - cmbVillian5.SelectedItem = "Gulper" - Exit Select - Case &HA - cmbVillian5.SelectedItem = "Kaos" - Exit Select - Case &HB - cmbVillian5.SelectedItem = "Cuckoo Clocker" - Exit Select - Case &HC - cmbVillian5.SelectedItem = "Buzzer Beak" - Exit Select - Case &HD - cmbVillian5.SelectedItem = "Shield Shredder" - Exit Select - Case &HE - cmbVillian5.SelectedItem = "Cross Crow" - Exit Select - Case &HF - cmbVillian5.SelectedItem = "Bone Chompy" - Exit Select - Case &H10 - cmbVillian5.SelectedItem = "Brawl and Chain" - Exit Select - Case &H11 - cmbVillian5.SelectedItem = "Bomb Shell" - Exit Select - Case &H12 - cmbVillian5.SelectedItem = "Masker Mind" - Exit Select - Case &H13 - cmbVillian5.SelectedItem = "Chill Bill" - Exit Select - Case &H14 - cmbVillian5.SelectedItem = "Sheep Creep" - Exit Select - Case &H15 - cmbVillian5.SelectedItem = "Shrednaught" - Exit Select - Case &H16 - cmbVillian5.SelectedItem = "Chomp Chest" - Exit Select - Case &H17 - cmbVillian5.SelectedItem = "Broccoli Guy" - Exit Select - Case &H18 - cmbVillian5.SelectedItem = "Rage Mage" - Exit Select - Case &H19 - cmbVillian5.SelectedItem = "Lob Goblin" - Exit Select - Case &H1A - cmbVillian5.SelectedItem = "Chompy" - Exit Select - Case &H1B - cmbVillian5.SelectedItem = "Fisticuffs" - Exit Select - Case &H1C - cmbVillian5.SelectedItem = "Trolling Thunder" - Exit Select - Case &H1D - cmbVillian5.SelectedItem = "Hood Sickle" - Exit Select - Case &H1E - cmbVillian5.SelectedItem = "Bruiser Cruiser" - Exit Select - Case &H1F - cmbVillian5.SelectedItem = "Brawlrus" - Exit Select - Case &H20 - cmbVillian5.SelectedItem = "Tussle Sprout" - Exit Select - Case &H21 - cmbVillian5.SelectedItem = "Krankenstein" - Exit Select - Case &H22 - cmbVillian5.SelectedItem = "Scrap Shooter" - Exit Select - Case &H23 - cmbVillian5.SelectedItem = "Slobber Trap" - Exit Select - Case &H24 - cmbVillian5.SelectedItem = "Grinnade" - Exit Select - Case &H25 - cmbVillian5.SelectedItem = "Bad Juju" - Exit Select - Case &H26 - cmbVillian5.SelectedItem = "Blaster-Tron" - Exit Select - Case &H27 - cmbVillian5.SelectedItem = "Tae Kwon Crow" - Exit Select - Case &H28 - cmbVillian5.SelectedItem = "Painyata" - Exit Select - Case &H29 - cmbVillian5.SelectedItem = "Smoke Scream" - Exit Select - Case &H2A - cmbVillian5.SelectedItem = "Eye Five" - Exit Select - Case &H2B - cmbVillian5.SelectedItem = "Grave Clobber" - Exit Select - Case &H2C - cmbVillian5.SelectedItem = "Threatpack" - Exit Select - Case &H2D - cmbVillian5.SelectedItem = "Mab Lobs" - Exit Select - Case &H2E - cmbVillian5.SelectedItem = "Eye Scream" - Exit Select - Case Else - cmbVillian5.SelectedItem = "(None)" - Exit Select - End Select - If WholeFile(&H351) = &H1 Then - chkVillian5Evolved.Checked = True - End If - Dim Villian5_Hat As Byte = WholeFile(&H352) - Select Case Villian5_Hat - Case &H0 - cmbVillian5Hat.SelectedItem = "(None)" - Case &HD3 - cmbVillian5Hat.SelectedItem = "Alarm Clock Hat" - Case &HDA - cmbVillian5Hat.SelectedItem = "Bat Hat" - Case &HD4 - cmbVillian5Hat.SelectedItem = "Batter Up Hat" - Case &H9B - cmbVillian5Hat.SelectedItem = "Beetle Hat" - Case &HED - cmbVillian5Hat.SelectedItem = "Bellhop Hat" - Case &HC3 - cmbVillian5Hat.SelectedItem = "Bobby" - Case &H9C - cmbVillian5Hat.SelectedItem = "Brain Hat" - Case &H9D - cmbVillian5Hat.SelectedItem = "Brainiac Hat" - Case &HEE - cmbVillian5Hat.SelectedItem = "Bronze Arkeyan Helm" - Case &H9E - cmbVillian5Hat.SelectedItem = "Bucket Hat" - Case &HEA - cmbVillian5Hat.SelectedItem = "Candle Hat" - Case &HE8 - cmbVillian5Hat.SelectedItem = "Candy Cane Hat" - Case &HF6 - cmbVillian5Hat.SelectedItem = "Carnival Hat" - Case &HA0 - cmbVillian5Hat.SelectedItem = "Ceiling Fan Hat" - Case &HBB - cmbVillian5Hat.SelectedItem = "Classic Pot Hat" - Case &HA3 - cmbVillian5Hat.SelectedItem = "Clown Bowler Hat" - Case &HA2 - cmbVillian5Hat.SelectedItem = "Clown Classic Hat" - Case &HF7 - cmbVillian5Hat.SelectedItem = "Coconut Hat" - Case &HA4 - cmbVillian5Hat.SelectedItem = "Colander Hat" - Case &HFC - cmbVillian5Hat.SelectedItem = "Core Of Light Hat" - Case &HA6 - cmbVillian5Hat.SelectedItem = "Cornucopia Hat" - Case &HBD - cmbVillian5Hat.SelectedItem = "Crazy Light Bulb Hat" - Case &HD6 - cmbVillian5Hat.SelectedItem = "Croissant Hat" - Case &HA7 - cmbVillian5Hat.SelectedItem = "Cubano Hat" - Case &HA8 - cmbVillian5Hat.SelectedItem = "Cycling Hat" - Case &HA9 - cmbVillian5Hat.SelectedItem = "Daisy Crown" - Case &HEB - cmbVillian5Hat.SelectedItem = "Dark Helm" - Case &H9F - cmbVillian5Hat.SelectedItem = "Desert Crown" - Case &HAA - cmbVillian5Hat.SelectedItem = "Dragon Skull" - Case &HE9 - cmbVillian5Hat.SelectedItem = "Eggshell Hat" - Case &HCB - cmbVillian5Hat.SelectedItem = "Extreme Viking Hat" - Case &HD9 - cmbVillian5Hat.SelectedItem = "Eye of Kaos Hat" - Case &HDC - cmbVillian5Hat.SelectedItem = "Firefly Jar" - Case &HC6 - cmbVillian5Hat.SelectedItem = "Flight Attendant Hat" - Case &HAE - cmbVillian5Hat.SelectedItem = "Garrison Hat" - Case &HAD - cmbVillian5Hat.SelectedItem = "Generalissimo" - Case &HE2 - cmbVillian5Hat.SelectedItem = "Gold Arkeyan Helm" - Case &HAF - cmbVillian5Hat.SelectedItem = "Gondolier Hat" - Case &HC4 - cmbVillian5Hat.SelectedItem = "Hedgehog Hat" - Case &HD5 - cmbVillian5Hat.SelectedItem = "Horns Be With You Hat" - Case &HB0 - cmbVillian5Hat.SelectedItem = "Hunting Hat" - Case &HA1 - cmbVillian5Hat.SelectedItem = "Imperial Hat" - Case &HB1 - cmbVillian5Hat.SelectedItem = "Juicer Hat" - Case &HA5 - cmbVillian5Hat.SelectedItem = "Kepi Hat" - Case &HB2 - cmbVillian5Hat.SelectedItem = "Kokoshnik" - Case &HDB - cmbVillian5Hat.SelectedItem = "Light Bulb Hat" - Case &HDE - cmbVillian5Hat.SelectedItem = "Lighthouse Beacon Hat" - Case &HAC - cmbVillian5Hat.SelectedItem = "Lil' Elf Hat" - Case &HB3 - cmbVillian5Hat.SelectedItem = "Medic Hat" - Case &HB4 - cmbVillian5Hat.SelectedItem = "Melon Hat" - Case &HC0 - cmbVillian5Hat.SelectedItem = "Metal Fin Hat" - Case &HE5 - cmbVillian5Hat.SelectedItem = "Miniature Skylands Hat" - Case &HFA - cmbVillian5Hat.SelectedItem = "Molekin Mountain Hat" - Case &HC7 - cmbVillian5Hat.SelectedItem = "Monday Hat" - Case &HB5 - cmbVillian5Hat.SelectedItem = "Mountie Hat" - Case &HE0 - cmbVillian5Hat.SelectedItem = "Night Cap" - Case &HB6 - cmbVillian5Hat.SelectedItem = "Nurse Hat" - Case &HFD - cmbVillian5Hat.SelectedItem = "Octavius Cloptimus Hat" - Case &HBA - cmbVillian5Hat.SelectedItem = "Old-Time Movie Hat" - Case &HAB - cmbVillian5Hat.SelectedItem = "Outback Hat" - Case &HB7 - cmbVillian5Hat.SelectedItem = "Palm Hat" - Case &HB8 - cmbVillian5Hat.SelectedItem = "Paperboy Hat" - Case &HB9 - cmbVillian5Hat.SelectedItem = "Parrot Nest" - Case &HEC - cmbVillian5Hat.SelectedItem = "Planet Hat" - Case &HD2 - cmbVillian5Hat.SelectedItem = "Pork Pie Hat" - Case &HE4 - cmbVillian5Hat.SelectedItem = "Pyramid Hat" - Case &HBC - cmbVillian5Hat.SelectedItem = "Radar Hat" - Case &HD8 - cmbVillian5Hat.SelectedItem = "Rainbow Hat" - Case &HBE - cmbVillian5Hat.SelectedItem = "Rubber Glove Hat" - Case &HD1 - cmbVillian5Hat.SelectedItem = "Rude Boy Hat" - Case &HBF - cmbVillian5Hat.SelectedItem = "Rugby Hat" - Case &HCC - cmbVillian5Hat.SelectedItem = "Scooter Hat" - Case &HDD - cmbVillian5Hat.SelectedItem = "Shadow Ghost Hat" - Case &HC8 - cmbVillian5Hat.SelectedItem = "Sherpa Hat" - Case &HC2 - cmbVillian5Hat.SelectedItem = "Shower Cap" - Case &HEF - cmbVillian5Hat.SelectedItem = "Silver Arkeyan Helm" - Case &HF3 - cmbVillian5Hat.SelectedItem = "Skipper Hat" - Case &HC1 - cmbVillian5Hat.SelectedItem = "Sleuth Hat" - Case &HC5 - cmbVillian5Hat.SelectedItem = "Steampunk Hat" - Case &HE1 - cmbVillian5Hat.SelectedItem = "Storm Hat" - Case &HCE - cmbVillian5Hat.SelectedItem = "Synchronized Swimming Cap" - Case &HDF - cmbVillian5Hat.SelectedItem = "Tin Foil Hat" - Case &HE3 - cmbVillian5Hat.SelectedItem = "Toucan Hat" - Case &HC9 - cmbVillian5Hat.SelectedItem = "Trash Lid" - Case &HD0 - cmbVillian5Hat.SelectedItem = "Tribal Hat" - Case &HCA - cmbVillian5Hat.SelectedItem = "Turtle Hat" - Case &HCD - cmbVillian5Hat.SelectedItem = "Volcano Island Hat" - Case &HD7 - cmbVillian5Hat.SelectedItem = "Weather Vane Hat" - Case &HCF - cmbVillian5Hat.SelectedItem = "William Tell Hat" - Case Else - cmbVillian5Hat.SelectedItem = "(None)" - End Select - Dim Villian5_Trinket As Byte = WholeFile(&H353) - Select Case Villian5_Trinket - Case &H0 - cmbVillian5Trinket.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian5Trinket.SelectedItem = "T-Bone's Lucky Tie" - Exit Select - Case &H2 - cmbVillian5Trinket.SelectedItem = "Batterson's Bubble" - Exit Select - Case &H3 - cmbVillian5Trinket.SelectedItem = "Dark Water Daisy" - Exit Select - Case &H4 - cmbVillian5Trinket.SelectedItem = "Vote For Cyclops" - Exit Select - Case &H5 - cmbVillian5Trinket.SelectedItem = "Ramses' Dragon Horn" - Exit Select - Case &H6 - cmbVillian5Trinket.SelectedItem = "Iris' Iris" - Exit Select - Case &H7 - cmbVillian5Trinket.SelectedItem = "Kuckoo Kazoo" - Exit Select - Case &H8 - cmbVillian5Trinket.SelectedItem = "Ramses' Rune" - Exit Select - Case &H9 - cmbVillian5Trinket.SelectedItem = "Ullysses Uniclops" - Exit Select - Case &HA - cmbVillian5Trinket.SelectedItem = "Billy Bison" - Exit Select - Case &HB - cmbVillian5Trinket.SelectedItem = "Stealth Elf's Gift" - Exit Select - Case &HC - cmbVillian5Trinket.SelectedItem = "Lizard Lilly" - Exit Select - Case &HD - cmbVillian5Trinket.SelectedItem = "Pirate Pinwheel" - Exit Select - Case &HE - cmbVillian5Trinket.SelectedItem = "Bubble Blower" - Exit Select - Case &HF - cmbVillian5Trinket.SelectedItem = "Medal of Heroism" - Exit Select - Case &H10 - cmbVillian5Trinket.SelectedItem = "Blobber's Medal of Courage" - Exit Select - Case &H11 - cmbVillian5Trinket.SelectedItem = "Medal of Valliance" - Exit Select - Case &H12 - cmbVillian5Trinket.SelectedItem = "Medal of Gallantry" - Exit Select - Case &H13 - cmbVillian5Trinket.SelectedItem = "Medal of Mettle" - Exit Select - Case &H14 - cmbVillian5Trinket.SelectedItem = "Winged Medal of Bravery" - Exit Select - Case &H15 - cmbVillian5Trinket.SelectedItem = "Seadog Seashell" - Exit Select - Case &H16 - cmbVillian5Trinket.SelectedItem = "Snuckles' Sunflower" - Exit Select - Case &H17 - cmbVillian5Trinket.SelectedItem = "Teddy Cyclops" - Exit Select - Case &H18 - cmbVillian5Trinket.SelectedItem = "Goo Factory Gear" - Exit Select - Case &H19 - cmbVillian5Trinket.SelectedItem = "Elemental Opal" - Exit Select - Case &H1A - cmbVillian5Trinket.SelectedItem = "Elemental Radiant" - Exit Select - Case &H1B - cmbVillian5Trinket.SelectedItem = "Elemental Diamond" - Exit Select - Case &H1C - cmbVillian5Trinket.SelectedItem = "Cyclops Spinner" - Exit Select - Case &H1D - cmbVillian5Trinket.SelectedItem = "Wiliken Windmill" - Exit Select - Case &H1E - cmbVillian5Trinket.SelectedItem = "Time Town Ticker" - Exit Select - Case &H1F - cmbVillian5Trinket.SelectedItem = "Big Bow of Doom" - Exit Select - Case &H20 - cmbVillian5Trinket.SelectedItem = "Mabu's Medallion" - Exit Select - Case &H21 - cmbVillian5Trinket.SelectedItem = "Spyro's Shield" - Exit Select - Case Else - cmbVillian5Trinket.SelectedItem = "(None)" - Exit Select - End Select - 'Load Name from Byte 0x354 - txtVillian1Name.Text = Load_Name(&H354) - - '+&H40 - 'Villian Six Data is 0x390 to 0x3C1 - 'Ignore 0x3B0 Block as it's MiFare - Dim Villian6_ID As Byte = WholeFile(&H390) - Select Case Villian6_ID - Case &H0 - cmbVillian6.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian6.SelectedItem = "Chompy Mage" - Exit Select - Case &H2 - cmbVillian6.SelectedItem = "Dr. Crankcase" - Exit Select - Case &H3 - cmbVillian6.SelectedItem = "Wolfgang" - Exit Select - Case &H4 - cmbVillian6.SelectedItem = "Chef Pepper Jack" - Exit Select - Case &H5 - cmbVillian6.SelectedItem = "Nightshade" - Exit Select - Case &H6 - cmbVillian6.SelectedItem = "Luminous" - Exit Select - Case &H7 - cmbVillian6.SelectedItem = "Golden Queen" - Exit Select - Case &H8 - cmbVillian6.SelectedItem = "Dreamcatcher" - Exit Select - Case &H9 - cmbVillian6.SelectedItem = "Gulper" - Exit Select - Case &HA - cmbVillian6.SelectedItem = "Kaos" - Exit Select - Case &HB - cmbVillian6.SelectedItem = "Cuckoo Clocker" - Exit Select - Case &HC - cmbVillian6.SelectedItem = "Buzzer Beak" - Exit Select - Case &HD - cmbVillian6.SelectedItem = "Shield Shredder" - Exit Select - Case &HE - cmbVillian6.SelectedItem = "Cross Crow" - Exit Select - Case &HF - cmbVillian6.SelectedItem = "Bone Chompy" - Exit Select - Case &H10 - cmbVillian6.SelectedItem = "Brawl and Chain" - Exit Select - Case &H11 - cmbVillian6.SelectedItem = "Bomb Shell" - Exit Select - Case &H12 - cmbVillian6.SelectedItem = "Masker Mind" - Exit Select - Case &H13 - cmbVillian6.SelectedItem = "Chill Bill" - Exit Select - Case &H14 - cmbVillian6.SelectedItem = "Sheep Creep" - Exit Select - Case &H15 - cmbVillian6.SelectedItem = "Shrednaught" - Exit Select - Case &H16 - cmbVillian6.SelectedItem = "Chomp Chest" - Exit Select - Case &H17 - cmbVillian6.SelectedItem = "Broccoli Guy" - Exit Select - Case &H18 - cmbVillian6.SelectedItem = "Rage Mage" - Exit Select - Case &H19 - cmbVillian6.SelectedItem = "Lob Goblin" - Exit Select - Case &H1A - cmbVillian6.SelectedItem = "Chompy" - Exit Select - Case &H1B - cmbVillian6.SelectedItem = "Fisticuffs" - Exit Select - Case &H1C - cmbVillian6.SelectedItem = "Trolling Thunder" - Exit Select - Case &H1D - cmbVillian6.SelectedItem = "Hood Sickle" - Exit Select - Case &H1E - cmbVillian6.SelectedItem = "Bruiser Cruiser" - Exit Select - Case &H1F - cmbVillian6.SelectedItem = "Brawlrus" - Exit Select - Case &H20 - cmbVillian6.SelectedItem = "Tussle Sprout" - Exit Select - Case &H21 - cmbVillian6.SelectedItem = "Krankenstein" - Exit Select - Case &H22 - cmbVillian6.SelectedItem = "Scrap Shooter" - Exit Select - Case &H23 - cmbVillian6.SelectedItem = "Slobber Trap" - Exit Select - Case &H24 - cmbVillian6.SelectedItem = "Grinnade" - Exit Select - Case &H25 - cmbVillian6.SelectedItem = "Bad Juju" - Exit Select - Case &H26 - cmbVillian6.SelectedItem = "Blaster-Tron" - Exit Select - Case &H27 - cmbVillian6.SelectedItem = "Tae Kwon Crow" - Exit Select - Case &H28 - cmbVillian6.SelectedItem = "Painyata" - Exit Select - Case &H29 - cmbVillian6.SelectedItem = "Smoke Scream" - Exit Select - Case &H2A - cmbVillian6.SelectedItem = "Eye Five" - Exit Select - Case &H2B - cmbVillian6.SelectedItem = "Grave Clobber" - Exit Select - Case &H2C - cmbVillian6.SelectedItem = "Threatpack" - Exit Select - Case &H2D - cmbVillian6.SelectedItem = "Mab Lobs" - Exit Select - Case &H2E - cmbVillian6.SelectedItem = "Eye Scream" - Exit Select - Case Else - cmbVillian6.SelectedItem = "(None)" - Exit Select - End Select - If WholeFile(&H391) = &H1 Then - chkVillian6Evolved.Checked = True - End If - Dim Villian6_Trinket As Byte = WholeFile(&H393) - Select Case Villian6_Trinket - Case &H0 - cmbVillian6Trinket.SelectedItem = "(None)" - Exit Select - Case &H1 - cmbVillian6Trinket.SelectedItem = "T-Bone's Lucky Tie" - Exit Select - Case &H2 - cmbVillian6Trinket.SelectedItem = "Batterson's Bubble" - Exit Select - Case &H3 - cmbVillian6Trinket.SelectedItem = "Dark Water Daisy" - Exit Select - Case &H4 - cmbVillian6Trinket.SelectedItem = "Vote For Cyclops" - Exit Select - Case &H5 - cmbVillian6Trinket.SelectedItem = "Ramses' Dragon Horn" - Exit Select - Case &H6 - cmbVillian6Trinket.SelectedItem = "Iris' Iris" - Exit Select - Case &H7 - cmbVillian6Trinket.SelectedItem = "Kuckoo Kazoo" - Exit Select - Case &H8 - cmbVillian6Trinket.SelectedItem = "Ramses' Rune" - Exit Select - Case &H9 - cmbVillian6Trinket.SelectedItem = "Ullysses Uniclops" - Exit Select - Case &HA - cmbVillian6Trinket.SelectedItem = "Billy Bison" - Exit Select - Case &HB - cmbVillian6Trinket.SelectedItem = "Stealth Elf's Gift" - Exit Select - Case &HC - cmbVillian6Trinket.SelectedItem = "Lizard Lilly" - Exit Select - Case &HD - cmbVillian6Trinket.SelectedItem = "Pirate Pinwheel" - Exit Select - Case &HE - cmbVillian6Trinket.SelectedItem = "Bubble Blower" - Exit Select - Case &HF - cmbVillian6Trinket.SelectedItem = "Medal of Heroism" - Exit Select - Case &H10 - cmbVillian6Trinket.SelectedItem = "Blobber's Medal of Courage" - Exit Select - Case &H11 - cmbVillian6Trinket.SelectedItem = "Medal of Valliance" - Exit Select - Case &H12 - cmbVillian6Trinket.SelectedItem = "Medal of Gallantry" - Exit Select - Case &H13 - cmbVillian6Trinket.SelectedItem = "Medal of Mettle" - Exit Select - Case &H14 - cmbVillian6Trinket.SelectedItem = "Winged Medal of Bravery" - Exit Select - Case &H15 - cmbVillian6Trinket.SelectedItem = "Seadog Seashell" - Exit Select - Case &H16 - cmbVillian6Trinket.SelectedItem = "Snuckles' Sunflower" - Exit Select - Case &H17 - cmbVillian6Trinket.SelectedItem = "Teddy Cyclops" - Exit Select - Case &H18 - cmbVillian6Trinket.SelectedItem = "Goo Factory Gear" - Exit Select - Case &H19 - cmbVillian6Trinket.SelectedItem = "Elemental Opal" - Exit Select - Case &H1A - cmbVillian6Trinket.SelectedItem = "Elemental Radiant" - Exit Select - Case &H1B - cmbVillian6Trinket.SelectedItem = "Elemental Diamond" - Exit Select - Case &H1C - cmbVillian6Trinket.SelectedItem = "Cyclops Spinner" - Exit Select - Case &H1D - cmbVillian6Trinket.SelectedItem = "Wiliken Windmill" - Exit Select - Case &H1E - cmbVillian6Trinket.SelectedItem = "Time Town Ticker" - Exit Select - Case &H1F - cmbVillian6Trinket.SelectedItem = "Big Bow of Doom" - Exit Select - Case &H20 - cmbVillian6Trinket.SelectedItem = "Mabu's Medallion" - Exit Select - Case &H21 - cmbVillian6Trinket.SelectedItem = "Spyro's Shield" - Exit Select - Case Else - cmbVillian6Trinket.SelectedItem = "(None)" - Exit Select - End Select - Dim Villian6_Hat As Byte = WholeFile(&H392) - Select Case Villian6_Hat - Case &H0 - cmbVillian6Hat.SelectedItem = "(None)" - Case &HD3 - cmbVillian6Hat.SelectedItem = "Alarm Clock Hat" - Case &HDA - cmbVillian6Hat.SelectedItem = "Bat Hat" - Case &HD4 - cmbVillian6Hat.SelectedItem = "Batter Up Hat" - Case &H9B - cmbVillian6Hat.SelectedItem = "Beetle Hat" - Case &HED - cmbVillian6Hat.SelectedItem = "Bellhop Hat" - Case &HC3 - cmbVillian6Hat.SelectedItem = "Bobby" - Case &H9C - cmbVillian6Hat.SelectedItem = "Brain Hat" - Case &H9D - cmbVillian6Hat.SelectedItem = "Brainiac Hat" - Case &HEE - cmbVillian6Hat.SelectedItem = "Bronze Arkeyan Helm" - Case &H9E - cmbVillian6Hat.SelectedItem = "Bucket Hat" - Case &HEA - cmbVillian6Hat.SelectedItem = "Candle Hat" - Case &HE8 - cmbVillian6Hat.SelectedItem = "Candy Cane Hat" - Case &HF6 - cmbVillian6Hat.SelectedItem = "Carnival Hat" - Case &HA0 - cmbVillian6Hat.SelectedItem = "Ceiling Fan Hat" - Case &HBB - cmbVillian6Hat.SelectedItem = "Classic Pot Hat" - Case &HA3 - cmbVillian6Hat.SelectedItem = "Clown Bowler Hat" - Case &HA2 - cmbVillian6Hat.SelectedItem = "Clown Classic Hat" - Case &HF7 - cmbVillian6Hat.SelectedItem = "Coconut Hat" - Case &HA4 - cmbVillian6Hat.SelectedItem = "Colander Hat" - Case &HFC - cmbVillian6Hat.SelectedItem = "Core Of Light Hat" - Case &HA6 - cmbVillian6Hat.SelectedItem = "Cornucopia Hat" - Case &HBD - cmbVillian6Hat.SelectedItem = "Crazy Light Bulb Hat" - Case &HD6 - cmbVillian6Hat.SelectedItem = "Croissant Hat" - Case &HA7 - cmbVillian6Hat.SelectedItem = "Cubano Hat" - Case &HA8 - cmbVillian6Hat.SelectedItem = "Cycling Hat" - Case &HA9 - cmbVillian6Hat.SelectedItem = "Daisy Crown" - Case &HEB - cmbVillian6Hat.SelectedItem = "Dark Helm" - Case &H9F - cmbVillian6Hat.SelectedItem = "Desert Crown" - Case &HAA - cmbVillian6Hat.SelectedItem = "Dragon Skull" - Case &HE9 - cmbVillian6Hat.SelectedItem = "Eggshell Hat" - Case &HCB - cmbVillian6Hat.SelectedItem = "Extreme Viking Hat" - Case &HD9 - cmbVillian6Hat.SelectedItem = "Eye of Kaos Hat" - Case &HDC - cmbVillian6Hat.SelectedItem = "Firefly Jar" - Case &HC6 - cmbVillian6Hat.SelectedItem = "Flight Attendant Hat" - Case &HAE - cmbVillian6Hat.SelectedItem = "Garrison Hat" - Case &HAD - cmbVillian6Hat.SelectedItem = "Generalissimo" - Case &HE2 - cmbVillian6Hat.SelectedItem = "Gold Arkeyan Helm" - Case &HAF - cmbVillian6Hat.SelectedItem = "Gondolier Hat" - Case &HC4 - cmbVillian6Hat.SelectedItem = "Hedgehog Hat" - Case &HD5 - cmbVillian6Hat.SelectedItem = "Horns Be With You Hat" - Case &HB0 - cmbVillian6Hat.SelectedItem = "Hunting Hat" - Case &HA1 - cmbVillian6Hat.SelectedItem = "Imperial Hat" - Case &HB1 - cmbVillian6Hat.SelectedItem = "Juicer Hat" - Case &HA5 - cmbVillian6Hat.SelectedItem = "Kepi Hat" - Case &HB2 - cmbVillian6Hat.SelectedItem = "Kokoshnik" - Case &HDB - cmbVillian6Hat.SelectedItem = "Light Bulb Hat" - Case &HDE - cmbVillian6Hat.SelectedItem = "Lighthouse Beacon Hat" - Case &HAC - cmbVillian6Hat.SelectedItem = "Lil' Elf Hat" - Case &HB3 - cmbVillian6Hat.SelectedItem = "Medic Hat" - Case &HB4 - cmbVillian6Hat.SelectedItem = "Melon Hat" - Case &HC0 - cmbVillian6Hat.SelectedItem = "Metal Fin Hat" - Case &HE5 - cmbVillian6Hat.SelectedItem = "Miniature Skylands Hat" - Case &HFA - cmbVillian6Hat.SelectedItem = "Molekin Mountain Hat" - Case &HC7 - cmbVillian6Hat.SelectedItem = "Monday Hat" - Case &HB5 - cmbVillian6Hat.SelectedItem = "Mountie Hat" - Case &HE0 - cmbVillian6Hat.SelectedItem = "Night Cap" - Case &HB6 - cmbVillian6Hat.SelectedItem = "Nurse Hat" - Case &HFD - cmbVillian6Hat.SelectedItem = "Octavius Cloptimus Hat" - Case &HBA - cmbVillian6Hat.SelectedItem = "Old-Time Movie Hat" - Case &HAB - cmbVillian6Hat.SelectedItem = "Outback Hat" - Case &HB7 - cmbVillian6Hat.SelectedItem = "Palm Hat" - Case &HB8 - cmbVillian6Hat.SelectedItem = "Paperboy Hat" - Case &HB9 - cmbVillian6Hat.SelectedItem = "Parrot Nest" - Case &HEC - cmbVillian6Hat.SelectedItem = "Planet Hat" - Case &HD2 - cmbVillian6Hat.SelectedItem = "Pork Pie Hat" - Case &HE4 - cmbVillian6Hat.SelectedItem = "Pyramid Hat" - Case &HBC - cmbVillian6Hat.SelectedItem = "Radar Hat" - Case &HD8 - cmbVillian6Hat.SelectedItem = "Rainbow Hat" - Case &HBE - cmbVillian6Hat.SelectedItem = "Rubber Glove Hat" - Case &HD1 - cmbVillian6Hat.SelectedItem = "Rude Boy Hat" - Case &HBF - cmbVillian6Hat.SelectedItem = "Rugby Hat" - Case &HCC - cmbVillian6Hat.SelectedItem = "Scooter Hat" - Case &HDD - cmbVillian6Hat.SelectedItem = "Shadow Ghost Hat" - Case &HC8 - cmbVillian6Hat.SelectedItem = "Sherpa Hat" - Case &HC2 - cmbVillian6Hat.SelectedItem = "Shower Cap" - Case &HEF - cmbVillian6Hat.SelectedItem = "Silver Arkeyan Helm" - Case &HF3 - cmbVillian6Hat.SelectedItem = "Skipper Hat" - Case &HC1 - cmbVillian6Hat.SelectedItem = "Sleuth Hat" - Case &HC5 - cmbVillian6Hat.SelectedItem = "Steampunk Hat" - Case &HE1 - cmbVillian6Hat.SelectedItem = "Storm Hat" - Case &HCE - cmbVillian6Hat.SelectedItem = "Synchronized Swimming Cap" - Case &HDF - cmbVillian6Hat.SelectedItem = "Tin Foil Hat" - Case &HE3 - cmbVillian6Hat.SelectedItem = "Toucan Hat" - Case &HC9 - cmbVillian6Hat.SelectedItem = "Trash Lid" - Case &HD0 - cmbVillian6Hat.SelectedItem = "Tribal Hat" - Case &HCA - cmbVillian6Hat.SelectedItem = "Turtle Hat" - Case &HCD - cmbVillian6Hat.SelectedItem = "Volcano Island Hat" - Case &HD7 - cmbVillian6Hat.SelectedItem = "Weather Vane Hat" - Case &HCF - cmbVillian6Hat.SelectedItem = "William Tell Hat" - Case Else - cmbVillian6Hat.SelectedItem = "(None)" - End Select - 'Load Name from Byte 0x394 - txtVillian1Name.Text = Load_Name(&H394) - End Sub + End Function + 'Special Encryption Checking is Done for Traps, here Function Load_Name(offset As Integer) Dim NameBytes(29) As Byte Dim Adder As Integer = 0 + Dim Full_Name As String + Dim Bad_Name As Boolean Do Until Adder = 28 + 'MessageBox.Show(Hex(offset)) NameBytes(Adder) = WholeFile(offset) - offset = offset + 1 + offset += 1 Adder += 1 Loop 'Skip MiFare Block - offset += 16 + offset += 17 Do Until Adder = 30 + 'MessageBox.Show(Hex(offset)) NameBytes(Adder) = WholeFile(offset) offset = offset + 1 Adder += 1 Loop + Full_Name = Encoding.Unicode.GetString(NameBytes) + Bad_Name = Nickname.IsUnicode(Full_Name) + If Bad_Name = True Then + MessageBox.Show("Did you load an Encrypted Trap?", "Unicode Name Detected") + End If + 'MessageBox.Show(Encoding.BigEndianUnicode.GetString(NameBytes)) Return Encoding.Unicode.GetString(NameBytes) End Function @@ -5896,7 +1783,7 @@ Public Class frmTraps adder += 1 Loop 'Skip MiFare Block - Offset += &H16 + Offset += 17 Do Until adder = 30 WholeFile(Offset) = Full_VilianName(adder) Offset = Offset + 1 diff --git a/SkyReader-GUI/hidControl.vb b/SkyReader-GUI/hidControl.vb index 2eb7285..7588ccc 100644 --- a/SkyReader-GUI/hidControl.vb +++ b/SkyReader-GUI/hidControl.vb @@ -213,12 +213,12 @@ Module hidControl HidD_FlushQueue(hidHandle) frmMain.unlockPortalControls() frmMain.SaldeStatus.Text = "Portal Connected!" - frmMain.blnPortal = True + Portal.blnPortal = True Else ' The device wasn't detected. frmMain.lockPortalControls() frmMain.SaldeStatus.Text = "Portal Not Found!" - frmMain.blnPortal = False + Portal.blnPortal = False End If Return hidHandle