1 / 164

STRING Base,Bla,Leine,Quest(7),LordPath,Lord2Path,TeosPath,JediPath,UlbyPath,MyPath

STRING Base,Bla,Leine,Quest(7),LordPath,Lord2Path,TeosPath,JediPath,UlbyPath,MyPath. INTEGER i. if (instr(ppepath(),":")=0) then. shell 1,Bla,"CHDIR"," > "+ppepath()+"WHEREAMI.DIR". MyPath=rtrim(readline(ppepath()+"WHEREAMI.DIR",1)+ppepath(),"")+"". else. MyPath=PpePath().

lilian
Download Presentation

STRING Base,Bla,Leine,Quest(7),LordPath,Lord2Path,TeosPath,JediPath,UlbyPath,MyPath

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. STRING Base,Bla,Leine,Quest(7),LordPath,Lord2Path,TeosPath,JediPath,UlbyPath,MyPath

  2. INTEGER i

  3. if (instr(ppepath(),":\")=0) then

  4. shell 1,Bla,"CHDIR"," > "+ppepath()+"WHEREAMI.DIR"

  5. MyPath=rtrim(readline(ppepath()+"WHEREAMI.DIR",1)+ppepath(),"\")+"\"

  6. else

  7. MyPath=PpePath()

  8. endif

  9. if (Exist(PpePath()+"WHEREAMI.DIR")) Delete PpePath()+"WHEREAMI.DIR"

  10. if (Exist(PpePath()+"RESULT.DIR")) Delete PpePath()+"RESULT.DIR"

  11. print "@POFF@@CLS@@POFF@"

  12. println "Welcome to the User Info System Installation PPE!"

  13. println

  14. println "Please read the dox before you do anything you might regret later."

  15. println

  16. println "If you think some files are missing or something is fucked up you still can"

  17. println "edit UINFO.CFG manually after this PPE has ended."

  18. println

  19. println "The first thing you have to do is to enter a path that has all"

  20. println "your online games and ULBY.DAT in its subdirectories, e.g. D:\PCB."

  21. :baseher

  22. inputtext "",Base,@X07,70

  23. base=upper(rtrim(base,"\")+"\")

  24. println

  25. if (!exist(base+"NUL")) then

  26. println "The directory ",base," does not exist! Try again..."

  27. goto baseher

  28. endif

  29. println "This PPE will now start to search all suported files in this directory"

  30. println "and in its subdirectories. This can take a while if you entered e.g. D:\"

  31. wait

  32. shell 1,Bla,"DIR"," /A /B /S "+Base+"*.DAT > "+ppepath()+"RESULT.DIR"

  33. if (!exist(PpePath()+"RESULT.DIR")) end

  34. FOpen 1,ppepath()+"RESULT.DIR",0,0

  35. While (!FERR(1)) do

  36. FGet 1,Leine

  37. Leine=upper(trim(Leine," "))

  38. if (Right(Leine,8)="ULBY.DAT") UlbyPath=Leine

  39. if (Right(Leine,10)="PLAYER.DAT") then

  40. i=FileInf(Leine,4)/236

  41. if (i*236=fileinf(Leine,4)) LordPath=Leine

  42. endif

  43. if (Right(Leine,10)="TRADER.DAT") then

  44. i=FileInf(Leine,4)/1193

  45. if (i*1193=fileinf(Leine,4)) Lord2Path=Leine

  46. i=FileInf(Leine,4)/689

  47. if (i*689=fileinf(Leine,4)) TeosPath=Leine

  48. endif

  49. if (Right(Leine,9)="USERS.DAT") then

  50. i=FileInf(Leine,4)/720

More Related