AfterDawn

whats the call for currency if theirs any. example i want to make a separete label name GOLD, what should i put in the label.? thanks

still no answer??…

how can i add a website link in the source.?

@Yakura: > Try using the Search machine. There is a source edit/script for this. :icon_meditation: the search link doesn't work and the tutorial failed. ``` If GetTickCount > NPCDmgTime [color]+[/color] 10000 And GetTickCount > DmgTime + 10000 And GetTickCount > Player(MyIndex).AttackTimer + 10000 Then InGame = False Else Call AddText("You need to wait 10 seconds after last fight to log out", CYAN) ``` + was the error

hello how can i fixed when battle engaged with a monster then i quit game, is their a way that saying "cannot quit game because your in a battle"? is their a way? source edit something.

@AfterDawn: > ``` > Private Sub Form_Load() > Dim i As Long > Dim Ending As String > For i = 1 To 3 > If i = 1 Then > Ending = ".gif" > End If > If i = 2 Then > Ending = ".jpg" > End If > If i = 3 Then > Ending = ".png" > End If > > If FileExists("GUI\Loading" & Ending) Then > frmSendGetData.Picture = LoadPicture(App.Path & "\GUI\Loading" & Ending) > End If > Next i > Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED) > SetLayeredWindowAttributes Me.hWnd, RGB(0, 0, 0), 0, 1 > > End Sub > ``` > like this? edit. wow it works now. thank you thank you :azn: :azn:

@Commander: > Tru you could hide it or just enable it and disable it can you explain more? please

@Xeross: > No you need Sub Form_OnLoad > > Regards, Xeross ``` Private Sub Form_Load() Dim i As Long Dim Ending As String For i = 1 To 3 If i = 1 Then Ending = ".gif" End If If i = 2 Then Ending = ".jpg" End If If i = 3 Then Ending = ".png" End If If FileExists("GUI\Loading" & Ending) Then frmSendGetData.Picture = LoadPicture(App.Path & "\GUI\Loading" & Ending) End If Next i Call SetWindowLong(Me.hWnd, GWL_EXSTYLE, GetWindowLong(Me.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED) SetLayeredWindowAttributes Me.hWnd, RGB(0, 0, 0), 0, 1 End Sub ``` like this?

how about a vbkeyi?? i = inventory

@The: > double click on the window and you will automatically go to onload is this the one? ``` Private Sub Form_KeyPress(KeyAscii As Integer) If (KeyAscii = vbKeyEscape) Then Call GameDestroy Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED) SetLayeredWindowAttributes Me.hwnd, RGB(0, 0, 0), 0, 1 End If End Sub ```

actually the code i posted works. i just want to use the also the lblinventory_click() to close the inventory.

does it effect with slow computer? im using pentuim 3 :X

its not a weather. the thunder is off.

when i clicked inventory the picinventory show up, and i want also same inventory clicked to close the inventory. i have the code here. ``` Private Sub lblInventory_Click() Call UpdateVisInv picGuildMember.Visible = False picGuildAdmin.Visible = False picEquipment.Visible = False picPlayerSpells.Visible = False picWhosOnline.Visible = False picCharStatus.Visible = False picInventory.Visible = True End Sub ```

is that serious?

whats the onLoad ?? do i need to search it? sorry i really dont know, but i need this. thanks

hello how can i fixed the the game screen, it always flash, when i clicked or not even clicking the screen. flash flash flash :lipsrsealed: :lipsrsealed: :lipsrsealed:

ok thanks, about the form do you know?

sorry i cant find this. in the properties, find Label1.Index and change them to the same number

ok, i guess i'll just visit every now and then.

wow thats nice, i thought you will tell me again not to necropost. lol XD

questions. 1\. can be the map put in the form instead in the game screen? 2\. instead ot /minimap, can it be button? thanks

-Add 10 labels to your frmMirage, and make them indexed, and make them all invisible -Add 10 Images to your frmMirage, do not make them indexed and align them to make an action bar how can i make nor not indexed? cant find it :sad:

update?

wow im finished thank you thank you :azn: :azn: :azn: :azn: