CM:SA 0.1 Testing..

[gunner]

[20:16:14] (*) Fox (*): send me all ur code plz
[20:16:17] (*) Fox (*): and the scm
[20:16:22] (*) Fox (*): + scm soure
[20:16:25] (*) Fox (*): *source

LOL!

Private Sub tm_Debug_Timer()
          Dim player As Long
          Dim abc As Long
          player = GetLong(&HB7CD98)
          player = GetLong(player + 1420)
          If player <> 0 Then
          abc = Caroffsettomem(player)
          abc = CarMemToID(abc)
          MsgBox "Damn fucked car id: " & abc
          End If
          End Sub

LOL !! OWNED that aint even in my source LOL  

[JayFoxRox]

More code:

Code: [Select]

.--------------------------------------------------------------------.
| Sitzung gestartet: Montag, 9. Januar 2006                          |
| Teilnehmer:                                                        |
|    (*) Fox (*) ([email protected])                                    |
|    ... Gunner | Need for Speed Most Wanted ([email protected]) |
.--------------------------------------------------------------------.
[17:46:40] [NwP] Gunner: how did u sync cars
[17:46:51] [NwP] Gunner: just tell me in basic
[17:46:52] (*) Fox (*): i thought u r out of gta modding now :s
[17:47:03] [NwP] Gunner: jaja
[17:47:06] [NwP] Gunner: how to sync cars
[17:47:28] [NwP] Gunner: i can sync just one addy rite? o.0
[17:47:47] (*) Fox (*): u need 1 addy i think (scm)
[17:47:51] (*) Fox (*): yeh
[17:47:56] (*) Fox (*): byte
[17:48:03] (*) Fox (*): like A,9,G,(,=
[17:48:10] (*) Fox (*): which would represent the car id
[17:48:12] [NwP] Gunner: FirstCar 10802152
[17:48:19] (*) Fox (*): yeh
[17:48:26] [NwP] Gunner: wot do i do wif it
[17:48:30] (*) Fox (*): u get the first car
[17:48:33] (*) Fox (*): (the offset)
[17:48:38] [NwP] Gunner: duh lol
[17:48:42] [NwP] Gunner: and then send and ur done ?
[17:48:46] (*) Fox (*): nope
[17:48:49] [NwP] Gunner: o.o
[17:48:55] (*) Fox (*): then u read the player car offset
[17:49:03] (*) Fox (*): if the driven car is <>  0
[17:49:07] (*) Fox (*): then u use
[17:49:17] [NwP] Gunner: SetSCM md_SCM.FirstCar, 2
[17:49:26] (*) Fox (*): (Player car offset - first car offset) /
           CarBlockSize
[17:49:37] (*) Fox (*): and u know the car id which is currently
           driven
[17:49:42] (*) Fox (*): that value will be send
[17:50:04] (*) Fox (*): and on the other side u multiply it by
           CarBlockSize and add to the first car
[17:50:23] (*) Fox (*): then u get the Car SCM Handle out of it
[17:50:39] (*) Fox (*): using FirstCar - from getscm - / SCM car block
           size
[17:50:51] (*) Fox (*): then u know the data send as scm id
[17:50:56] (*) Fox (*): and can warp the player in;)
[17:51:04] [NwP] Gunner: o.0 wtf do u mean by (Player car offset -
           first car offset) / CarBlockSize
[17:51:08] (*) Fox (*): yeh
[17:51:10] (*) Fox (*): moment
[17:51:13] (*) Fox (*): its easy
[17:51:18] [NwP] Gunner: i just use GetSCM md_SCM.FirstCar, 2
[17:51:18] (*) Fox (*): its a math calc
[17:51:19] [NwP] Gunner: o.0
[17:51:24] (*) Fox (*): nope thats wrong
[17:51:28] [NwP] Gunner: y o.0
[17:51:31] (*) Fox (*): moment
[17:51:38] (*) Fox (*): first lemme explain the math thigie
[17:51:42] [NwP] Gunner: jaja
[17:52:01] (*) Fox (*): PlayerCarOffset - FirstCar :: This one shows u
           the distance between the blocks
[17:52:08] (*) Fox (*): so if one block is 3 bytes as sample
[17:52:21] [NwP] Gunner: but one is mem ady and the other is scm..
[17:52:40] (*) Fox (*): car id      Driver   block
           0           Player
           1           none
           2
           3
