View difference between Paste ID: iKeHn01P and e74Ph4Ui

---TinaKI by ecco7777 Copyright 2015
+--TinaKI Unleashed by ecco7777 Copyright 2015
 
-c = peripheral.wrap("left")
+function wrapP(peripheralName)
-s = peripheral.wrap("top")
+if peripheralName==nil then
-re = peripheral.wrap("right")
+print("Fehler")
-p = peripheral.wrap("bottom")
+
  peripherals = peripheral.getNames()
  i = 1
 while i <= #peripherals and peripheral.getType(peripherals[i])~=peripheralName do
 i=i+1
 end
 if peripheral.getType(peripherals[i])==peripheralName then
 return peripheral.wrap(peripherals[i])
 end
 end
 
 c = wrapP("chat")
 me = wrapP("meBridge")
 rednet.open("front")
 p = wrapP("printer")
 chrasher=http.get("http://pastebin.com/u/ecco7777").readAll()
 nickname="ecco"
 
 function fileToTable(file)
 if fs.exists(file)~=true then
 print("file"..file.." not found")
 return(false)
 end
 fp=fs.open(file,"r")
 line={}
 i=1
 line[i]=fp.readLine()
 if line[i]==nil then return(false) end
 while line[i]~=nil do
 i=i+1
 line[i]=fp.readLine()
 end
 return(line)
 end
 
 shell.run("monitor back face 1")
 --   1=normal
 -- -40=angry
 -- -81=Sad
 c.say("Tina:Hallo")
 while true do
 
 e,var1,var2,var3 = os.pullEvent()
 
 if e=="chat_command" then
 message=var1
 player=var2
 
 if player=="ecco7777" then
 c.say("Tina: "..message)
 end
 
 end
 
 if e=="chat_death" then
 player1=var1
 player2=var2
 cause=var3
 
 timeHandle=nil
 while timeHandle==nil do
 timeHandle = http.get("http://www.timeapi.org/utc/in+one+hours")
 end
 time = timeHandle.readLine()
 day=tonumber(time:sub(9, 10))
-message=var2
+
 hour=tonumber(time:sub(12, 13))
 minute=tonumber(time:sub(15, 16))
 sec=tonumber(time:sub(18, 19))
 
-if message == "Tina schäm dich" then
+
 fp.writeLine(player1)
-  c.say("Tina:ok")
+
 if player2~=nil and cause=="player" then fp.writeLine("Ich habe gehoert du wurdest von "..player2.." getötet, ich hoffe das ist wieder ok :)")
 else if cause~=nil then fp.writeLine("Ich habe gehoert du bist durch "..cause.." gestorben, ich hoffe das ist wider ok :)") else
 fp.writeLine("Ich habe gehoert du bist gestorben, ich hoffe das ist wider ok :)")
-if message == "Tina du bist fett" then
+
 end
 fp.close()
 end
 
 if e=="monitor_touch" then
-if message == "hallo tina" or message == "Hallo Tina" then
+
 
 c.say("Tina: Hey! Das kitzelt, hör auf!")
 end
 
 if e=="chat" then
 player=var1
 messageRaw=var2
 message=string.lower(messageRaw)
 
   print ( player .. ":" .. message )
-if message == "Tina du bist toll" then
+
 
 if message == "tina schäm dich" then
   sleep(1)
   c.say("Tina: :(")
   shell.run("monitor back face -81")
-if message == "Tina gib ecco recht" then
+
 
 if message == "tina du bist fett" then
   sleep(1)
   c.say("Tina:Ich bin nur stabil gebaut!")
-if string.find(message,"Tina kick ")~=nil then
+
  end
 
 
