API tools faq
paste
Advertisement
Simlor_GER

SimNetSystem SimUserTool - (Privat Project)

Simlor_GER
Jul 14th, 2017
180
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.54 KB | None | 0 0
raw download clone embed print report
  1. --SimNetSystem by Simlor (http://www.computercraft.info/forums2/index.php?/user/55655-simlor/)
  2.  
  3. SichereServerID = 2 --Frage nach der richtigen ID
  4.  
  5. rednet.open("back") --back,front,top,left,right
  6.  
  7.  
  8. --Im Normalfall NICHT aendern!
  9.  
  10. name = nil
  11.  
  12. pass = nil
  13.  
  14. --Funktionen
  15.  
  16. --Sucher
  17.  
  18. function SimAnfrager(SAserverid, SAnachricht) --Server!
  19.  
  20. TC(16)
  21. print("")
  22. print("Bitte warte...")
  23.  
  24. SaveID = math.random(111111111,999999999)
  25.  
  26. print("")
  27. print("Deine SaveID ist: "..SaveID)
  28. print("")
  29.  
  30. rednet.send(SAserverid, SAnachricht, SaveID)
  31.  
  32. print("Warte auf eine Antwort des Servers...") --SV = SimVerteiler
  33.  
  34. ServerID = nil
  35. antwort = nil
  36. Feedback = false
  37.  
  38. ServerID, antwort = rednet.receive(SaveID, 3)
  39.  
  40. if not ServerID then
  41.  
  42. print("Warte auf eine Antwort des Servers (2/3)...")
  43.  
  44. ServerID = nil
  45. antwort = nil
  46.  
  47. rednet.send(SAserverid, SAnachricht, SaveID)
  48.  
  49. ServerID, antwort = rednet.receive(SaveID, 3)
  50.  
  51. if not ServerID then
  52.  
  53. print("Warte auf eine Antwort des Servers (3/3)...")
  54.  
  55. ServerID = nil
  56. antwort = nil
  57.  
  58. rednet.send(SAserverid, SAnachricht, SaveID)
  59.  
  60. ServerID, antwort = rednet.receive(SaveID, 3)
  61.  
  62. if not ServerID then
  63.  
  64. TC(16384)
  65. print("")
  66. print("Der Server antwortet nicht")
  67.  
  68. else
  69.  
  70. Feedback = true
  71.  
  72. end
  73.  
  74. else
  75.  
  76. Feedback = true
  77.  
  78. end
  79.  
  80. else
  81.  
  82. Feedback = true
  83.  
  84. end
  85. end
  86.  
  87. --Clear
  88.  
  89. function Clear()
  90. term.clear()
  91. term.setCursorPos(1,1)
  92. end
  93.  
  94.  
  95. --Set Cursorposition
  96.  
  97. function CP(x,y)
  98. term.setCursorPos(x,y)
  99. end
  100.  
  101.  
  102. --Set Background Color
  103.  
  104. function BC(farbe)
  105. term.setBackgroundColor(farbe)
  106. end
  107.  
  108.  
  109. --Set Text Color
  110.  
  111. function TC(farbe)
  112. term.setTextColor(farbe)
  113. end
  114.  
  115. --TextTool
  116.  
  117. function TextTool()
  118.  
  119. TC(128)
  120. print("")
  121. print("--Text--Text--Text--")
  122. print("")
  123.  
  124. while true do
  125.  
  126. ServerID, eingabe, SaveID = rednet.receive(SaveID, 3)
  127.  
  128. if eingabe == "end" or eingabe == nil then
  129.  
  130. break
  131.  
  132. else
  133.  
  134. TC(16)
  135. print(eingabe)
  136.  
  137. end
  138. end
  139.  
  140. TC(128)
  141. print("")
  142. print("--Text--Text--Text--")
  143.  
  144. end
  145.  
  146. --System
  147.  
  148. BC(32768)
  149. Clear()
  150.  
  151. TC(8)
  152.  
  153. print("SimUserTool")
  154. TC(128)
  155. print("-----------")
  156. print("")
  157. TC(16)
  158. print("Gebe 'help' ein, um eine")
  159. print("Command-Liste zu erhalten.")
  160.  
  161. while true do
  162.  
  163. print(" ")
  164. TC(128)
  165. write("> ")
  166. TC(512)
  167.  
  168. eingabe = read()
  169.  
  170. print(" ")
  171.  
  172. --Commands
  173.  
  174. if eingabe == "help" then
  175.  
  176. TC(16)
  177. print(" help")
  178. print(" connect")
  179. print(" getlist")
  180. print(" exit")
  181.  
  182.  
  183. --
  184.  
  185. elseif eingabe == "connect" then
  186.  
  187.  
  188. write("SN: ") -- SN = Server Name
  189. TC(512)
  190. eingabe = read()
  191.  
  192. if eingabe == nil or eingabe == "" then
  193.  
  194. TC(16384)
  195. print("")
  196. print("Bitte gebe einen SN ein.")
  197.  
  198. else
  199.  
  200. TC(16)
  201. print("")
  202. print("Bitte warte...")
  203.  
  204. SaveID = math.random(111111111,999999999)
  205.  
  206. print("")
  207. print("Deine SaveID ist: "..SaveID)
  208. print("")
  209.  
  210. rednet.send(SichereServerID, "connect", SaveID)
  211.  
  212. print("Warte auf eine Antwort des SV...") --SV = SimVerteiler
  213.  
  214. ServerID = nil
  215. antwort = nil
  216. Feedback = false
  217.  
  218. ServerID, antwort = rednet.receive(SaveID, 3)
  219.  
  220. if not ServerID then
  221.  
  222. print("Warte auf eine Antwort des SV (2/3)...")
  223.  
  224. ServerID = nil
  225. antwort = nil
  226.  
  227. rednet.send(SichereServerID, "connect", SaveID)
  228.  
  229. ServerID, antwort = rednet.receive(SaveID, 3)
  230.  
  231. if not ServerID then
  232.  
  233. print("Warte auf eine Antwort des SV (3/3)...")
  234.  
  235. ServerID = nil
  236. antwort = nil
  237.  
  238. rednet.send(SichereServerID, "connect", SaveID)
  239.  
  240. ServerID, antwort = rednet.receive(SaveID, 3)
  241.  
  242. if not ServerID then
  243.  
  244. Feedback = false
  245.  
  246. TC(16384)
  247. print("")
  248. print("Der SV antwortet nicht")
  249.  
  250. else
  251.  
  252. Feedback = true
  253.  
  254. end
  255.  
  256. else
  257.  
  258. Feedback = true
  259.  
  260. end
  261.  
  262. else
  263.  
  264. Feedback = true
  265.  
  266. end
  267. end
  268.  
  269. if Feedback == true then
  270.  
  271. rednet.send(ServerID, eingabe, SaveID)
  272.  
  273. AlteServerID, ServerID = rednet.receive(SaveID,3)
  274.  
  275. if ServerID == "false" then
  276.  
  277. print("")
  278. TC(16384)
  279. print("Der Server wurde nicht gefunden")
  280.  
  281. Feedback = false
  282.  
  283. else
  284.  
  285. TC(32)
  286. print("")
  287. print("Weiterleitung")
  288. TC(16)
  289. print("")
  290. ServerID = (ServerID+0)
  291. newServerID = ServerID
  292. print("NS: "..eingabe)
  293. print("ID: "..ServerID)
  294.  
  295. NSconsole = eingabe
  296.  
  297. --Interne Console
  298.  
  299. SimAnfrager(ServerID, "connect")
  300.  
  301. end
  302.  
  303. if Feedback == true then
  304.  
  305. TC(32)
  306. print("")
  307. print("Der Server antwortet und es")
  308. print("werden nun alle Daten gesendet...")
  309.  
  310. CommandList = {}
  311.  
  312. table.insert(CommandList, "help")
  313. table.insert(CommandList, "login")
  314.  
  315. while true do
  316.  
  317. antwort = nil
  318. ServerID, antwort = rednet.receive(SaveID,3)
  319.  
  320. if antwort == "end" or antwort == nil then
  321.  
  322. table.insert(CommandList, "exit")
  323. alleC = table.getn(CommandList)
  324. break
  325.  
  326. else
  327.  
  328. table.insert(CommandList, antwort)
  329.  
  330. end
  331. end
  332.  
  333. TC(16)
  334. print("")
  335. print("Server Console")
  336.  
  337. SC = false
  338.  
  339. while true do
  340.  
  341. print(" ")
  342. TC(512)
  343. write(NSconsole)
  344. TC(128)
  345. write("> ")
  346. TC(512)
  347.  
  348. eingabe = read()
  349.  
  350. print(" ")
  351.  
  352. C = 0
  353.  
  354. while true do
  355.  
  356. C = (C+1)
  357.  
  358. if eingabe == "login" then
  359.  
  360. print("")
  361. TC(16)
  362. write("username: ")
  363. name = read()
  364. write("passwort: ")
  365. pass = read("#")
  366.  
  367. print("")
  368. print("ACHTUNG: Es findet keine Live-Server-Ueberpruefung statt")
  369.  
  370. break
  371.  
  372. elseif eingabe == "exit" then
  373.  
  374. print("")
  375. TC(16)
  376. print("Die Server Console wurde verlassen")
  377.  
  378. SC = true
  379.  
  380. break
  381.  
  382. elseif eingabe == "help" then
  383.  
  384. print("")
  385. TC(16)
  386.  
  387. C = 0
  388.  
  389. while true do
  390.  
  391. C = (C+1)
  392.  
  393. print(" "..CommandList[C])
  394.  
  395. if C == (table.getn(CommandList)) then
  396. break
  397. end
  398. end
  399.  
  400. break
  401.  
  402. elseif CommandList[C] == eingabe then
  403.  
  404. TC(16)
  405. print("")
  406. print("Bitte warte...")
  407.  
  408. SaveID = math.random(111111111,999999999)
  409.  
  410. print("")
  411. print("Deine SaveID ist: "..SaveID)
  412. print("")
  413.  
  414. ServerID = newServerID
  415.  
  416. rednet.send(ServerID, eingabe, SaveID)
  417.  
  418. antwort = nil
  419.  
  420. ServerID, antwort = rednet.receive(SaveID,3)
  421.  
  422. if antwort == "login" then
  423.  
  424. print("")
  425. TC(16)
  426. print("Login gestartet...")
  427.  
  428. if pass == nil or name == nil then
  429.  
  430. TC(16384)
  431. print("")
  432. print("Bitte logge dich zuerst ein")
  433.  
  434. else
  435.  
  436. print("")
  437. TC(16)
  438. print("Sende die Login Daten...")
  439.  
  440. rednet.send(ServerID, name, SaveID)
  441. rednet.send(ServerID, pass, SaveID)
  442.  
  443. antwort = nil
  444. ServerID, antwort = rednet.receive(SaveID,3)
  445.  
  446. if antwort == "false" then
  447.  
  448. TC(16384)
  449. print("")
  450. print("Das Login ist fehlgeschlagen")
  451.  
  452. elseif antwort == "true" then
  453.  
  454. TC(32)
  455. print("")
  456. print("Der Befehl wurde ausgefuehrt")
  457.  
  458. elseif antwort == "text" then
  459.  
  460. TextTool()
  461.  
  462. else
  463.  
  464. TC(16384)
  465. print("")
  466. print("Es gab einen Fehler")
  467.  
  468. end
  469.  
  470. end
  471.  
  472. elseif antwort == "true" then
  473.  
  474. TC(32)
  475. print("")
  476. print("Der Befehl wurde ausgefuehrt")
  477.  
  478. elseif antwort == "text" then
  479.  
  480. TextTool()
  481.  
  482. else
  483.  
  484. TC(16384)
  485. print("")
  486. print("Der Server antwortet nicht oder falsch")
  487.  
  488. end
  489.  
  490. break
  491.  
  492. elseif C == (table.getn(CommandList)) then
  493.  
  494. TC(16384)
  495. print("Der Command wurde nicht gefunden: '"..eingabe.."'")
  496.  
  497. break
  498.  
  499. end
  500.  
  501. end
  502.  
  503. if SC == true then
  504.  
  505. break
  506. end
  507.  
  508. end
  509. end
  510.  
  511.  
  512.  
  513. --ende Interne Console
  514.  
  515. end
  516.  
  517. --
  518.  
  519. elseif eingabe == "getlist" then
  520.  
  521. TC(16)
  522. print("")
  523. print("Bitte warte...")
  524.  
  525. SaveID = math.random(111111111,999999999)
  526.  
  527. print("")
  528. print("Deine SaveID ist: "..SaveID)
  529. print("")
  530.  
  531. rednet.send(SichereServerID, "getlist", SaveID)
  532.  
  533. print("Warte auf eine Antwort des SV...") --SV = SimVerteiler
  534.  
  535. ServerID = nil
  536. antwort = nil
  537. Feedback = false
  538.  
  539. ServerID, antwort = rednet.receive(SaveID, 3)
  540.  
  541. if not ServerID then
  542.  
  543. print("Warte auf eine Antwort des SV (2/3)...")
  544.  
  545. ServerID = nil
  546. antwort = nil
  547.  
  548. rednet.send(SichereServerID, "getlist", SaveID)
  549.  
  550. ServerID, antwort = rednet.receive(SaveID, 3)
  551.  
  552. if not ServerID then
  553.  
  554. print("Warte auf eine Antwort des SV (3/3)...")
  555.  
  556. ServerID = nil
  557. antwort = nil
  558.  
  559. rednet.send(SichereServerID, "getlist", SaveID)
  560.  
  561. ServerID, antwort = rednet.receive(SaveID, 3)
  562.  
  563. if not ServerID then
  564.  
  565. TC(16384)
  566. print("")
  567. print("Der SV antwortet nicht")
  568.  
  569. else
  570.  
  571. Feedback = true
  572.  
  573. end
  574.  
  575. else
  576.  
  577. Feedback = true
  578.  
  579. end
  580.  
  581. else
  582.  
  583. Feedback = true
  584.  
  585. end
  586.  
  587. if Feedback == true then
  588.  
  589. TC(32)
  590. print("")
  591. print("Server Liste")
  592. print("")
  593.  
  594. while true do
  595.  
  596. antwort = nil
  597. ServerID, antwort = rednet.receive(SaveID,3)
  598.  
  599. if antwort == nil or antwort == "end" then
  600.  
  601. break
  602.  
  603. else
  604.  
  605. TC(16)
  606. print(" "..antwort)
  607.  
  608. end
  609.  
  610. end
  611. end
  612.  
  613. --
  614.  
  615. elseif eingabe == "exit" then
  616.  
  617. TC(16)
  618. print("Bitte warte...")
  619.  
  620. Clear()
  621. TC(1)
  622. BC(32768)
  623. break
  624.  
  625. --
  626.  
  627. else
  628.  
  629. TC(16384)
  630. print("Der Command wurde nicht gefunden: '"..eingabe.."'")
  631.  
  632. end
  633. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!