a dit :

players={}
pcount=0
function main()
tfm.exec.disableAutoNewGame(true)
tfm.exec.disableAutoShaman(true)
tfm.exec.newGame("@3979220")
tfm.exec.setGameTime(0)

for i,command in pairs({"tele", "help","save","load","r","teleport","fly"}) do
system.disableChatCommandDisplay(command)
end
for name,player in pairs(tfm.get.room.playerList) do
eventNewPlayer(name)
system.bindMouse(name, true)
end
end

function eventNewPlayer(name)
for i,key in ipairs({32,67,72,75,86}) do
tfm.exec.bindKeyboard(name,key,true,true)
end
pcount=pcount+1
if started then
setMapName()
end

players[name]={x=nil, y=nil, peynir=false, teleport=false, fly=50}
end
function eventPlayerDied(name)
tfm.exec.respawnPlayer(name)
end

function saveLoc(name)
local pname = tfm.get.room.playerList[name]
if pname.hasCheese then
players[name].peynir=true
end
players[name].x=pname.x
players[name].y=pname.y
ui.addTextArea(66,"",name,pname.x,pname.y,10,10,0xFFFFFF,0xFFFFFF,0.7)
end
function loadLoc(name)
tfm.exec.movePlayer(name,players[name].x,players[name].y)
if players[name].peynir==true then
tfm.exec.giveCheese(name)
end
end

function eventMouse(name, x, y)
if players[name].teleport then
tfm.exec.movePlayer(name, x, y)
end
end

function eventPlayerWon(name)
tfm.exec.respawnPlayer(name)
end

function eventKeyboard(name, key, down, x, y)
if key==75 then
tfm.exec.killPlayer(name)
tfm.exec.respawnPlayer(name)
elseif key==32 then
tfm.exec.movePlayer(name,0,0,true,0,players[name].fly*-1,false)
elseif key==67 then
saveLoc(name)
elseif key==86 then
loadLoc(name)
elseif key==72 then
ui.addTextArea(1,"<VP><b>Bootcamp Test Script</b><br><N>Bu script <J>Kmlcan <N>tarafından hazırlanmıştır, kullanılabilecek komutların listesi aşağıda belirtilmiştir.<br><br><J>!tele x y: <N>Sizi belirlediğiniz koordinatlara ışınlar.<br><J>!save: <N>Bulunduğunuz noktayı kaydeder. <BL>(Kısayol tuşu: C)<br><J>!load: <N>Sizi kaydettiğiniz noktaya ışınlar. <BL>(Kısayol tuşu: V)<br><J>!r: <N>Sizi öldürüp yeniden doğurur. <BL>(Kısayol tuşu: K)<br><p align='right'><R><b><a href='event:kapat'>[Kapat]</a></b></p>",name,20,40,340,125)
end
end

function eventNewGame()
started=false
setMapName()
end

function eventTextAreaCallback(id,name,callback)
if callback=="kapat" then
ui.removeTextArea(1,name)
end
end

function eventPlayerLeft(name)
pcount=pcount-1
setMapName()
end

function setMapName()
local map = tfm.get.room.xmlMapInfo
tfm.exec.setUIMapName("<R>P"..map.permCode.." <BL>- <J>"..map.author.." <BL>- @"..map.mapCode.." - <VP>Fareler: <N>"..pcount.." <BL>- <J>Yardım için !help yazın veya H harfine basın.\n")
end

function eventLoop(time,remaining)
if time >= 4000 and not started then started=true end
end

function eventChatCommand(name, cmd)
--Ayarlar
local args={}
for arg in cmd:gmatch("[^%s]+") do
table.insert(args,arg:lower())
end
--Komutlar
if args[1]=="tele" then
tfm.exec.movePlayer(name,args[2],args[3])
elseif args[1]=="help" then
ui.addTextArea(1,"<VP><b>Bootcamp Test Script</b><br><N>Bu script <J>Kmlcan <N>tarafından hazırlanmıştır, kullanılabilecek komutların listesi aşağıda belirtilmiştir.<br><br><J>!tele x y: <N>Sizi belirlediğiniz koordinatlara ışınlar.<br><J>!save: <N>Bulunduğunuz noktayı kaydeder. <BL>(Kısayol tuşu: C)<br><J>!load: <N>Sizi kaydettiğiniz noktaya ışınlar. <BL>(Kısayol tuşu: V)<br><J>!r: <N>Sizi öldürüp yeniden doğurur. <BL>(Kısayol tuşu: K)<br><p align='right'><R><b><a href='event:kapat'>[Kapat]</a></b></p>",name,20,40,340,125)
elseif args[1]=="save" then
saveLoc()
elseif args[1]=="load" then
loadLoc()
elseif args[1]=="r" then
tfm.exec.killPlayer(name) tfm.exec.respawnPlayer(name)
elseif args[1]=="fly" then
if tonumber(args[2]) >= 1 and tonumber(args[2]) <= 100 then
players[name].fly=tonumber(args[2]) end
elseif args[1]=="teleport" then
if players[name].teleport==false then
players[name].teleport=true
else
players[name].teleport=false
end
end
end

main()

Thewildnes a dit :

Biz kod paylaşımı yapınca neden konumuz kapanıyor 28 gün uğraştıgım konu silindide