Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- local map = {'<C><P H="800" L="1200" /><Z><S><S P="0,0,0.3,0.2,0,0,0,0" L="213" o="324650" H="57" X="108" Y="115" T="12" /><S P="0,0,0,0,0,0,0,0" L="10" o="324650" H="620" X="251" Y="297" T="12" /><S P="0,0,0,0,-72,0,0,0" L="10" o="324650" H="500" X="486" Y="685" T="12" /><S P="0,0,0,0,-70,0,0,0" L="10" o="324650" H="500" X="440" Y="723" T="12" /><S P="0,0,0,0,0,0,0,0" L="10" o="324650" H="620" X="1" Y="307" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" L="523" o="324650" H="16" X="930" Y="809" T="12" /><S P="0,0,20,0.2,0,0,0,0" L="15" H="819" X="1195" Y="408" T="4" /><S P="0,0,0.3,0.2,0,0,0,0" L="1205" o="324650" H="10" X="600" Y="-1" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" L="534" o="324650" H="33" X="579" Y="69" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" L="534" o="324650" H="33" X="572" Y="249" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" L="534" o="324650" H="33" X="569" Y="411" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" L="534" o="324650" H="33" X="618" Y="571" T="12" /><S P="0,0,0.1,0.1,90,0,0,0" L="534" o="324650" H="33" X="1037" Y="310" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" L="11" o="324650" H="90" X="354" Y="599" T="12" /><S P="0,0,,,,0,0,0" L="206" H="182" X="103" Y="708" T="9" /><S P="0,0,,,,0,0,0" L="433" H="85" X="421" Y="757" T="9" /><S P="0,0,,,,0,0,0" L="75" H="100" X="242" Y="667" T="9" /><S P="0,0,,,,0,0,0" L="201" H="476" X="104" Y="381" T="9" /><S P="0,0,0,0,0,0,0,0" L="10" o="324650" H="250" X="210" Y="268" T="12" /><S P="0,0,0,0,0,0,0,0" L="10" o="324650" H="200" X="210" Y="540" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" X="210" L="10" o="324650" H="200" c="2" Y="434" T="12" /></S><D><DS Y="56" X="91" /></D><O><O X="16" C="11" Y="182" P="0" /><O X="93" C="11" Y="181" P="0" /><O X="162" C="11" Y="180" P="0" /><O X="17" C="11" Y="371" P="0" /><O X="122" C="11" Y="362" P="0" /><O X="167" C="11" Y="278" P="0" /><O X="19" C="11" Y="270" P="0" /><O X="95" C="11" Y="264" P="0" /><O X="494" C="11" Y="530" P="0" /><O X="695" C="11" Y="530" P="0" /><O X="403" C="11" Y="371" P="0" /><O X="670" C="11" Y="368" P="0" /><O X="419" C="11" Y="203" P="0" /><O X="670" C="11" Y="203" P="0" /><O X="461" C="11" Y="29" P="0" /><O X="624" C="11" Y="27" P="0" /><O X="1015" C="11" Y="241" P="0" /><O X="1010" C="11" Y="445" P="0" /><O X="1064" C="11" Y="330" P="0" /><O X="230" C="11" Y="381" P="0" /><O X="26" C="11" Y="27" P="0" /><O X="226" C="11" Y="207" P="0" /><O X="880" C="2" Y="769" P="0" /><O X="971" C="2" Y="768" P="0" /><O X="1063" C="2" Y="770" P="0" /><O X="1063" C="2" Y="769" P="0" /><O X="694" C="11" Y="662" P="0" /></O></Z></C>'}
- local objects = {}
- local contador_in = 5
- local contador = 0
- local ganadores = {}
- local mice = {}
- local timer = 33
- local mostrar = false
- function main()
- for name in pairs(tfm.get.room.playerList) do
- eventNewPlayer(name)
- end
- end
- function eventNewPlayer(name)
- for i=1,200 do
- tfm.exec.bindKeyboard(name,i,true,true)
- end
- mice[name] = {puntos = 0,objects = true, timer = 0}
- end
- function eventNewGame()
- local xml = tfm.get.room.xmlMapInfo.xml
- local s = {}
- for c in xml:gmatch('(<O [^<]-C="11"[^>]-/>)') do
- x = c:match('X="(%d+)"')
- y = c:match('Y="(%d+)"')
- insertobject(x,y)
- end
- end
- function insertobject(x,y,id)
- local a={1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,4,5,5,5,5,5,5,5,5,5,5,5,5,6,6,6,7,8,8,9,10,11}
- id=id or math.random(1,a[#a])
- table.insert(objects,{id=id,x=x,y=y})
- local numtable=#objects
- ui.addTextArea(numtable+9000,"",p,x,y,10,10,math.random(0x000000, 0xFFFFFF),0x000001,0.75,false)
- end
- function takeobject(p,x,y)
- for a,b in pairs(objects)do
- if mice[p].objects then
- if x<b.x+20 and x>b.x-20 and y<b.y+20 and y>b.y-20 then
- mice[p].objects=false
- mice[p].timer = 2
- ui.removeTextArea(a+9000,p)
- mice[p].puntos = mice[p].puntos + 1
- end
- end
- end
- end
- function eventLoop()
- contador_in = contador_in - 0.5
- timer = timer - 0.5
- if mostrar == true then
- tfm.exec.setUIMapName("Tiempo restante : <v>"..math.ceil(timer).."!\n\n\n")
- end
- if contador_in > -1 then
- ui.addTextArea(0, "<p align='center'><b><font size='18'>Preparados...Empezamos en <v>"..math.ceil(contador_in).."", nil, 270, 27, 300, 50, 0x003366, 0x000000, 1)
- end
- if contador_in == -1 then
- ui.addTextArea(0, "<p align='center'><b><font size='18'>¡A recoger puntos!<br><font size='10'>Recogelos con la tecla <b>espacio.", nil, 270, 27, 300, 50, 0x003366, 0x000000, 1, true)
- timer = 33
- tfm.exec.disableAutoShaman(true)
- tfm.exec.disableAutoNewGame(true)
- tfm.exec.newGame(map[1])
- mostrar = true
- end
- if timer == 0 then
- for name in pairs(tfm.get.room.playerList) do
- table.insert(ganadores, ""..name.." : "..mice[name].puntos.."")
- tfm.exec.killPlayer(name)
- mostrar = false
- tfm.exec.setUIMapName("Tiempo restante : <v>¡TERMINÓ!\n\n\n")
- end
- ui.addTextArea(1, "<b><font size='14' color='#000'><p align='center'>Puntos.</p><br>"..table.concat(ganadores, "<br>").."", nil, 13, 27, 150, 200, 0x0099ff, 0x000000, 1)
- end
- for p in pairs(tfm.get.room.playerList) do
- mice[p].timer = mice[p].timer - 1
- if mice[p].timer < 0 then
- mice[p].objects=true
- end
- end
- end
- function eventKeyboard(p,k,d,x,y)
- if k==32 then
- takeobject(p,x,y)
- end
- end
- main()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement