This is a reminder of 3 IMPORTANT RULES:
1- External self-promotion websites or apps are NOT allowed here, like Discord/Twitter/Patreon/etc.
2- Do NOT post in other languages. English-only.
3- Crack/Warez/Piracy talk is NOT allowed.
Breaking any of the above rules will result in your messages being deleted and you will be banned upon repetition.
Please, stop by this thread SoccerGaming Forum Rules And Guidelines and make sure you read and understand our policies.
Thank you!
Fidel will be able to edit the structures of the leagues?
thanks regularcat for answering! Could you edit the textures?
The link code will be generated? You can see in the code in the MsgBox and in the txt file generated?
Share the patch folder where is installed/placed your Origin.exe - generally is: CProgram Files (x86)\Origin (default folder)
because Origin client is a 32bit app.
Probably you have installed Origin in another place. (I'll release an update in the code to retrieve also Origin patch folder).
In this case you can just adjust the real patch folder where is installed Origin in your pc:
and so edit the FIFA18MOD shortcut with new patch info.
Or go in folder where is installed/placed your Origin.exe, right click it and from menù click send to desktop create shortcut
Follow steps and on step 3 paste code in this shortcut you have created before.
Very strange because tested FLCG in 6 PCs with Win 7 -10 (origin+fifa) and perfectly working.
If you have a protection in you pc allow full control from my tools.
Let me know if solved.
If not solved share the patch where is installed your FIFA 18 game, I'll share you back another coded tool working in your pc.
I tried the shortcut from your post before, and changed the offerIDs value using the number of the DLF file in the folder "CProgramData\Electronic Arts\EA Services\License".
Still not working... it closes.
"CProgram Files (x86)\Origin\Origin.exe" "origin2://game/launch/?offerIds=XXXXXX&title=FIFA%u002018&authCode=&cmdParams=-dataPath%20%22D%3a%5cjuegos%5cFIFA%2018%5cModData%22"
;**** FIFA 18 CM16 TO 18 Database Converter Tool
;**** Doctor+ Productions - FIFA Mods and Tools
#include <Array.au3>
#include <Excel.au3>
#include <ExcelConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
#include <FileConstants.au3>
; Create application object and open the workbook
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "CM16DB18 CONV TOOL [D+]", "First time you started? Error creating the Excel application object. RUN AGAIN AND IT WILL WORK" & @CRLF & "@error = " & @error & ", @extended = " & @extended)
; Open Workbook 1
Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\16db\players.txt")
Local $oWorkbook1 = _Excel_BookOpen($oExcel, @ScriptDir & "\BASE_players.xlsx")
If @error Then
MsgBox($MB_SYSTEMMODAL, "CM16DB18 CONV TOOL [D+]", "Error opening workbook '" & @ScriptDir & "\BASE_players.xlsx" & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_Excel_Close($oExcel)
Exit
EndIf
Local $iEntireRowCol = 1
Local $bCut = $oWorkbook.ActiveSheet.Range("A:DA")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook1.ActiveSheet, $bCut, "A:DA")
Sleep(1500)
_Excel_BookSave($oWorkbook1)
;MsgBox($MB_SYSTEMMODAL, "CM16DB18 CONV TOOL 0.1 [D+]", "Vedi se copiato players table in template")
;Local $sRange = "F:F"
;Local $iEntireRowCol = 1
;_Excel_RangeDelete ($oWorkbook.ActiveSheet, $sRange, $iEntireRowCol = 1)
;_Excel_RangeCopyPaste($oWorkbook1.Worksheets(2), "1:2")
;If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeCopy Example 3", "Error copying rows." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
;MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeCopy Example 3", "Rows 1+2 successfully copied from worksheet 2 to the clipboard.")
; ***********************
; Create application object and open an example workbook
Local $bVisible = False
Local $bInteractive = False
Local $oExcel = _Excel_Open($bInteractive = False)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "CM16DB18 CONV TOOL [D+]", "First time you started? Error creating the Excel application object. RUN AGAIN AND IT WILL WORK" & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\BASE_players.xlsx", $bVisible = False )
If @error Then
MsgBox($MB_SYSTEMMODAL, "CM16DB18 CONV TOOL [D+]", "Error opening workbook '" & @ScriptDir & "\BASE_players.xlsx" & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_Excel_Close($oExcel)
Exit
EndIf
; *****************************************************************************
; Insert 5 columns before colum E on the active worksheet
; *****************************************************************************
_Excel_RangeInsert($oWorkbook.Activesheet, "A:E")
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "CM16DB18 CONV TOOL [D+]", "Error inserting columns." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
;MsgBox($MB_SYSTEMMODAL, "CM16DB18 CONV TOOL [D+]", "5 columns successfully inserted before column X.")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")-----
Local $bCut = $oWorkbook.ActiveSheet.Range("F1:F18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "DS1:DS18650")
Local $sRange = "F:F"
Local $iEntireRowCol = 1
_Excel_RangeDelete ($oWorkbook.ActiveSheet, $sRange, $iEntireRowCol = 1)
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")-----
Local $bCut = $oWorkbook.ActiveSheet.Range("AN1:AN18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "A1:A18650")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")-----
Local $bCut = $oWorkbook.ActiveSheet.Range("BF1:BF18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "B1:B18650")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")-----
Local $bCut = $oWorkbook.ActiveSheet.Range("CV1:CV18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "C1:C18650")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")-----
Local $bCut = $oWorkbook.ActiveSheet.Range("CX1:CX18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "D1:D18650")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")-----
Local $bCut = $oWorkbook.ActiveSheet.Range("CN1:CN18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "E1:E18650")
_Excel_RangeInsert($oWorkbook.Activesheet, "N:N")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")----
Local $bCut = $oWorkbook.ActiveSheet.Range("DO1:DO18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "N1:N18650")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")----
Local $bCut = $oWorkbook.ActiveSheet.Range("DP1:DP18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "Q1:Q18650")
_Excel_RangeInsert($oWorkbook.Activesheet, "AG:AG")
;MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeInsert Example 2", "Composure")
Sleep(1000)
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")----
Local $bCut = $oWorkbook.ActiveSheet.Range("EI1:EI18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "AG1:AG18650")
_Excel_RangeInsert($oWorkbook.Activesheet, "AJ:AJ")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")----
Local $bCut = $oWorkbook.ActiveSheet.Range("EK1:EK18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "AJ1:AJ18650")
Local $sRange = "AQ:AQ"
Local $iEntireRowCol = 1
_Excel_RangeDelete ($oWorkbook.ActiveSheet, $sRange, $iEntireRowCol = 1)
_Excel_RangeInsert($oWorkbook.Activesheet, "AV:AV")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")----
Local $bCut = $oWorkbook.ActiveSheet.Range("DU1:DU18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "AV1:AV18650")
_Excel_RangeInsert($oWorkbook.Activesheet, "BF:BF")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")----
Local $bCut = $oWorkbook.ActiveSheet.Range("EM1:EM18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "BF1:BF18650")
Local $sRange = "BJ:BJ"
Local $iEntireRowCol = 1
_Excel_RangeDelete ($oWorkbook.ActiveSheet, $sRange, $iEntireRowCol = 1)
_Excel_RangeInsert($oWorkbook.Activesheet, "BU:BU")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")----
Local $bCut = $oWorkbook.ActiveSheet.Range("EN1:EN18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "BU1:BU18650")
_Excel_RangeInsert($oWorkbook.Activesheet, "BX:BX")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")----
Local $bCut = $oWorkbook.ActiveSheet.Range("EP1:EP18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "BX1:BX18650")
_Excel_RangeInsert($oWorkbook.Activesheet, "CM:CM")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")----
Local $bCut = $oWorkbook.ActiveSheet.Range("ER1:ER18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "CM1:CM18650")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")----
Local $bCut = $oWorkbook.ActiveSheet.Range("ES1:ES18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "CT1:CT18650")
_Excel_RangeInsert($oWorkbook.Activesheet, "CX:CX")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")----
Local $bCut = $oWorkbook.ActiveSheet.Range("EU1:EU18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "CX1:CX18650")
Sleep(1000)
Local $sRange = "DC:DC"
Local $iEntireRowCol = 1
_Excel_RangeDelete ($oWorkbook.ActiveSheet, $sRange, $iEntireRowCol = 1)
Local $sRange = "DD:DD"
Local $iEntireRowCol = 1
_Excel_RangeDelete ($oWorkbook.ActiveSheet, $sRange, $iEntireRowCol = 1)
_Excel_RangeInsert($oWorkbook.Activesheet, "DD:DD")
;Local $oRange = $oWorkbook.ActiveSheet.Range("AJ")----
Local $bCut = $oWorkbook.ActiveSheet.Range("EU1:EU18650")
;_Excel_RangeCopyPaste($oWorkbook.ActiveSheet, $oRange, "A")
_Excel_RangeCopyPaste ($oWorkbook.ActiveSheet, $bCut, "DD1:DD18650")
Local $sRange = "DT:EU"
Local $iEntireRowCol = 1
_Excel_RangeDelete ($oWorkbook.ActiveSheet, $sRange, $iEntireRowCol = 1)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "CM16DB18 CONV TOOL [D+]", "Error copying cells." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
;MsgBox($MB_SYSTEMMODAL, "CM16DB18 CONV TOOL [D+]", "PLAYERS TABLE CONVERTED - CLICK OK TO FIX UNICODE AND SAVE")
Sleep(1000)
;Global Const $xlUnicodeText = 42 ; Unicode Text
; .....continue. This is a partial code...