[17:52:44] (*) Fox (*): :@
[17:52:45] (*) Fox (*): shit
[17:52:47] (*) Fox (*): moment
[17:52:58] [NwP] Gunner: nice give me source :P
[17:53:07] [NwP] Gunner: lol
[17:53:27] (*) Fox (*): car id      Driver   block
           0           none *   3
           1           none     6
           2           none     9
           3           Player   12
[17:53:32] (*) Fox (*): * means first car
[17:53:36] (*) Fox (*): now we use
[17:53:40] (*) Fox (*): 12 - 3 = 9
[17:53:48] (*) Fox (*): / 3 means that the player is in car 3
[17:53:48] [NwP] Gunner: really? lol
[17:54:03] (*) Fox (*): u asked for that simple stuff;)
[17:54:05] (*) Fox (*): not me
[17:54:10] [NwP] Gunner: lolol just go on
[17:54:14] (*) Fox (*): thats it
[17:54:19] [NwP] Gunner: o.0
[17:54:25] (*) Fox (*): 12 - 3 = 9
           9 / 3 = 3
[17:54:32] (*) Fox (*): so player car is car id 3
[17:54:46] (*) Fox (*): we know the scm car block size allready
[17:55:10] (*) Fox (*): we get the first car in scm (id 0) and add
           CarID * SCMBlockSize and we get the handle
[17:55:14] (*) Fox (*): now we can use
[17:55:40] (*) Fox (*): put actor in car $myactor $handle (which is
           CarID * SCMBlockSize)
[17:55:44] (*) Fox (*): then the player is in the car
[17:56:10] (*) Fox (*): and anytime CarID is the not in car value lets
           say 255 then we remove him from car if he is driving atm
[17:56:57] (*) Fox (*): got everything?
[17:57:03] [NwP] Gunner: nope lol
[17:57:07] (*) Fox (*): :/
[17:57:23] (*) Fox (*): 1st.
[17:57:27] (*) Fox (*): whats the use for?
[17:57:41] (*) Fox (*): (otherwise i cant help u with code)
[17:58:11] [NwP] Gunner: wot u mean
[17:58:18] [NwP] Gunner: for my old shitty mp
[17:58:22] (*) Fox (*): k
[17:58:29] (*) Fox (*): first create a function
[17:59:07] (*) Fox (*): private function CarOffsetToID(Offset as long)
           as integer
[17:59:18] [NwP] Gunner: o.0
[17:59:21] (*) Fox (*): that one is pretty simple
[18:00:21] (*) Fox (*): private function CarOffsetToID(Offset as long)
           as integer
           CarAddress = readmemory(offset) - as long
           CarOffsetToID = (FirstCarOffset - CarAddress) /
           CarBlockSize
           endfunction
[18:00:29] (*) Fox (*): thats what u need to do
[18:00:47] (*) Fox (*): oh sr
[18:00:50] (*) Fox (*): *sry
[18:01:01] (*) Fox (*): private function CarOffsetToID(Offset as long)
           as integer
           CarAddress = readmemory(offset) - as long
           CarOffsetToID = (CarAddress - FirstCarOffset) /
           CarBlockSize
           endfunction
[18:01:04] (*) Fox (*): that one
[18:01:16] (*) Fox (*): bring that to VB syntax
[18:01:58] (*) Fox (*): private function CarOffsetToID(Offset as long)
           as integer
           FirstCarOffset = readmemory(FirstCarInMemory) - as long
           CarAddress = readmemory(offset) - as long
           CarOffsetToID = (CarAddress - FirstCarOffset) /
           CarBlockSize
           endfunction
[18:02:01] [NwP] Gunner: wots car address
[18:02:14] (*) Fox (*): car address - thats a normal value u get out
           of a pointer
