magiceff.rar - const
MG_READY = 10
MG_FLY = 6
MG_EXPLOSION = 10
READYTIME = 120
EXPLOSIONTIME = 100
FLYBASE = 10
EXPLOSIONBASE = 170
//EFFECTFRAME = 260
MAXMAGIC = 10
FLYOMAAXEBASE = 447
THORNBASE = 2967
ARCHERBASE = 2607
ARCHERBASE2 = 272 //2609
TDBBASE = 210
FLYFORSEC = 500
FIREGUNFRAME = 6 ,2007-12-06 21:17:40,下载3次
Source.rar - MirUnleashed
vb.net
Module modMainServer
Public WithEvents Socket As New WinsockServer
Public WithEvents StatusSocket As New WinsockServer
Dim MonsterThread As New System.Threading.Thread(AddressOf MonsterProcess)
Dim LastPacket As String = ,2007-12-06 21:15:42,下载17次
Actor.rar - Mir2 Actor.pas
if (IsFace) and (FaceIndex > -1) then
begin
d := aFrmMain.WFaceimg.Images[FaceIndex * 10 + (FaceFram) mod 8]
/// if HorseSurface<>nil then
// dSurface.Draw (dx+shiftx, dy + hpy + ShiftY-60, d.ClientRect, d, TRUE)
// else
if d <> nil then
begin
if HorseSurface <> nil then
dsurface.Draw(SayX - d.Width div 2, dy + hpy + ShiftY - 60,
d.ClientRect, d, True)
else
dsurface.Draw(SayX - d.Width div 2, dy + hpy + ShiftY - 50,
d.ClientRect, d, True)
end
end
end ,2007-12-06 21:12:58,下载3次
Magic.rar - function MagMakeSkillFire_60(PlayObject: TBaseObject UserMagic: pTUserMagic nPower: Integer): Boolean
function MagMakeSkillFire_61(PlayObject: TBaseObject UserMagic: pTUserMagic nTargetX, nTargetY: Integer var TargeTBaseObject: TBaseObject): Boolean
function MagMakeSkillFire_62(PlayObject: TBaseObject UserMagic: pTUserMagic nTargetX, nTargetY: Integer var TargeTBaseObject: TBaseObject): Boolean
function MagMakeSkillFire_63(PlayObject: TBaseObject UserMagic: pTUserMagic nTargetX, nTargetY: Integer TargeTBaseObject: TBaseObject): Boolean
function MagMakeSkillFire_64(PlayObject: TBaseObject UserMagic: pTUserMagic nTargetX, nTargetY: Integer TargeTBaseObject: TBaseObject): Boolean
function MagMakeSkillFire_65(BaseObject: TBaseObject nPower: Integer): Boolean
end ,2007-12-06 21:10:33,下载1次