Warden

on admin panel(click insert) open map editor,then push attributes or smth down there,theres blocked,warp etc and somewhere middle there is npc spawn,then choose your npc and put it on the map.(before that you have to add npc from map properties

Hey,i got a problem,when i try to login and start to play,it loads and then there comes error subscript out of range(when i use vb6 debug and try to open it,when i open .exe it says object variable or with block variable not set) when i use debug to find the line of error it shows me a line what i even havent edited from clsbuffer > CopyMemory sBytes(0), Buffer(ReadHead + 4), sLength its from under readstring can anyone give me some advice or something? i think theres something wrong with that > Call SendLogin(frmMenu.txtLUser.text, frmMenu.txtLPass.text) cause everytime something loads like that it will crash or wont move i can send my all project if someone is so good and fixes it

didnt work :( EDIT: now i got other prob..it gives me error "object variable or With block variable not set" after i login into game….how to fix it? > Sub HandleLoginOk(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) > Dim Buffer As clsBuffer > > ' If debug mode, handle error then exit out > If Options.Debug = 1 Then On Error GoTo errorhandler > > Set Buffer = New clsBuffer > Buffer.WriteBytes Data() > > ' save options > Options.SavePass = frmMenu.chkPass.Value > Options.Username = Trim$(frmMenu.txtLUser.text) > > If frmMenu.chkPass.Value = 0 Then > Options.Password = vbNullString > Else > Options.Password = Trim$(frmMenu.txtLPass.text) > End If > > SaveOptions > > ' Now we can receive game data > MyIndex = Buffer.ReadLong > > ' player high index > Player_HighIndex = Buffer.ReadLong > > Set Buffer = Nothing > frmLoad.Visible = True > Call SetStatus("Receiving game data…") > > ' Error handler > Exit Sub > errorhandler: > HandleError "HandleLoginOk", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext > Err.Clear > Exit Sub > End Sub i think theres some prob cause when loader writes "receiving game data…" it will crash and give the error...

> VersionCount = GetVar(App.Path & "\tmpUpdate.ini", "UPDATER", "Version") thats the one from checkversion

from vb6 i debug? i guess thats it > VersionCount = GetVar(App.Path & "\tmpUpdate.ini", "UPDATER", "Version")

i wish i could know whats IDE

Hey,i added a updater in my client but when i try to open the client it loads till "loading menu" and then gives me error "type mismatch" heres the form_load of frmMenu > picprogress.width = 0 > lblStatus.Caption = "Welcome to the " & GameName & " Launcher." > > CheckVersion > > If UpToDate = 0 Then > RunUpdates > Else > > End If i think theres something wrong cause i added it and im a little nooby:D checkversion is defined like that > Public Sub CheckVersion() > Dim Filename As String > > ChangeStatus "Connecting to update server…" > SetProgress 0 > ' get the file which contains the info of updated files > DownloadFile UpdateURL & "/update.ini", App.Path & "\tmpUpdate.ini" > > ChangeStatus "Connected to server!" > SetProgress 50 > ChangeStatus "Retrieving version information." > > ' read the version count > VersionCount = GetVar(App.Path & "\tmpUpdate.ini", "UPDATER", "Version") > > ' check if we've got a current client version saved > If FileExist(App.Path & "\Data Files\Config.ini") Then > CurVersion = GetVar(App.Path & "\Data Files\Config.ini", "UPDATER", "Version") > Else > CurVersion = 0 > End If > > SetProgress 100 > > ' are we up to date? > If CurVersion < VersionCount Then > UpToDate = 0 > ChangeStatus "Your client is outdated!" > VersionsToGo = VersionCount - CurVersion > PercentToGo = 100 / (VersionsToGo * 2) > Else > UpToDate = 1 > ChangeStatus "Your client is up to date!" > > > End If > End Sub and RunUpdates > Public Sub RunUpdates() > Dim Filename As String > Dim i As Long > Dim UpdateID As Long > Dim CurProgress As Long > > If CurVersion = 0 Then CurVersion = 1 > UpdateID = 0 > CurProgress = 0 > ' loop around, download and unrar each update > For i = CurVersion + 1 To VersionCount > ' Increase Update ID by 1 > UpdateID = UpdateID + 1 > > ' let them know we're actually doing something.. > CurProgress = CurProgress + PercentToGo > ChangeStatus "Downloading update " & Str(UpdateID) & "/" & Str(VersionsToGo) & "…" > SetProgress CurProgress > > ' Download time! > Filename = "version" & Trim(Str(i)) & ".rar" > DownloadFile UpdateURL & "/" & Filename, App.Path & "\" & Filename > > ' Done downloading? Awesome.. Time to change the status > CurProgress = CurProgress + PercentToGo > ChangeStatus "Installing update " & Str(UpdateID) & "/" & Str(VersionsToGo) & "..." > SetProgress CurProgress > > ' Extract date from the update file. > RARExecute OP_EXTRACT, Filename > > ' Delete the update file. > Kill App.Path & "\" & Filename > Next > > ' Update the version of the client. > PutVar App.Path & "\Data Files\Config.ini", "UPDATER", "Version", Str(VersionCount) > > ' Done? Niiiice.. > SetProgress 100 'Just to be sure, sometimes it misses ~1% due to the lack of decimals. > ChangeStatus "Your client is up to date!" > UpToDate = 1 > End Sub thank you.

Great,thanks it works!:)

Hello,i wanted to make a random value scroll on npc menu,example i put npc dropping gold and i can choose a random value so if the value is 10 it drop 1-10 gold how to add it in there? > Private Sub scrlValue_Change() > ' If debug mode, handle error then exit out > If Options.Debug = 1 Then On Error GoTo errorhandler > > lblValue.Caption = "Value: " & scrlValue.Value > Npc(EditorIndex).DropItemValue = scrlValue.Value > > ' Error handler > Exit Sub > errorhandler: > HandleError "scrlValue_Change", "frmEditor_NPC", Err.Number, Err.Description, Err.Source, Err.HelpContext > Err.Clear > Exit Sub > End Sub

i changed it in the vb6

i didnt overwrite i added the autoupdater in it

hmm…but now i did put the autoupdater src files and client ones together and renamed autoupdater's frmMain to frmUpdater,and i wanted it to open the frmUpdater first if you run the exe file but it gives me the error "error number '52' Bad file name or number"

cool:D now i know how to make it working,thank you very much!:) umm but when i try to open the exe file after compiling it says error number '52' Bad file name or number,what that means?

