Warconn Posted December 8, 2008 Share Posted December 8, 2008 i was finally able to test this out, and i double clicked the spell on the list, i get a RTE 53 saying that my spell.gif was not found. I am having very many problems lately lol{EDIT}i found the reason, i didnt have a spell in that slot lolworks great thanks Link to comment Share on other sites More sharing options...
zade_o Posted December 8, 2008 Author Share Posted December 8, 2008 I'm gonna get to work on fixing that right now.EDIT:::: FIXED ::::I'm put the fix uptop in the main tutorial, but here it is if you don't feel like reading through that whole thingreplace the lstSpells double click function with this code```Private Sub lstSpells_DblClick() Dim O, r, p, Q As String Dim i Dim X Dim exists As Boolean O = lstSpells.Text r = Right(O, Len(O) - 3) If (StrComp(Left(O, 1), "-") <> 0) Then If (Image7.Picture = Image16.Picture) Then Image7.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif") Call SendData("setspell1" & SEP_CHAR & r & END_CHAR) ElseIf (Image8.Picture = Image16.Picture) Then Image8.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif") Call SendData("setspell2" & SEP_CHAR & r & END_CHAR) ElseIf (Image9.Picture = Image16.Picture) Then Image9.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif") Call SendData("setspell3" & SEP_CHAR & r & END_CHAR) ElseIf (Image10.Picture = Image16.Picture) Then Image10.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif") Call SendData("setspell4" & SEP_CHAR & r & END_CHAR) ElseIf (Image11.Picture = Image16.Picture) Then Image11.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif") Call SendData("setspell5" & SEP_CHAR & r & END_CHAR) ElseIf (Image12.Picture = Image16.Picture) Then Image12.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif") Call SendData("setspell6" & SEP_CHAR & r & END_CHAR) ElseIf (Image13.Picture = Image16.Picture) Then Image13.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif") Call SendData("setspell7" & SEP_CHAR & r & END_CHAR) ElseIf (Image14.Picture = Image16.Picture) Then Image14.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif") Call SendData("setspell8" & SEP_CHAR & r & END_CHAR) ElseIf (Image15.Picture = Image16.Picture) Then Image15.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif") Call SendData("setspell9" & SEP_CHAR & r & END_CHAR) ElseIf (Image5.Picture = Image16.Picture) Then Image5.Picture = LoadPicture(App.Path & "\GUI\SpellIcons\" & r & ".gif") Call SendData("setspell10" & SEP_CHAR & r & END_CHAR) Else Call AddText("All of your spell slots are full.", WHITE) End If End IfEnd Sub``` Link to comment Share on other sites More sharing options...
Warconn Posted December 8, 2008 Share Posted December 8, 2008 Works Great, nice job Link to comment Share on other sites More sharing options...
mrmiguu Posted December 11, 2008 Share Posted December 11, 2008 Ok, I tested this out and it pwns. I love how well I cause effectively use it with Lostica! Thank you, one thing though… sometimes my server crashes due to an error in the Set Item packet in the server HandleData section. Any ideas? (I happens when I loot sometimes) Link to comment Share on other sites More sharing options...
zade_o Posted December 11, 2008 Author Share Posted December 11, 2008 Not sure man. You have any source edits dealing with items? Link to comment Share on other sites More sharing options...
Tyr Posted December 11, 2008 Share Posted December 11, 2008 heh, it looks like i can't pickup anything in lostica now :) (did you disable the error line? ^^) Link to comment Share on other sites More sharing options...
Sevg Posted December 11, 2008 Share Posted December 11, 2008 No, the loot key is now PageDown/Av Pág.Nice addition to Lostica :) Link to comment Share on other sites More sharing options...
Tyr Posted December 11, 2008 Share Posted December 11, 2008 lol, don't know… but i letted around 5k cash on the floor then =D Link to comment Share on other sites More sharing options...
Guest Posted December 18, 2008 Share Posted December 18, 2008 this gives me RTE 5 when I click any of the sections. What do you do with the labels? Where do you put them? o.o Link to comment Share on other sites More sharing options...
zade_o Posted December 19, 2008 Author Share Posted December 19, 2008 > -Add 10 labels to your frmMirage, and make them indexed, and make them all invisible> To perfectly match this code, the labels should be:> Label14(1) through Label14(10) Link to comment Share on other sites More sharing options...
Guest Posted December 19, 2008 Share Posted December 19, 2008 I did that, but I still get the RTE 5\. All of my forms are named just this way. It only happens when I click the spell bar or type a number.Like I made the labels a control array all named Label14\. So in the name it says Label14, but in the properties header it shows Label14(1) etc etc. I am positive this is what you meant. But does it matter WHERE I place these? Do I stretch them over my images? Link to comment Share on other sites More sharing options...
zade_o Posted December 19, 2008 Author Share Posted December 19, 2008 Look I don't know how to help because I've added this to a fresh copy of the source and it worked fine and I just used this guide exactly as it says. The labels just go anywhere in the frmMirage. I just have them chilling in an open spot on mine, stacked on top of each other. I think it'd be safe to say you messed up somewhere else along the way. Link to comment Share on other sites More sharing options...
Guest Posted December 20, 2008 Share Posted December 20, 2008 Do you have MSN? Cause I have installed this source 3 times already over and over. There are errors in this source anyhow. A variable "s" is already declared in where you tell me to put this code. But even if I change all of the variables over to like "ss" I get the error. Link to comment Share on other sites More sharing options...
Warconn Posted December 20, 2008 Share Posted December 20, 2008 i changed "s" to "sp" but after you do that, you must change it in all of the script he has supplied you. Link to comment Share on other sites More sharing options...
zade_o Posted December 20, 2008 Author Share Posted December 20, 2008 if it says it's already declared then delete that line. you should probably understand source edits before you start adding stuff like this Link to comment Share on other sites More sharing options...
Guest Posted December 20, 2008 Share Posted December 20, 2008 Um yeah ghost I'm not stupid, I tried changing all of the variables over to "ss" and tried deleting the declaration and keeping it "s" but still has a run time error 5.Don't assume that I do not know VB, although its been a while >>. What version of Eclipse are you using this with? Link to comment Share on other sites More sharing options...
Warconn Posted December 20, 2008 Share Posted December 20, 2008 2.7 i did it, and it works perfect for me. Try putting it in again line by line, and you might correct yourself Link to comment Share on other sites More sharing options...
Guest Posted December 20, 2008 Share Posted December 20, 2008 Thanks Warconn, I decided I'm just being lazy and I am going to code my own. I just wanted to see how this preformed before wasting too much time. But considering this one still has some apparent bugs I think that is the best route for me. Link to comment Share on other sites More sharing options...
Warconn Posted December 20, 2008 Share Posted December 20, 2008 yep, no problem thats what i am here for except that there is no bugs, they were all worked out, and it works fine. Link to comment Share on other sites More sharing options...
Guest Posted December 21, 2008 Share Posted December 21, 2008 @Gh0st:> List of Known Bugs that I'll fix tomorrow :> ~~- Clicking on a spell in your spell book that has no spell there causes a crash~~> - typing a number when talking in chat attempts to cast a spell Link to comment Share on other sites More sharing options...
Warconn Posted December 21, 2008 Share Posted December 21, 2008 i have found a fix for that, use the F buttons, if you do know what you are doing then it isnt hardIf you cant find it though, i have a script to stop it which i will PM ghost to add Link to comment Share on other sites More sharing options...
Guest Posted December 21, 2008 Share Posted December 21, 2008 Ah cool, I know how to change the keys. I know visual basic man, but I want to used the numerical keys like you have set. If you could please post the fix that would be awesome.Please do not keep insulting my visual basic knowledge. There is no need to get so offensive o.o Link to comment Share on other sites More sharing options...
Warconn Posted December 21, 2008 Share Posted December 21, 2008 alright, ill stop, but you were insulting my friend Ghost, so…``` If KeyCode = vbKey1 Then If txtMyTextBox.Visible = False Then 'insert code here End If End If```that should work, i havent tested it, i have mine set to letters, like S will bring up the spell menu, but same concept Link to comment Share on other sites More sharing options...
Guest Posted December 21, 2008 Share Posted December 21, 2008 Thanks man, I guess I will just reinstall this (again) lol. Link to comment Share on other sites More sharing options...
Warconn Posted December 21, 2008 Share Posted December 21, 2008 lol it helped me to do it about 2 times, that way i made sure i got it all Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now