Ayuda too lo que echo se esta arruinando :'(

[metroix]

bueno manes e estd trabjando en algo desde ase un tiempo ya algo asi 2 semanas y casi sin parar.. lo que pasa es que ahora ya casi terminadolo estaba agregando las ultimas lineas y me sale y que PROCEDURE TOO LONG (proceso muy largo) como puedo aser desaparecer este error :'(c?

Para ver este enlace Registrate o Inicia Sesion

http://rapidshare.com/files/35943183/NOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO.txt.html

Ese archuvo de txt es lo que le e metio a un boton y aun falta un poco mas pero ya desde ahora me da ese error

[Ther0x]

POR DIOS, pero que es lo que has metido ahí. normal que te diga que el procedimiento es demasiado largo
me acabo de enterar de que tienen un límite de tamaño... seguro que a los que lo hicieron no se les ocurrió pensar que alguien meteria tanto código en un procedimiento

en fin... prueba a crear un módulo y dentro de ese módulo haces una función que tenga ese código, porque igual las funciones no tienen límite

si sigues teniendo el problema, divide el código en varias funciones

espero que te sirva de ayuda


salu2

[metroix]

bueno man no e usado mucho esos module lo trate de usar solo ise esto

Código:

Private Function Use()
On Error Resume Next
'USE pagina 1 1/17 Sec1
If ImageCombo1.SelectedItem.Text = "?????" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAB8 //?????"
End If..

y puse en el boton Call Use y me dice Sub Or Function not defined

[Ther0x]

prueba esto:

Código:

Function Use () as Long
código
End Function

y luego haces la llamada con call use

salu2

[metroix]

bueno man ago eso pero el boton no ase nada:S deveri agregar unas cosas pero no ase naXD

[700esoj]

no se que tratas de hacer pero trata esto...
agrega almenos 5 lables, Labels por que son invisibles... Luego Alargas tu form a lo maximo, luego pones los labels lo mas abajo o asia el lado que puedas, luego vuelves a poner el form de el tamaño que lo tenias. Esto para que los labels no sean alcanzados y no se pueda hacer click sobre ellos.

Y entonces trata de hacer lo siguiente

Private Sub Label1_click()
On Error Resume Next
'USE pagina 1 1/17 Sec1
If ImageCombo1.Se lectedItem.Tex t = "??" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAB8 //??"
End If
If ImageCombo1.Se lectedItem.Tex t = "A Prayer for Victory" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAB9 //A Player for Victory"
End If
If ImageCombo1.Se lectedItem.Tex t = "Air Bubble" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDA98 // Air Bubble"
End If
If ImageCombo1.Se lectedItem.Tex t = "Alien Sack" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B31 //Alien Sack"
End If
If ImageCombo1.Se lectedItem.Tex t = "All Cure Potion" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F47D4 //All Cure Potion"
End If
If ImageCombo1.Se lectedItem.Tex t = "Antidote" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F47D0 //Antidote"
End If
If ImageCombo1.Se lectedItem.Tex t = "Apple" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EAB90 //Apple"
End If
If ImageCombo1.Se lectedItem.Tex t = "Arrow for Bow" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F6EE0 //Arrow for Bow"
End If
On Error Resume Next
'USE pagina 1 1/17 Sec1
If ImageCombo1.Se lectedItem.Tex t = "??" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAB8 //??"
End If
If ImageCombo1.Se lectedItem.Tex t = "A Prayer for Victory" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAB9 //A Player for Victory"
End If
If ImageCombo1.Se lectedItem.Tex t = "Air Bubble" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDA98 // Air Bubble"
End If
If ImageCombo1.Se lectedItem.Tex t = "Alien Sack" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B31 //Alien Sack"
End If
If ImageCombo1.Se lectedItem.Tex t = "All Cure Potion" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F47D4 //All Cure Potion"
End If
If ImageCombo1.Se lectedItem.Tex t = "Antidote" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F47D0 //Antidote"
End If
If ImageCombo1.Se lectedItem.Tex t = "Apple" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EAB90 //Apple"
End If
If ImageCombo1.Se lectedItem.Tex t = "Arrow for Bow" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F6EE0 //Arrow for Bow"
End If
If ImageCombo1.Se lectedItem.Tex t = "Arrow for Bow 2" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F6EE3 //Arrow for Bow 2"
End If
If ImageCombo1.Se lectedItem.Tex t = "Arrow for Crossbow" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F72C8 //Arrow for Crossbow"
End If
If ImageCombo1.Se lectedItem.Tex t = "Arrow for Crossbow 2" Then
Text1.Text = Text1.Text & vbCrLf & "dd 02061003 //Arrow for Crossbow 2"
End If
If ImageCombo1.Se lectedItem.Tex t = "Baby Dragon Food" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAC9 //Baby Dragon Food"
End If
If ImageCombo1.Se lectedItem.Tex t = "Banana Graham Pie" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAEB //Banana Graham Pie"
End If
If ImageCombo1.Se lectedItem.Tex t = "Barbecue" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDABF //Barbecue"
End If
If ImageCombo1.Se lectedItem.Tex t = "Bellflower Concentrate" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAF4 //Bellflower Concentrate"
End If
If ImageCombo1.Se lectedItem.Tex t = "Birthday Cake" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001ED2C0 //Birthday Cake"
End If
If ImageCombo1.Se lectedItem.Tex t = "Black Cloud Machine" Then
Text1.Text = Text1.Text & vbCrLf & "dd 0022CA41 //Black Cloud Machine"
End If
If ImageCombo1.Se lectedItem.Tex t = "Black Fruit" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAC7 //Black Fruit"
End If
If ImageCombo1.Se lectedItem.Tex t = "Black Sack" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B20 //Black Sack"
End If
end sub

private sub label2_click()
on error resume next

'
'USE pagina 1 1/20 Sec1
'
If ImageCombo1.Se lectedItem.Tex t = "Blossom Juice" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAF2 //Blossom Juice"
End If
If ImageCombo1.Se lectedItem.Tex t = "Blue Fruit" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAC8 //Blue Fruit"
End If
If ImageCombo1.Se lectedItem.Tex t = "Blue Malady's Candy" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDADB //Blue Malady's Candy"
End If
If ImageCombo1.Se lectedItem.Tex t = "Blue Pill" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001E848A //Blue Pill"
End If
If ImageCombo1.Se lectedItem.Tex t = "Blue Potion" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001E8483 //Blue Potion"
End If
If ImageCombo1.Se lectedItem.Tex t = "Brand New Monster Galore" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B2E //Brand New Monster Galore"
End If
If ImageCombo1.Se lectedItem.Tex t = "Bronze Arrow for Bow" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F6EE1 //Bronze Arrow for Bow"
End If
If ImageCombo1.Se lectedItem.Tex t = "Bronze Arrow for CrossBow" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F72C9 //Bronze Arrow for CrossBow"
End If
If ImageCombo1.Se lectedItem.Tex t = "Bubble Gum" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAD2 //Bubble Gum"
End If
If ImageCombo1.Se lectedItem.Tex t = "Buckwheat paste" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAA3 //Buckwheat paste"
End If
If ImageCombo1.Se lectedItem.Tex t = "Cake" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001ED2A2 //Cake"
End If
If ImageCombo1.Se lectedItem.Tex t = "Candy" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDA91 //Candy"
End If
If ImageCombo1.Se lectedItem.Tex t = "Candy Basket" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001ED2BB //Candy Basket"
End If
If ImageCombo1.Se lectedItem.Tex t = "Cheesecake" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001ED2B0 //Cheesecake"
End If
If ImageCombo1.Se lectedItem.Tex t = "Chestnut" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAA8 //Chestnut"
End If
If ImageCombo1.Se lectedItem.Tex t = "Chocolate" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001ED2BC //Chocolate"
End If
If ImageCombo1.Se lectedItem.Tex t = "Chocolate Basket" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001ED2B8 //Chocolate Basket"
End If
If ImageCombo1.Se lectedItem.Tex t = "Chocolate Cake" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001ED2B3 //Chocolate Cake"
End If
If ImageCombo1.Se lectedItem.Tex t = "Chocolate Cream Cake" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001ED2B2 //Chocolate Cream Cake"
End If
If ImageCombo1.Se lectedItem.Tex t = "Christmas Melon" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAE8 //Christmas Melon"
End If
If ImageCombo1.Se lectedItem.Tex t = "Chrysanthemum Perfume" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAAE //Chrysanthemum Perfume"
End If
end sub
 
Y asi por el estilo hasta tener tu codigo entero en los labels que ayas agregado para esto, Y por ultimo el codigo de command1_click

Private sub Command1_click()
Label1_click()
Label2_click()
label3_click()
Label4_click()
end sub

No se si me entendistes.
Creo que funcionara. detodos modos si no funciona, es por que no se como utilizar Visual Basic

POR CIERTO, Parece que estas haciendo algun modificador de codigo de Gamegenie, GameShark,Action Replay o algo por el estilo, Cierto?
-700esoj

[Ther0x]

si estás haciendo la función desde un módulo, tienes que indicar delante de cada objeto el formulario al que pertenece. osea, en vez de imagecombo1.lo quesea, sería form1.imagecom bo1.loquesea
te va a costar cambiarlo todo...


salu2

[metroix]

si estás haciendo la función desde un módulo, tienes que indicar delante de cada objeto el formulario al que pertenece. osea, en vez de imagecombo1.lo quesea, sería form1.imagecom bo1.loquesea
te va a costar cambiarlo todo...


salu2

O.O man toy que muero...

EDIT
700esoj
me salvastes la vida man : )

[700esoj]

jjjjjjj jjjjj jjjjj Te estoy ayudando con eso, yo voy desde abajo asia arriba pegando form1 asi que no te rindas con tu proyecto

cuando termine la mitad la pego aqui

[700esoj]