thats too hard for noob like me:D ummh how to change the thing in vb6 if you open the .exe file that what file it opens first,like does it count from name frmMain?

shit your smart,thank you very very much it worked:) btw how to make bold writing on the label button?

lol thanks:D but i still dont get it,if i put lblConnect into modMain it says that its not defined but in the other one,frmMain its used many times:S they both are in the autoupdater.vbp

hmm okay,but how to delete a button?i thought that i should do like that if its up to date or updated it will remove button "lblConnect" and will show the button "lblPlay" edit: i got it thanks :P

Hello,im using robin's autoupdater (http://www.touchofdeathforums.com/smf/index.php/topic,58493.0.html) and i want it to open if you open client.exe,then theres a button "connect" and it checks if ur version is updated,if it is then it will open the client and if its not it will update and will open client after that,any help?thank you

well it *F*ucked my game up:( it overwrote the frmMain and i didnt even have a copy of it

shit lol,it works now,i had the animation thingy before but it must been deleted,thanks for reminding me :P

ummh animation number 62 from ingame … :O

well it wont give an error but in-game if i get level up it wont show the animation.

> If level_count > 0 Then > If level_count = 1 Then > 'singular > Dim x As Long > Dim y As Long > x = GetPlayerX(index) > y = GetPlayerY(index) > > GlobalMsg GetPlayerName(index) & " has gained " & level_count & " level!", Brown > Call SendAnimation(GetPlayerMap(index), 62, x, y) > > Else > 'plural > GlobalMsg GetPlayerName(index) & " has gained " & level_count & " levels!", Brown > Call SendAnimation(GetPlayerMap(index), 62, x, y) > End If > SendEXP index > SendPlayerData index > End If > End Sub like that?if thats right it aint working

i got the error off now thanks,but is the line : > Call SendAnimation(GetPlayerMap(index), 62, x, y) written right?it should do anim nr 62 if i get level

Hello,well i wanted to learn some scripting so umh i added the lines so if you get leveled up it will make a animation for sec so everybody could see,but when i compile it,it says Variable not defined,so how can i define? > …........... > > If level_count > 0 Then > If level_count = 1 Then > 'singular > ERROR HERE x = GetPlayerX(index) > ERROR HERE y = GetPlayerY(index) > GlobalMsg GetPlayerName(index) & " has gained " & level_count & " level!", Brown > Call SendAnimation(GetPlayerMap(index), 62, x, y) > > Else > 'plural > GlobalMsg GetPlayerName(index) & " has gained " & level_count & " levels!", Brown > Call SendAnimation(GetPlayerMap(index), 62, x, y) > End If > SendEXP index > SendPlayerData index > End If > End Sub