| Author |
Message |
Forum: Mirage Source 4 (Visual Basic 6) Topic: Small Issue with Spells |
| Vahz |
|
Posted: Sun Mar 29, 2009 1:14 pm
|
|
Replies: 8 Views: 6180
|
| change the frmSpellEditor.scrlFrame.Max = (DDS_Spell(scrlFrame.Value).SurfDescription.lWidth \ SIZE_X) - 1 with this frmSpellEditor.scrlFrame.Max = (DDS_Spell(scrlPic.Value).SurfDescription.lWidth \ SIZE_X) - 1 in case u didnt notice, i replaced scrlFrame.value with scrlPic.value |
|
 |
Forum: General Topic: Client Wont compile... |
| Vahz |
|
Posted: Tue Oct 14, 2008 12:15 pm
|
|
Replies: 18 Views: 5826
|
try to register that dll from command prompt...
open Command prompt (run as administrator) -> regsvr32 dx7vb.dll |
|
 |
Forum: Mirage Source 4 (Visual Basic 6) Topic: [BUG]Safe Zones... |
| Vahz |
|
Posted: Tue Oct 14, 2008 11:41 am
|
|
Replies: 6 Views: 5558
|
teh problem is this one..
Code: If Not Map(GetPlayerMap(Attacker)).Moral = MAP_MORAL_NONE Or GetPlayerPK(Victim) = NO Then
this will make all non-pk player cannot be attacked
replace it with this
Code: If Not Map(GetPlayerMap(Attacker)).Moral = MAP_MORAL_NONE And GetPlayerPK(Victim) = NO Then |
|
 |
Forum: Mirage Source 4 (Visual Basic 6) Topic: Minor problem with DirectDraw |
| Vahz |
|
Posted: Mon Oct 06, 2008 4:21 pm
|
|
Replies: 1 Views: 2634
|
maybe this ?
Code: DDBLTFAST_SRCCOLORKEY
if u use this flag, directdraw wont blit the color key.... |
|
 |
Forum: Mirage Source 4 (Visual Basic 6) Topic: Mirage Source 4 |
| Vahz |
|
Posted: Fri Oct 03, 2008 11:12 am
|
|
Replies: 1818 Views: 436220
|
| You are maybe not using "Sub MapMSG" but this function maybe useful to other people, imo this is why DFA is not deleting it. Example of usage: Send a message from the server to a precise map sorry if i wrong, but Anthony is talking about "Sub MapMsg" in client side, not in serve... |
|
 |
Forum: General Topic: cheaking someones fraction |
| Vahz |
|
Posted: Tue Sep 30, 2008 2:06 pm
|
|
Replies: 19 Views: 6201
|
no need for declare "getfraction as integer"
just make it like this
Code: Function getplayerfraction(ByVal Index) As Long getplayerfraction = CLng(GetVar(App.Path & "\fraction.ini", "fraction choice", GetPlayerName(Index))) End Function
hope this help. |
|
 |
Forum: Mirage Source 4 (Visual Basic 6) Topic: Mirage Source 4 |
| Vahz |
|
Posted: Mon Sep 29, 2008 3:00 pm
|
|
Replies: 1818 Views: 436220
|
| Line 152: Class MSComctlLib.ListView of control lvwInfo was not a loaded control class. Line 11: Property Icon in frmServer had an invalid file reference. Line 30: Property TabPicture(0) in SSTab1 had an invalid file reference. Line 38: Property TabPicture(1) in SSTab1 had an invalid file reference... |
|
 |
Forum: General Topic: AlertMsg(MsgBox) |
| Vahz |
|
Posted: Fri Sep 26, 2008 2:34 pm
|
|
Replies: 18 Views: 6641
|
Mattyw wrote: Is there a way to stop it from kicking the player?
Or something else? Such as 'WarnMsg' from XtremeWorlds?(Wouldn't be called that)
Trying to make a WarnMsg, lol.
Yes, there is a way...
just remove this command from Sub AlertMsg in server side
Code: Call CloseSocket(Index) |
|
 |
Forum: Mirage Source 4 (Visual Basic 6) Topic: Tiny optimization |
| Vahz |
|
Posted: Tue Sep 16, 2008 12:16 pm
|
|
Replies: 19 Views: 12291
|
i think Dugor forgot about these...
Code: If Mid$(MyText, 1, 1) = vbQuote Then and
Code: If Mid$(MyText, 1, 1) = "=" Then
you should place them right before
Code: If Left$(MyText, 1) = "/" Then
and add an access check
Code: If GetPlayerAccess(MyIndex) >0 Then |
|
 |
| Sort by: |