Download
cockroach s oneliner c 1997 98 wire maniacs version 3 00 n.
Skip this Video
Loading SlideShow in 5 Seconds..
;cockroach's oneliner (c) 1997/98 wire maniacs - version 3.00 PowerPoint Presentation
Download Presentation
;cockroach's oneliner (c) 1997/98 wire maniacs - version 3.00

;cockroach's oneliner (c) 1997/98 wire maniacs - version 3.00

90 Views Download Presentation
Download Presentation

;cockroach's oneliner (c) 1997/98 wire maniacs - version 3.00

- - - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript

  1. ;cockroach's oneliner (c) 1997/98 wire maniacs - version 3.00

  2. ;

  3. ;do not rip this code. if you rip parts of it, please credit me.

  4. ;if you want your very own ppe for free mail me at cockroach@mindless.com

  5. string line(18),writer(18),topname(1000),top(5),dls(5),tempstr(2),color(6),char

  6. string config(8),pos(2),key,blacklist(50),heroes,clr(16),emptyline

  7. integer temp(2),topnum(1000),tops,position,blacks,fourth,store,linelength

  8. integer foreground,background

  9. boolean done,save,stored,work,colchange,found

  10. getuser

  11. dispfile ppepath()+ppename()+".pcb",graph

  12. clr(1)="0"

  13. clr(2)="1"

  14. clr(3)="2"

  15. clr(4)="3"

  16. clr(5)="4"

  17. clr(6)="5"

  18. clr(7)="6"

  19. clr(8)="7"

  20. clr(9)="8"

  21. clr(10)="9"

  22. clr(11)="A"

  23. clr(12)="B"

  24. clr(13)="C"

  25. clr(14)="D"

  26. clr(15)="E"

  27. clr(16)="F"

  28. fopen 1,ppepath()+ppename()+".cfg",o_rd,s_dn

  29. fget 1,color(1)

  30. fget 1,color(2)

  31. fget 1,char

  32. fget 1,pos(1)

  33. fget 1,pos(2)

  34. fget 1,color(3)

  35. fget 1,color(4)

  36. fget 1,color(5)

  37. fget 1,color(6)

  38. fget 1,emptyline

  39. fclose 1

  40. fopen 1,ppepath()+"config"+langext(),o_rd,s_dn

  41. fget 1,heroes

  42. for temp(1)=1 to 8

  43. fget 1,config(temp(1))

  44. next

  45. fclose 1

  46. fopen 1,ppepath()+ppename()+".dat",o_rd,s_dn

  47. for temp(1)=1 to 18

  48. fget 1,line(temp(1))

  49. fget 1,writer(temp(1))

  50. next