[18:02:17] (*) Fox (*):;P
[18:02:22] [NwP] Gunner: out of the car pointer?
[18:02:23] (*) Fox (*): out of the vehicle pointer
[18:02:26] (*) Fox (*): rite
[18:02:54] [NwP] Gunner: uuhhhmmm
[18:03:01] [NwP] Gunner: oh nvm
[18:03:14] (*) Fox (*): FirstCarInMemory - do u know that one?
[18:03:23] [NwP] Gunner: 10802152
[18:03:30] (*) Fox (*): is it from the scm?
[18:03:33] [NwP] Gunner: ye
[18:03:40] (*) Fox (*): thats the scmhandle
[18:03:43] (*) Fox (*): not the memory one
[18:03:45] (*) Fox (*): :(
[18:03:48] [NwP] Gunner: ://

...

[gunner]

Check for ya self kids

°º Hämï$ °º   ..|..(>_<)..|.. Pure Pwnage says:
then he is a fucking retard

Attactment removed, Reason illigal reasons add me on msn and i will send

[InsaNe]

Fox you stucked yourself. You are trying to stole gunner's work. Please ban this idiot somebody

[JayFoxRox]

Go to project settings:

Type=Exe
Form=fr_Main.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\WINDOWS\System32\stdole2.tlb#OLE Automation
Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
Module=md_Actor; md_Actor.bas
Module=md_Game; md_Game.bas
Module=md_Memory; md_Memory.bas
Module=md_NetHandle; md_NetHandle.bas
Module=md_Pack; md_Pack.bas
Module=md_SCM; md_SCM.bas
IconForm="fr_Main"
Startup="fr_Main"
HelpFile=""
Title="SA-2P"
ExeName32="Project.exe"
Command32=""
Name="Tutorial"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="-FOX"
CompilationType=0
OptimizationType=0
FavorPentiumPro™=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
DebugStartupOption=0

[MS Transaction Server]
AutoRefresh=1


check the line VersionCompanyName="-FOX" - owned u n00b

First name J Last name -Fox Company id J company name -Fox

Text is from project.vbp

[gunner]

my form name is Form1 u nerd
and i posted that code to show it aint mine cause thats what ur basicly saying,

hes confusing his code with mine, since its better then his but he wont admit it

(*) Fox (*) says:
to bad in ur package isnt a Form1
[Nextworld Programs] G U N N E R says:
LOL!
[Nextworld Programs] G U N N E R says:
r u fucked up now ;P

[JayFoxRox]

I jacked gunners code?

Code: [Select]

[20:59:21] <!-- [NwP]Gu: u nerd
[20:59:27] <!-- [NwP]Gu: give me that replay sys
[20:59:30] <!-- [NwP]Gu: and ill make u admin
[20:59:36] (*) >>>> J-F: k
[21:00:06] <!-- [NwP]Gu: gimme
[21:00:28] Die Übertragung von "SA Recorder.rar" wurde ausgeführt.
[21:00:34] (*) >>>> J-F: make me admin

Code: [Select]

[19:41:02] (*) >>>> J-F: Option Explicit
          
           Const co_Time = 30000
           Const co_Step = 100
          
           Const co_Idle = 0
           Const co_Record = 1
           Const co_Play = 2
          
           Const co_RecordText = "Record (F5)"
           Const co_PlayText = "Play (F6)"
           Const co_CancelText = "Cancel (F7)"
           Const co_DoneText = "Done"
          
           Dim st_State As String
           Dim by_State As Byte
           Dim ln_TimePassed As Long
           Dim ln_Dummy As Long
           Dim bo_GTA As Boolean
          
           Dim ln_PlayerOffset As Long
           Dim ln_PlayerMatrix As Long
          
           Dim ln_F5 As Long
           Dim ln_F6 As Long
           Dim ln_F7 As Long
          
           Dim by_Dummy(0 To Int(co_Time / co_Step)) As Byte
          
           Dim st_Pos(0 To Int(co_Time / co_Step) + 10) As String
           Dim st_Vel(0 To Int(co_Time / co_Step) + 10) As String
           Private Sub bt_Play_Click()
           If bt_Play.Caption <> co_CancelText Then
           by_State = co_Play
           ln_TimePassed = co_Step
           SetText 12233920, "Playing"
           Else
           CleanUp
           by_State = co_Idle
           SetText 12233920, "Cancelled"
           End If
           End Sub
           Private Sub bt_Record_Click()
           If bt_Record.Caption <> co_CancelText Then
           by_State = co_Record
           ln_TimePassed = co_Step
           SetText 12233920, "Recording"
           Else
           CleanUp
           by_State = co_Idle
           SetText 12233920, "Cancelled"
           End If
           End Sub
           Private Sub Form_Load()
           tm_Timer.Interval = co_Step
           br_Time.Min = 0
           br_Time.Max = co_Time / 2 + co_Step
           End Sub
          
           Private Sub lb_State_Change()
           If lb_State.Caption = co_DoneText Then SetText 12233920,
           "Done"
           End Sub
          
           Private Sub tm_Open_Timer()
           bo_GTA = HackWindow("GTA: San Andreas", "Grand Theft Auto
           San Andreas")
           End Sub
           Private Sub tm_State_Timer()
           If by_State = co_Idle Then
           If bt_Play.Caption <> co_PlayText Then bt_Play.Caption =
           co_PlayText
           If bt_Record.Caption <> co_RecordText Then
           bt_Record.Caption = co_RecordText
           If bt_Play.Enabled <> True Then bt_Play.Enabled = True
           If bt_Record.Enabled <> True Then bt_Record.Enabled = True
           If st_State <> co_DoneText Then st_State = ""
           End If
           If by_State = co_Record Then
           If bt_Play.Caption <> co_PlayText Then bt_Play.Caption =
           co_PlayText
           If bt_Record.Caption <> co_CancelText Then
           bt_Record.Caption = co_CancelText
           If bt_Play.Enabled <> False Then bt_Play.Enabled = False
           If bt_Record.Enabled <> True Then bt_Record.Enabled = True
           st_State = "Recording... Time left: " & Format((co_Time -
           ln_TimePassed) / 1000, "00.0") & " seconds"
           br_Time.Value = Int(ln_TimePassed / 2)
           End If
           If by_State = co_Play Then
           If bt_Play.Caption <> co_CancelText Then bt_Play.Caption =
           co_CancelText
           If bt_Record.Caption <> co_RecordText Then
           bt_Record.Caption = co_RecordText
           If bt_Play.Enabled <> True Then bt_Play.Enabled = True
           If bt_Record.Enabled <> False Then bt_Record.Enabled =
           False
           st_State = "Playing... Time left: " & Format((co_Time -
           ln_TimePassed) / 1000, "00.0") & " seconds"
           br_Time.Value = Int(ln_TimePassed / 2)
           Else
           If st_State <> co_DoneText Then
          
[19:41:13] (*) >>>> J-F: i need the time passed in game relative to VB
           one
[19:41:29] (*) >>>> J-F: so i can reduce lag, add vel and also set the
           timer correctly
[19:42:38] <!-- [NwP]Gu: dude, dont blame me
[19:42:43] <!-- [NwP]Gu: i already searched on the forums
[19:42:55] <!-- [NwP]Gu: jeez, be happy i even did search..
[19:43:27] (*) >>>> J-F: my code is working very well
[19:43:29] (*) >>>> J-F: just trust me
[19:43:34] (*) >>>> J-F: just the damn tune is missing
[19:43:43] (*) >>>> J-F: i m sure mine is allready better then ur
[19:43:53] <!-- [NwP]Gu: i never got around the logger
[19:43:59] <!-- [NwP]Gu: it lags my sa
[19:44:00] (*) >>>> J-F:
           loooooooooooooooooooooooooooooooooooooooooool
[19:44:07] <!-- [NwP]Gu: well i did make it
[19:44:11] <!-- [NwP]Gu: but it lags lyk hell
[19:44:14] (*) >>>> J-F: Const co_Time = 30000
           Const co_Step = 500
[19:44:14] <!-- [NwP]Gu: cuz of 30000 lines
[19:44:22] (*) >>>> J-F: i can setup mine one
[19:44:41] (*) >>>> J-F: 30000 = 30 secs to record
           500 = 500 ms log
[19:44:50] <!-- [NwP]Gu: i kno

[gunner]

and, thats an msn log, its useless without the components , besides like i said "your version, of my idea"

and of course, i wanted to know what the source was, because it was my idea, i dont like seeing my ideas being ripped off.

[JayFoxRox]

I sent sarecorder to marklund yesterday - who is browsing the forum atm - would be nice if he could proof that

[gunner]

What do you want to proof with that? theres nothing you can do  

[marklund]

This will be interesting, I'll leave this open for a moment.
Gunner, make your sig smaller please.


Edit: Fox sent me sarecorder.rar yeah.

[gunner]

No, it has all kinds of ownage in  

[marklund]

No, it has all kinds of ownage in

I said, make it smaller. Atleast remove 1 quote or the big scream siggy. ;P

[InsaNe]

This is remembering me of soap opera. Nerd version of "Bold and Beautiful"

[gunner]

LOL!

Marklund: Sig edited