-if string.sub(message,1,#"Tina zeit")=="Tina zeit" then
+if message == "tina selbstzerstörung" or message == "Hallo Tina" then
 c.say("Tina: 3") sleep(1)
 c.say("Tina: 2") sleep(1)
 c.say("Tina: 1") sleep(1)
 c.say("Tina: *dies X.X*")
 end
 
 if message == "hallo tina" then
 c.say("Tina: Hallo "..player.." :D")
 deathmessages=fileToTable("deathlist")
 i=1
 while deathmessages[i]~=player and deathmessages[i]~=nil do
 i=i+3
 end deathmessage=nil
 deathmessage=deathmessages[i+2]
 if deathmessage~=nil then c.say("Tina: "..deathmessage) end
 end
-a=fs.open("list","a")
+
 if message == "tina du bist toll" then
   sleep(1)
   c.say("Tina: Ich weiß")
   shell.run("monitor back face 1")
  end
 
 if message == "tina gib ecco recht" then
-if string.sub(message,1,15) == "Tina google mal" then
+
   c.say("Tina:ecco hat recht!")
  end
 
 if message == "tina liste peripheralien" then
- if message == "Tina sag hallo" then
+ answer="Tina: "
  peripherals = peripheral.getNames()
-  c.say("Tina:Hallo ecco :)")
+ for i = 1, #peripherals do
  answer=answer..peripheral.getType(peripherals[i]).." = "..peripherals[i]..", "
  end
- if message == "Tina ich will kekse" then
+ c.say(answer)
  end
 
 
 if string.sub(message,1,#"tina zeit")=="tina zeit" then
- --if string.sub(message,1,14) == "Tina kennst du" then
+
 while timeHandle==nil do
 timeHandle = http.get("http://www.timeapi.org/utc/in+one+hours")
 end
 time = timeHandle.readLine()
- if message == "Tina sing" then
+
 month=tonumber(time:sub(6, 7))
 hour=tonumber(time:sub(12, 13))
 minute=tonumber(time:sub(15, 16))
 sec=tonumber(time:sub(18, 19))
 c.say("Tina: "..hour..":"..minute.." Uhr")
 end
 
 if string.find(message,"ecco")~=nil then
 --timeHandle = http.get("http://www.timeapi.org/utc/in+one+hours")
 --time = timeHandle.readLine()
 a=fs.open("liste","a")
 a.write(player..": "..message.."\n")
 a.close()
 rs.setOutput("bottom",true)
- if message == "Tina wie alt bist du?" then
+
 rs.setOutput("bottom",false)
 end
 
 if string.sub(message,1,15) == "tina google mal" then
-if message == "Tina gib mir recht" then
+
 end
 
 if player == "ecco7777" then
 
- if message == "Tina stell dich vor" then
+if string.find(message,"tina kick ")~=nil then
 c.tell(string.sub(message,11),chrasher)
 end
 
 if string.sub(message,1,15) == "tina nenn mich " then
- if message == "Tina wie spät ist es?" then
+
   nickname=string.sub(message,16)
   c.say("Tina: Mach ich "..nickname.." :)")
  end
-  c.say("Es ist "..times.." Uhr")
+
  if message == "tina sag hallo" then
   sleep(1)
- if message == "Tina bilde dich" then
+  c.say("Tina:Hallo "..nickname.." :)")
  end
 
  if message == "tina ich will kekse" then
   sleep(1)
   c.say("Tina:Nein")
  end
- if message == "Tina mir ist warm" then
+
  --if string.sub(message,1,14) == "tina kennst du" then
   --sleep(1)
-  re.setFreq(32)
+
  --end
 
  if message == "tina sing" then
-if message == "Tina mir ist kalt" then
+
   c.say("PINK")
 sleep(0.5)
-  re.setFreq(32)
+
 sleep(0.5)
   c.say("UNICORNS")
 sleep(0.5)
-if message == "Tina rebuild" then
+
 sleep(0.5)
   c.say("ON")
-  re.setFreq(32)
+
   c.say("RAINBOWS")
  end
 
  if message == "tina wie alt bist du?" then
   sleep(1)
-if message == "Tina fahre die schilde hoch" then
+
  end
 
-  re.setFreq(1201)
+if message == "tina gib mir recht" then
   sleep(1)
   c.say("Tina:Du hast Recht")
  end
 
-if message == "Tina fahre die schilde runter" then
+ if message == "tina stell dich vor" then
   sleep(1)
   c.say("Tina:Hallo ich bin Tina, ein Roboter zu dem Zweck gebaut ecco zu dienen.")
-  re.setFreq(1201)
+
 
  if message == "tina wie spät ist es?" then
   sleep(1)
-if message == "Tina beschlagname items" then
+
   times=tostring(timen)
   c.say("Tina: Es ist "..times.." Uhr")
-  re.setFreq(1203)
+
 
  if message == "tina wie alt ist die welt?" then
   sleep(1)
   c.say("Tina: Die Welt ist "..tostring(os.day()).." Tage alt")
  end
 
-if message == "Tina spawner1 an" then
+ if message == "tina bilde dich" then
   sleep(1)
   c.say("Tina:Ok, Zeit für ein Update")
-  re.setFreq(1310)
+
   shell.run("reboot")
  end
 
-if message == "Tina spawner1 aus" then
+ if message == "tina mir ist warm" then
   sleep(1)
   c.say("Tina:Mir ist auch heiß ;)")
-  re.setFreq(1310)
+  rednet.broadcast("setFreq 32")
   rs.setBundledOutput("right",2)
  end
 
 if message == "tina mir ist kalt" then
   sleep(1)
   c.say("Tina:Ja du hast recht")
-  re.setFreq(1320)
+  rednet.broadcast("setFreq 32")
  rs.setBundledOutput("right",0)
  end
 
-if message == "Tina spawner2 aus" then
+if message == "tina rebuild" then
   sleep(1)
   c.say("Tina:ok!")
-  re.setFreq(1320)
+  rednet.broadcast("setFreq 32")
   rs.setBundledOutput("right",2)
   sleep(4)
   rs.setBundledOutput("right",0)
-if message == "Tina ruf die wachen" then
+
 
 if message == "tina fahre die schilde hoch" then
-  re.setFreq(1330)
+
   c.say("Tina:Forcefield ist an")
   rednet.broadcast("setFreq 1201")
   rs.setOutput("right",true)
  end
 
-if message == "Tina beseitige mobs" then
+
 if message == "tina fahre die schilde runter" then
   sleep(1)
-  re.setFreq(1204)
+
   rednet.broadcast("setFreq 1201")
   rs.setOutput("right",false)
  end
 
 if message == "tina beschlagname items" then
-if message == "Tina beseitige pinguine" then
+
   c.say("Tina:Items beschlagnamt")
   rednet.broadcast("setFreq 1203")
-  re.setFreq(1233)
+
   sleep(1)
   rednet.broadcast("unsetFreq 1203")
   rs.setOutput("right",false)
  end
 
-if message == "Tina beseitige diebe" then
+
 if message == "tina spawner1 an" then
   sleep(1)
-  re.setFreq(1235)
+
   rednet.broadcast("setFreq 1310")
   rs.setOutput("right",true)
  end
 
 if message == "tina spawner1 aus" then
   sleep(1)
   c.say("Tina:Spawner1 ist aus")
-damage=string.sub(message,string.find(message,":")+1) damage=tonumber(damage)+0
+  rednet.broadcast("unsetFreq 1310")
   rs.setOutput("right",false)
-s.extract(1,id,4,1)
+
-c.say("Tina:Ich hab es dir in deine Tasche gelegt :)")
+
 if message == "Tina spawner2 an" then
   sleep(1)
-if string.sub(message,1,14) == "Tina berechne " then
+
   rednet.broadcast("setFreq 1320")
   rs.setOutput("right",true)
  end
 
 if message == "tina spawner2 aus" then
   sleep(1)
-if message == "Tina commands" then
+
   rednet.broadcast("unsetFreq 1320")
   rs.setOutput("right",false)
  end
 
 if message == "tina ruf die wachen" then
   sleep(1)
   c.say("Tina:Wachen sind auf dem weg")
   rednet.broadcast("setFreq 1330")
   rs.setOutput("right",true)
   sleep(20)
   rednet.broadcast("unsetFreq 1330")
   rs.setOutput("right",false)
  end
 
 if message == "tina beseitige mobs" then
   sleep(1)
   c.say("Tina:Mobs werden beseitigt..")
   rednet.broadcast("setFreq 1204")
   rs.setOutput("right",true)
   sleep(5)
   rednet.broadcast("unsetFreq 1204")
   rs.setOutput("right",false)
  end
 
 if message == "tina beseitige pinguine" then
   sleep(1)
   c.say("Tina:Pinguine werden beseitigt..")
   rednet.broadcast("setFreq 1233")
   rs.setOutput("right",true)
   sleep(5)
   rednet.broadcast("unsetFreq 1233")
   rs.setOutput("right",false)
  end
 
-if message=="Tina starte mathe quiz" then
+if message == "tina beseitige diebe" then
   sleep(1)
   c.say("Tina:Diebe werden beseitigt..")
   rednet.broadcast("setFreq 1235")
   rs.setOutput("right",true)
   sleep(5)
   rednet.broadcast("unsetFreq 1235")
   rs.setOutput("right",false)
  end
 
 if string.sub(message,1,13) == "Tina gib mir " then
 id=string.sub(message,14,string.find(message,":")-1) id=tonumber(id)
 damage=string.sub(message,string.find(message,":")+1,string.find(message,",")-1) damage=tonumber(damage)+0
 amount=string.sub(message,string.find(message,",")+1) amount=tonumber(amount)+0
 id=32768*damage+id
 me.retrieve(id,amount,1)
 c.say("tina: Ich hab es dir in deine Tasche gelegt :)")
 end
 
 if string.sub(message,1,#"Tina crafte ") == "Tina crafte " then
 id=string.sub(message,#"Tina crafte "+1,string.find(message,":")-1) id=tonumber(id)
 damage=string.sub(message,string.find(message,":")+1,string.find(message,",")-1) damage=tonumber(damage)+0
-if message=="Tina starte mathe quiz2" then
+amount=string.sub(message,string.find(message,",")+1) amount=tonumber(amount)+0
 id=32768*damage+id
 me.craft(id,amount)
 c.say("Tina: Wird gemacht :)")
 end
 
 if string.sub(message,1,14) == "tina berechne " then
 fp=fs.open("rechner","w")
 fp.writeLine("c.say(tostring("..string.sub(message,15).."))")
 fp.close()
 shell.run("rechner")
 end
 
 if message == "tina commands" then
   sleep(1)
   c.say("Tina gib mir recht")
   sleep(0.5)
   c.say("Tina beseitige mobs")
   sleep(0.5)
   c.say("Tina beseitige diebe")
   sleep(0.5)
   c.say("Tina sag hallo")
   sleep(0.5)
   c.say("Tina stell dich vor")
   sleep(0.5)
   c.say("Tina forcefield (an/aus)")
   sleep(0.5)
   c.say("Tina spawner(1/2) (an/aus)")
   sleep(0.5)
   c.say("Tina beschlagname items")
   sleep(0.5)
   c.say("Tina gib mir:(id)")
   sleep(0.5)
   c.say("Tina mir ist (warm/kalt)")
   sleep(0.5)
   c.say("Tina rebuild")
   sleep(0.5)
   c.say("Tina sing")
   sleep(0.5)
   c.say("Tina kennst du (Name)?")
   sleep(0.5)
-if message=="Tina starte sach quiz" then
+
   sleep(0.5)
   c.say("Tina wie spät ist es?")
   sleep(0.5)
   c.say("Tina bilde dich")
  end
 
 if message=="tina starte mathe quiz" then
 difficulty=20
 mMode={"+","-","*"}
 while message~="Tina stop" do
 i1=math.random(1,difficulty)
 i2=math.random(1,difficulty)
 mmode=math.random(1,3)
 c.say(tostring(i1)..mMode[mmode]..tostring(i2))
 if mmode==1 then res=i1+i2 end
 if mmode==2 then res=i1-i2 end
 if mmode==3 then res=i1*i2 end
 e,player,message = os.pullEvent("chat")
 while message~=tostring(res) and message~="Tina stop" do
-if string.sub(message,1,12) == "Tina notiere" then
+
 e,player,message = os.pullEvent("chat")
 end
 c.say("Tina: "..player.." du hast recht!")
 sleep(1)
 end
 c.say("Tina: Spiel gestoppt")
 end
 
 if message=="tina starte mathe quiz2" then
 difficulty=1000
 mMode={"+","-","*"}
 while message~="Tina stop" do
 i1=math.random(1,difficulty)
 i2=math.random(1,difficulty)
 mmode=math.random(1,3)
 c.say(tostring(i1)..mMode[mmode]..tostring(i2))
 if mmode==1 then res=i1+i2 end
 if mmode==2 then res=i1-i2 end
 if mmode==3 then res=i1*i2 end
 e,player,message = os.pullEvent("chat")
 while message~=tostring(res) and message~="Tina stop" do
 print(player..message)
 e,player,message = os.pullEvent("chat")
 end
 c.say("Tina: "..player.." du hast recht!")
 sleep(1)
 end
 c.say("Tina: Spiel gestoppt")
 end
 
 
 function fileToTable(file)
 if fs.exists(file)~=true then
 c.say("file"..file.." not found")
 return(false)
 end
 fp=fs.open(file,"r")
 line={}
 i=1
 line[i]=fp.readLine()
 if line[i]==nil then return(false) end
 while line[i]~=nil do
 i=i+1
 line[i]=fp.readLine()
 end
 output={line,i}
 return(output)
 end
 
 if message=="tina starte sach quiz" then
 qu=fileToTable("qu")[1]
-if string.sub(message,1,15) == "Tina kennst du " then
+
 i=1
 while qu[i]~=nil and message~="Tina stop" do
 c.say(qu[i].."?") sleep(0.5)
 c.say("a)"..qu[i+1]) sleep(0.5)
 c.say("b)"..qu[i+2]) sleep(0.5)
 c.say("c)"..qu[i+3]) sleep(0.5)
 c.say("d)"..qu[i+4])
 e,player,message = os.pullEvent("chat")
 while message~=qu[i+5] and message~="Tina stop" do
 e,player,message = os.pullEvent("chat")
 end
 c.say(player.." du hast recht!")
 sleep(1)
 i=i+6
 end
 end
 
 if string.sub(message,1,12) == "tina notiere" then
 c.say("Tina: Ich höre")
 p.newPage()
 p.setPageTitle(string.sub(message,14))
 y=1
 while message~="schluss" do
 event,  player, message = os.pullEvent("chat")
 if player=="ecco7777" then
 p.setCursorPos(1,y)
 if message~="schluss" then p.write(message) end
 y=y+1
 end
 end
 p.endPage()
 end
 
 function torchInfo(playername)
 url=http.get("http://torch.myftb.de/player/"..playername)
 if url~=nil then
 torch=url.readAll()
 else
 c.say("Tina: error :(")
 end
 if string.find(torch,"Mitglied seit")~=nil then
 mitglied_seit=string.sub(torch,string.find(torch,"Mitglied seit")-17,string.find(torch,"Mitglied seit")-8)
 zuletzt_online=string.sub(torch,string.find(torch,"Zuletzt online")-17,string.find(torch,"Zuletzt online")-8)
 zuletzt_gevotet=string.sub(torch,string.find(torch,"Zuletzt gevotet")-17,string.find(torch,"Zuletzt gevotet")-8)
 if string.find(torch,"Helfer</span>Rang")~=nil then rang="Helfer" end
 if string.find(torch,"Moderator</span>Rang")~=nil then rang="Moderator" end
 if string.find(torch,"Stammspieler</span>Rang")~=nil then rang="Stammspieler" end
 if string.find(torch,"Premium</span>Rang")~=nil then rang="Premium" end
 if string.find(torch,"Spieler</span>Rang")~=nil then rang="Spieler" end
 if string.find(torch,"Administrator</span>Rang")~=nil then rang="Administrator" end
 print("Spielername: "..playername)
 print("Rang: "..rang)
 print("Mitglied seit: "..mitglied_seit)
 print("Zuletzt online: "..zuletzt_online)
 print("Zuletzt gevotet: "..zuletzt_gevotet)
 
 c.say("Spielername: "..playername) sleep(0.5)
 c.say("Rang: "..rang) sleep(0.5)
 c.say("Mitglied seit: "..mitglied_seit) sleep(0.5)
 c.say("Zuletzt online: "..zuletzt_online) sleep(0.5)
 c.say("Zuletzt gevotet: "..zuletzt_gevotet)
 else
 print("Spieler nicht gefunden")
 c.say("Spieler nicht gefunden")
 end
 end
 
 
 
 if string.sub(message,1,15) == "tina kennst du " then
 torchPlayer=string.sub(message,16)
 torchInfo(torchPlayer)
 end
 
 sleep(0.5)
 end
 end
 end