'
'USE pagina 14 261/280 sec14
'
If form1.ImageCom bo1.SelectedIt em.Text = "Ramen" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDA81 //Ramen "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Red Bean Porridge" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDA71 //Red Bean Porridge "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Red Bean Sundae" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001E886A //Red Bean Sundae "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Red Fruit" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAC6 //Red Fruit "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Red Malady's Candy" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDADA //Red Malady's Candy "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Red Pill" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001E8487 //Red Pill "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Red Potion" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001E8480 //Red Potion "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Reindeer Milk" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001ED2AD //Reindeer Milk "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Return Scroll - Nearest Town" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EF9B0 //Return Scroll - Nearest Town "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Return Scroll for Dead Mine" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EF9B7 //Return Scroll for Dead Mine "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Return Scroll to Ellinia" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EF9B2 //Return Scroll to Ellinia "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Return Scroll to Henesys" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EF9B4 //Return Scroll to Henesys "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Return Scroll to Kerning City" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EF9B5 //Return Scroll to Kerning City "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Return Scroll to Lith Harbor" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EF9B1 //Return Scroll to Lith Harbor "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Return Scroll to Perion" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EF9B3 //Return Scroll to Perion "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Return Scroll to Sleepywood" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EF9B6 //Return Scroll to Sleepywood "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Revitalizer" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00227C20 //Revitalizer "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Ribbon Pig Piece" Then
Text1.Text = Text1.Text & vbCrLf & "dd 0021B8D1 //Ribbon Pig Piece "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Rice Cookie" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDA96 //Rice Cookie "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Rice Wine" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAA4 //Rice Wine "
End If
'
'USE pagina 15 281/300 sec15
'
If form1.ImageCom bo1.SelectedIt em.Text = "Rice-Cake Soup" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDA76 //Rice-Cake Soup "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Roasted pork" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDAA2 //Roasted pork "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Roasted Turkey" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001ED2BE //Roasted Turkey "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Roger's Apple" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EAB97 //Roger's Apple "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Salad" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001ED2A0 //Salad "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Sap of Ancient Tree" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EB362 //Sap of Ancient Tree "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Bottomwear for DEF 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Bottomwear for DEF 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Bottomwear for DEF 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Bottomwear for DEF 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Bottomwear for DEF 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Bottomwear for DEF 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Bottomwear for DEF 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Bottomwear for DEF 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Bow for ATT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Bow for ATT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Bow for ATT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Bow for ATT 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Bow for ATT 100" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Bow for ATT 100 "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Bow for ATT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Bow for ATT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for DEX 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Cape for DEX 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for DEX 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Cape for DEX 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for DEX 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Cape for DEX 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for HP 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Cape for HP 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for HP 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Cape for HP 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for HP 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Cape for HP 100% "
End If
'
'USE pagina 16 301/320 sec16
'
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for INT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Cape for INT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for INT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Cape for INT 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for INT 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Cape for INT 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for LUK 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Cape for LUK 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for LUK 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Cape for LUK 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for LUK 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Cape for LUK 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for Magic Def. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Cape for Magic Def. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for Magic Def. 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Cape for Magic Def. 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for Magic Def. 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Cape for Magic Def. 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for Magic Def.. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Cape for Magic Def.. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for MP 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Cape for MP 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for MP 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Cape for MP 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for MP 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Cape for MP 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for STR 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Cape for STR 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for STR 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Cape for STR 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for STR 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Cape for STR 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for Weapon Def. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Cape for Weapon Def. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for Weapon Def. 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Cape for Weapon Def. 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for Weapon Def. 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Cape for Weapon Def. 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Cape for Weapon Def. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Cape for Weapon Def. 10% "
End If
'
'USE pagina 17 321/340 sec17
'
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Claw for ATT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Claw for ATT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Claw for ATT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Claw for ATT 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Claw for ATT 70%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C8 //Scroll for Claw for ATT 70% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Claw for ATT 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Claw for ATT 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Claw for ATT. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Claw for ATT. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Crossbow for ATT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Crossbow for ATT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Crossbow for ATT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Crossbow for ATT 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Crossbow for ATT 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Crossbow for ATT 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Crossbow for ATT. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Crossbow for ATT. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Dagger for ATT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Dagger for ATT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Dagger for ATT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Dagger for ATT 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Dagger for ATT 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Dagger for ATT 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Dagger for ATT. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Dagger for ATT. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Earring for INT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Earring for INT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Earring for INT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Earring for INT 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Earring for INT 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Earring for INT 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Earring for INT. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Earring for INT. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Gloves for ATT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Gloves for ATT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Gloves for ATT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Gloves for ATT 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Gloves for ATT 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Gloves for ATT 100% "
End If
'
'USE pagina 18 341/360 sec18
'
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Gloves for ATT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Gloves for ATT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Gloves for DEX 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Gloves for DEX 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Gloves for DEX 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Gloves for DEX 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Gloves for DEX 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Gloves for DEX 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Gloves for DEX. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Gloves for DEX. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Helmet for DEF 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Helmet for DEF 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Helmet for DEF 30%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C9 //Scroll for Helmet for DEF 30% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Helmet for DEF 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Helmet for DEF 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Helmet for DEF 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Helmet for DEF 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Helmet for DEF. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Helmet for DEF. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Helmet for HP 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Helmet for HP 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Helmet for HP 30%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C9 //Scroll for Helmet for HP 30% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Helmet for HP 30%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C9 //Scroll for Helmet for HP 30% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Helmet for HP 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Helmet for HP 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Helmet for HP 70%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C8 //Scroll for Helmet for HP 70% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Helmet for HP 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Helmet for HP 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Helmet for HP 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Helmet for HP 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Helmet for INT 70%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C8 //Scroll for Helmet for INT 70% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for One-Handed Axe for ATT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for One-Handed Axe for ATT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for One-Handed Axe for ATT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for One-Handed Axe for ATT 60% "
End If
'
'USE pagina 19 361/380 sec19
'
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for One-Handed Axe for ATT 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for One-Handed Axe for ATT 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for One-Handed Axe for ATT. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for One-Handed Axe for ATT. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for One-Handed BW for ATT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for One-Handed BW for ATT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for One-Handed BW for ATT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for One-Handed BW for ATT 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for One-Handed BW for ATT 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for One-Handed BW for ATT 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for One-Handed BW for ATT. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for One-Handed BW for ATT. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for One-Handed Sword for ATT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for One-Handed Sword for ATT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for One-Handed Sword for ATT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for One-Handed Sword for ATT 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for One-Handed Sword for ATT 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for One-Handed Sword for ATT 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for One-Handed Sword for ATT. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for One-Handed Sword for ATT. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Overall Armor for DEF 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Overall Armor for DEF 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Overall Armor for DEF 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Overall Armor for DEF 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Overall Armor for DEF 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Overall Armor for DEF 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Overall Armor for DEF. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Overall Armor for DEF. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Overall Armor for DEX 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Overall Armor for DEX 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Overall Armor for DEX 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Overall Armor for DEX 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Overall Armor for DEX 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Overall Armor for DEX 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Overall Armor for DEX 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Overall Armor for DEX 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Overall Armor for  INT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Overall Armor for  INT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Overall Armor for INT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Overall Armor for INT 60% "
End If
'
'USE pagina 20 381/400 sec20
'
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Overall Armor for INT 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Overall Armor for INT 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Overall Armor for LUK 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Overall Armor for LUK 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Overall Armor for LUK 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Overall Armor for LUK 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Overall Armor for LUK 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Overall Armor for LUK 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Pet Equip. for Speed 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Pet Equip. for Speed 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Pet Equip. for Speed 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Pet Equip. for Speed 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Pet Equip. for Speed 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Pet Equip. for Speed 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Pet Equip. for Speed. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Pet Equip. for Speed. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Pet Equip. for Speed. 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Pet Equip. for Speed. 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Pet Equip. for Speed. 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Pet Equip. for Speed. 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Pole Arm for ATT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Pole Arm for ATT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Pole Arm for ATT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Pole Arm for ATT 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Pole Arm for ATT 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Pole Arm for ATT 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Pole Arm for ATT. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Pole Arm for ATT. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shield for  DEF 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Shield for  DEF 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shield for DEF 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Shield for DEF 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shield for DEF 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Shield for DEF 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shield for DEF. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Shield for DEF. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shoes for DEX 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Shoes for DEX 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shoes for DEX 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Shoes for DEX 60% "
End If
'
'USE pagina 21 401/420 sec21
'
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shoes for DEX 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Shoes for DEX 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shoes for DEX. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Shoes for DEX. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shoes for Jump 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Shoes for Jump 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shoes for Jump 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Shoes for Jump 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shoes for Jump 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Shoes for Jump 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shoes for Jump. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Shoes for Jump. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shoes for Speed 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Shoes for Speed 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shoes for Speed 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Shoes for Speed 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shoes for Speed 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Shoes for Speed 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Shoes for Speed. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Shoes for Speed. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Spear for ATT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Spear for ATT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Spear for ATT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Spear for ATT 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Spear for ATT 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Spear for ATT 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Spear for ATT. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Spear for ATT. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Staff for Magic Att. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Staff for Magic Att. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Staff for Magic Att. 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Staff for Magic Att. 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Staff for Magic Att. 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Staff for Magic Att. 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Staff for Magic Att.. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Staff for Magic Att.. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Topwear for DEF 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Topwear for DEF 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Topwear for DEF 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Topwear for DEF 60% "
End If
'
'USE pagina 22 421/440 sec 22
'
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Topwear for DEF 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Topwear for DEF 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Topwear for DEF. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Topwear for DEF. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Two-handed Axe for ATT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Two-handed Axe for ATT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Two-handed Axe for ATT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Two-handed Axe for ATT 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Two-handed Axe for ATT 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Two-handed Axe for ATT 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Two-handed Axe for ATT. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Two-handed Axe for ATT. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Two-handed BW for ATT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Two-handed BW for ATT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Two-handed BW for  ATT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Two-handed BW for  ATT 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Two-handed BW for ATT 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Two-handed BW for ATT 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Two-handed BW for ATT. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Two-handed BW for ATT. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Two-handed Sword for ATT 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Two-handed Sword for ATT 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Two-handed Sword for ATT 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Two-handed Sword for ATT 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Two-handed Sword for ATT 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Two-handed Sword for ATT 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Two-handed Sword for ATT. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Two-handed Sword for ATT. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Wand for Magic Att. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Wand for Magic Att. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Wand for Magic Att. 60%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C1 //Scroll for Wand for Magic Att. 60% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Wand for Magic Att. 100%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C0 //Scroll for Wand for Magic Att. 100% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Scroll for Wand for Magic Att.. 10%" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F20C2 //Scroll for Wand for Magic Att.. 10% "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Silver Swan Engagement Ring Box" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00222E03 //Silver Swan Engagement Ring Box "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Sniper Pill" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001E8C58 //Sniper Pill "
End If
'
'USE pagina 23 421/440 sec23
'
If form1.ImageCom bo1.SelectedIt em.Text = "Sniper Potion" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001E8C55 //Sniper Potion "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Snowball" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F95F8 //Snowball "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Song Pyun" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EDA74 //Song Pyun "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Speed Pill" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001E8C5A //Speed Pill "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Speed Potion" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001E8C51 //Speed Potion "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Star gem Engagement Ring Box" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00222E01 //Star gem Engagement Ring Box "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Steel Arrow for Bow" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F6EE2 //Steel Arrow for Bow "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Steel Arrow for Crossbow" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001F72CA //Steel Arrow for Crossbow "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Strawberry Candy" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001ED2BA //Strawberry Candy "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Strawberry Cream Cake" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001ED2B1 //Strawberry Cream Cake "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Strawberry Milk" Then
Text1.Text = Text1.Text & vbCrLf & "dd 001EF9B9 //Strawberry Milk "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summon Black Boogie" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200F14 //Summon Black Boogie "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summon Blue Boogie" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200F12 //Summon Blue Boogie "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summon Bodyguard A" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200F17 //Summon Bodyguard A "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summon Green Boogie" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200F13 //Summon Green Boogie "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summon Monsters" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200F16 //Summon Monsters "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summon Red Boogie" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200F11 //Summon Red Boogie "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summon Showa Boss" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200F15 //Summon Showa Boss "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summoning Dances ,with Balrog's Clone" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B2A //Summoning Dances ,with Balrog's Clone"
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summoning Angry Lord Pirate" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B4B //Summoning Angry Lord Pirate "
End If
'
'USE pagina 24 441/460 sec24
'
If form1.ImageCom bo1.SelectedIt em.Text = "Summoning Athena Pierces Clone" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B2C //Summoning Athena Pierces Clone "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summoning Bag of Birds" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B2F //Summoning Bag of Birds "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summoning Crimson Balrog" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200F09 //Summoning Crimson Balrog "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summoning Dark Lord's Clone" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B2D //Summoning Dark Lord's Clone "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summoning Dark Yeti & Pepe" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200F10 //Summoning Dark Yeti & Pepe "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summoning Enraged Lord Pirate" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B4C //Summoning Enraged Lord Pirate "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summoning Ghosts" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B3D //Summoning Ghosts "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summoning Goblins" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B3E //Summoning Goblins "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summoning Grendel the Really Old's Clone" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B2B //Summoning Grendel the Really Old's Clone"
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summoning Horned Tail A" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B3F //Summoning Horned Tail A "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summoning Horned Tail C" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B40 //Summoning Horned Tail C "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summoning Lord Pirate" Then
Text1.Text = Text1.Text & vbCrLf & "dd 00200B49 //Summoning Lord Pirate "
End If
If form1.ImageCom bo1.SelectedIt em.Text = "Summoning Lord Pirate's Bellflower" Then
Text1.Text = Text1.Text & vbCrLf & &q