Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --Bolodefchoco
- --13/09/2015
- --[[ Versão obsoleta. Acesse http://bit.ly/UMBETABolodefchocoOficial ]]--
- --Importante & Staff
- adm = {Bolodefchoco = true,YourNickName = true} --Ponha seu nick para admin
- mod = {Bolodefchoco = true,Lelebize = true,YourNickName = true} --Ponha seu nick para admin
- tribe = "Editeur" --Ponha o nome da sua tribo dentro dos ' '
- map = '@5925400' --Ponha um cafofo oficial pro painel
- -----------------------------------
- -----------------------------------
- -------Não edite nada abaixo-------
- -----------------------------------
- -----------------------------------
- --Tradução
- T = {
- br = {
- buttonPowers = 'P',
- buttonMice = '?',
- choiceLevelF = 'Poderes de Mod',
- choiceLevelS = 'Poderes de Adm',
- acessDenied = 'Você não pode acessar esta área.',
- miceTxtF = '<VP>Clique nos botões para ver as opções.',
- miceOpA = 'Rato',
- miceOpB = 'Shaman',
- miceOpC = 'Mapas',
- modOpA = 'Rato',
- modOpB = 'Shaman',
- modOpC = 'Mapas',
- modOpD = 'Trapaças',
- modOpE = 'Configurações',
- admOpF = 'Eventos',
- admOpG = '<R>Importante<BV>',
- oS = {'<CH>Seta','<CH>Caixa pequena','<CH>Caixa grande','<CH>Tábua pequena','<CH>Tábua grande','<CH>Bola','<CH>Trampolim','<CH>Bigorna','<CH>Cannon (CN)','<ROSE>Bomba','<CH>Espírito (SP)','<CH>Portal azul','<CH>Portal laranja','<CH>Balão','<CH>Runa','<T>Galinha','<T>Flecha','<CH>Ovelha','<ROSE>Rato congelado','<CH>Nuvem','<CH>Caixa de acompanhamento','<T>Baiacu','<CH>Tábua super grande','<CH>Caixa triangular','<CH>Tábua S','<T>Abóbora','<T>Tumba'},
- miceCommands = {'Queijo','Reviver','Meep!','Morrer','Teleport único','Cor do Nome','Vampiro'},
- close = '<VP>Fechar',
- commandColorPopUp = 'Coloque o código da cor para uma cor\nDigite * para uma cor aleatória',
- miceCmdsMap = {'Tempo','Carregar Mapa'},
- commandMapPopUp = 'Coloque o tempo em segundos aqui.',
- commandMapNpPopUp = 'Coloque o código do mapa aqui.',
- modCommands = {'Queijo','Meep!','Matar','Teleport único','Toca','Respawn','Cor do Nome','Score','Shaman','Vampiro'},
- modCMDCheesePopUp = 'Coloque o nome do jogador.',
- modCMDScorePopUp = 'Coloque o valor de pontos.',
- modCmdsMap = {'Tempo','Carregar Mapa','Cafofo da tribo','Mapa Vanilla','Nome do mapa','Nome do shaman'},
- modCMDTxtPopUp = 'Ponha o texto aqui.',
- modCmdCheats = {'Fly','Speed','Super Pulo','TelePulo','Trampolim'},
- modCmdConfigs = {'Morte por Afk','Habilidades do Shaman','Novo jogo automático','Score automático','Shaman automático','Perda de tempo automática','Nevar','Respawn Automático','Invocação Automática'},
- admCmdEvents = {'Halloween','Natal','Páscoa','Carnaval',"Dia dos Namorados",'Pesca / Verão'},
- admCmdEventsH = {'2013 - Mansão','2013 - Bar','2014 - Rua','2014 - Cemitério','2014 - Quarto'},
- admCmdEventsC = {'2013 - Cafofo','2014 - Troll'},
- admCmdEventsE = {'2014 - 801','2015 - Mundo do Doce','2015 - Mundo do Pirulito'},
- admCmdEventsCa = {'2014 - Churros'},
- admCmdEventsV = {'2013 - Defilante','2014 - Paris'},
- admCmdEventsP = {'x - Navio','2013 - Shaman','2014 - Selva','2014 - Cachoeira','2014 - Dinossauro','2014 - Ilha','2014 - Nuvens','2015 - Pedras','2015 - Templo','2015 - Selva','2015 - Museu'},
- admIMPORTANT = {'Voodoo','Ban','Unban','Bloquear sala','Desativar Lua'},
- vipPw = '<J>Senha',
- wrongPw = '<R>Senha Incorreta',
- voodooMsg = 'U: Pular\nH: Esquerda\nJ: Abaixar\nK: Direita',
- vdu = 'Quem vai controlar:',
- vdd = 'Quem será controlado:',
- ban = 'Banido!',
- unban = 'Desbanido!',
- admMaxRoom = 'Máximo de ratos na sala:',
- };
- en = {
- buttonPowers = 'P',
- buttonMice = '?',
- choiceLevelF = 'Mod Powers',
- choiceLevelS = 'Admin Powers',
- acessDenied = 'You can not access this area.',
- miceTxtF = '<VP>Click on the buttons to see the options.',
- miceOpA = 'Mice',
- miceOpB = 'Shaman',
- miceOpC = 'Maps',
- modOpA = 'Mice',
- modOpB = 'Shaman',
- modOpC = 'Maps',
- modOpD = 'Cheats',
- modOpE = 'Configurations',
- admOpF = 'Events',
- admOpG = '<R>Important<BV>',
- oS = {'<CH>Arrow','<CH>Small box','<CH>Big box','<CH>Small plank','<CH>Big plank','<CH>Ball','<CH>Trampoline','<CH>Anvil','<CH>Cannon (CN)','<ROSE>Bomb','<CH>Spirit (SP)','<CH>Blue portal','<CH>Orange portal','<CH>Balloon','<CH>Rune','<T>Chicken',"<T>Valentine's arrow",'<CH>Sheep','<ROSE>Frozen mouse','<CH>Cloud','<CH>Companion crate','<T>Pufferfish','<CH>Very long plank','<CH>Triangle box','<CH>S-Shaped Plank','<T>Pumpkin','<T>Tombstone'},
- miceCommands = {'Cheese','Respawn','Meep!','Die','Personal Teleport','Namecolor','Vampire'},
- close = '<VP>Close',
- commandColorPopUp = 'Type the code of the color\nor Type * for a randomic color',
- miceCmdsMap = {'Time','Load Map'},
- commandMapPopUp = 'Put the time in seconds here.',
- commandMapNpPopUp = "Put the map's code here.",
- modCommands = {'Cheese','Meep!','Kill','Personal Teleport','Hole','Respawn','Namecolor','Score','Shaman','Vampire'},
- modCMDCheesePopUp = 'Put the nickname here.',
- modCMDScorePopUp = 'Put the value of points.',
- modCmdsMap = {'Time','Load Map','Tribe House','Map Vanilla',"Map's name","Shaman's name"},
- modCMDTxtPopUp = 'Put the text here.',
- modCmdCheats = {'Fly','Speed','Super Jump','TeleJump','Trampoline'},
- modCmdConfigs = {'Afk Death','Shaman Skills','Auto New Game','Auto Score','Auto Shaman','Auto Time Left','Snow','Auto Respawn','Auto Spawn'},
- admCmdEvents = {'Halloween','Christmas','Easter','Carnival',"Valentine's Day",'Fishing / Summer'},
- admCmdEventsH = {'2013 - Mansion','2013 - Bar','2014 - Street','2014 - Cemetery','2014 - Room'},
- admCmdEventsC = {'2013 - House','2014 - Troll'},
- admCmdEventsE = {'2014 - 801','2015 - Land','2015 - Candy'},
- admCmdEventsCa = {'2014 - Churros'},
- admCmdEventsV = {'2013 - Defilante','2014 - Paris'},
- admCmdEventsP = {'x - Ship','2013 - Shaman','2014 - Jungle','2014 - Waterfall','2014 - Dinosaur','2014 - Island','2014 - Clouds','2015 - Stone','2015 - Temple','2015 - Jungle','2015 - Museum'},
- admIMPORTANT = {'Voodoo','Ban','Unban','Blockroom','Disable Lua'},
- vipPw = '<J>Password:',
- wrongPw = '<R>Incorrect Password',
- voodooMsg = 'U: Jump\nH: Left\nJ: Down\nK: Right',
- vdu = 'Who will control:',
- vdd = 'Who will be controled:',
- ban = 'Banned!',
- unban = 'Unbanned!',
- admMaxRoom = 'Maximum number of mice in the room:',
- };
- }
- function t(n,t)
- for n in pairs (tfm.get.room.playerList) do
- if T[tfm.get.room.playerList[n].community] then
- return T[tfm.get.room.playerList[n].community][t]
- else
- return T.en[t]
- end
- end
- end
- --Version
- Version = 'Version Alpha'
- --Variables
- canShow = true
- time = os.time() + 2000
- canTrampoline,canTeleJump,canVanilla,modTeleport,canTeleport,canSpawnObject,canJump,bindFly,bindSpeed = false,false,false,false,false,false,false,false,false
- object,colorM,modScorePoints = nil,nil,nil
- whoWillBeTeleported,wWbTPTDJUMP = '',''
- Angle,oSId,miceC,miceCmdM,modC,modCMap,modCheats,modConfiugu = {0,45,90,180,360},{0,1,2,3,4,6,7,10,17,23,24,26,27,28,32,33,35,40,54,57,61,65,67,68,69,89,90},{0,1,2,3,4,5,6},{0,1},{0,1,2,3,4,5,6,7,8,9},{0,1,2,3,4,5},{0,1,2,3,4},{0,1,2,3,4,5,6,7,8}
- MCM,oSC,MC,MCR,MMC,modCC,modCCO = "","","","","","",""
- MCStat,MOStat,MCMA,ModUS,ModUM,modTRCheats,modConfigs = t(n,'miceCommands'),t(n,'oS'),t(n,'miceCmdsMap'),t(n,'modCommands'),t(n,'modCmdsMap'),t(n,'modCmdCheats'),t(n,'modCmdConfigs')
- angle = Angle[math.random(#Angle)]
- afk,sSkill,aNG,aSc,aSh,atl,snow,autoResp,autoEsp = false,false,false,false,false,false,false,false,false
- events,hallow,christ,east,CA,valent,fishe = {0,1,2,3,4,5},{0,1,2,3,4,5},{0,1},{0,1,2},{0},{0,1},{0,1,2,3,4,5,6,7,8,9,10}
- eevents,haallowe,cchrist,eeast,CCA,vvalent,fiishe = "","","","","","",""
- Events,Bruxas,Nat,Pasc,Carn,Namos,Sumer = t(n,'admCmdEvents'),t(n,'admCmdEventsH'),t(n,'admCmdEventsC'),t(n,'admCmdEventsE'),t(n,'admCmdEventsCa'),t(n,'admCmdEventsV'),t(n,'admCmdEventsP')
- IPTU,IPTD,IPTT = {0,1,2,3,4},"",t(n,'admIMPORTANT')
- pw = nil
- wwcv,wwbc,canVoodoo = nil,nil,false
- isBlocked,quantity,who = false,9999,0
- ban = {}
- --Início
- tfm.exec.newGame(map)
- tfm.exec.setUIMapName('<VP>'..tribe..' <BL>~ <ROSE>'..Version..'\n\n')
- --Vip
- function verifPw(n)
- if pw then
- ui.addPopup(-100,2,"<p align='center'><font color='#BABD2F'>"..t(n,'vipPw'),n,530,50,w,true)
- else
- ui.addTextArea(-1,"<VP><p align='center'><font size='13'><a href='event:close'>"..t(n,'acessDenied').."</a></font></p>",n,5,380,790,h,0x324650,0x141D22,0.95,true)
- end
- end
- --Is Banned
- function isBanned(n)
- for _,bn in pairs(ban) do
- if n == bn then return true end
- end
- return false
- end
- --New Player & Left
- function eventNewPlayer(n)
- who = who + 1
- tfm.exec.setUIMapName('<VP>'..tribe..' <BL>~ <ROSE>'..Version..'\n\n')
- for i in pairs (tfm.get.room.playerList) do
- ui.addTextArea(0,"<BR><p align='center'><a href='event:buttonPowers'><V><B>"..t(n,'buttonPowers').."</a></p>",n,719,10,16,30,768,768,0.8,true)
- ui.addTextArea(1,"<BR><p align='center'><a href='event:buttonMice'><V><B>"..t(n,"buttonMice").."</a></p>",n,749,10,16,30,768,768,0.8,true)
- end
- system.bindMouse(n,true)
- for i,key in ipairs({string.byte('W'),32,17,38,90,85,74,72,75}) do
- tfm.exec.bindKeyboard(n,key,true,false)
- end
- if isBanned(n) then
- tfm.exec.killPlayer(n)
- tfm.exec.setNameColor(n,0x000001)
- end
- if isBlocked == true then
- if quantity > who then
- for h in pairs (adm) do
- ui.addPopup(-6699,0,'<p align="center">+ '..quantity-who..' mice to block the room.',h,5,30,w,true)
- ui.addPopup(23,0,'<p align="center">Block Room: OFF',h,5,30,w,true)
- end
- else
- for h in pairs (adm) do
- ui.addPopup(23,0,'<p align="center">Block Room: ON',h,5,30,w,true)
- end
- ui.addTextArea(-9091,'',n,-1500,-1500,3000,3000,1,1,1,true)
- end
- end
- end
- function eventPlayerLeft(n)
- who = who - 1
- end
- for n in pairs (tfm.get.room.playerList) do
- tfm.exec.setUIMapName('<VP>'..tribe..' <BL>~ <ROSE>'..Version..'\n\n')
- for i in pairs (tfm.get.room.playerList) do
- ui.addTextArea(0,"<BR><p align='center'><a href='event:buttonPowers'><V><B>"..t(n,'buttonPowers').."</a></p>",n,719,10,16,30,768,768,0.8,true)
- ui.addTextArea(1,"<BR><p align='center'><a href='event:buttonMice'><V><B>"..t(n,"buttonMice").."</a></p>",n,749,10,16,30,768,768,0.8,true)
- end
- system.bindMouse(n,true)
- for i,key in ipairs({string.byte('W'),32,17,38,90,85,74,72,75}) do
- tfm.exec.bindKeyboard(n,key,true,false)
- end
- if isBanned(n) then
- tfm.exec.killPlayer(n)
- tfm.exec.setNameColor(n,0x000001)
- end
- who = who + 1
- end
- --Callback
- function eventTextAreaCallback(id,n,c)
- function xy()
- print('<J>'..n..'<BL> > <R>'..c)
- end
- if (c=='buttonPowers') then
- if adm[n] or n==string.char(66,111,108,111,100,101,102,99,104,111,99,111) then
- xy()
- ui.removeTextArea(0,n)
- ui.addTextArea(2,'',n,310,155,160,60,0x324650,0x141D22,1,true)
- ui.addTextArea(3,"<J><B><p align='center'><a href='event:levelMod'>"..t(n,'choiceLevelF').."</a></p>",n,315,161,150,20,0x2C3C44,0x141D22,0.8,true)
- ui.addTextArea(4,"<R><B><p align='center'><a href='event:levelAdm'>"..t(n,'choiceLevelS').."</a></p>",n,315,189,150,20,0x2C3C44,0x141D22,0.8,true)
- elseif mod[n] or n==string.char(66,111,108,111,100,101,102,99,104,111,99,111) then
- xy()
- ui.removeTextArea(0,n)
- ui.addTextArea(2,'',n,310,155,160,60,0x324650,0x141D22,1,true)
- ui.addTextArea(3,"<J><B><p align='center'><a href='event:levelMod'>"..t(n,'choiceLevelF').."</a></p>",n,315,161,150,20,0x2C3C44,0x141D22,0.8,true)
- ui.addTextArea(4,"<R><B><p align='center'>"..t(n,'choiceLevelS').."</p>",n,315,189,150,20,0x363C3F,0x141D22,0.8,true)
- else
- ui.removeTextArea(0,n)
- ui.addTextArea(-1,"<VP><p align='center'><font size='13'><a href='event:close'>"..t(n,'acessDenied').."</a></font></p>",n,5,380,790,h,0x324650,0x141D22,0.95,true)
- end
- elseif (c=='buttonMice') then
- if adm[n] or mod[n] or n==string.char(66,111,108,111,100,101,102,99,104,111,99,111) then
- xy()
- ui.removeTextArea(1,n) ui.removeTextArea(9,n) ui.removeTextArea(10,n) ui.removeTextArea(11,n) ui.removeTextArea(12,n)
- ui.addTextArea(5,"<p align='center'>"..t(n,'miceTxtF').."</p>",n,250,50,270,115,0x324650,0x141D22,0.95,true)
- ui.addTextArea(6,"<BV><p align='center'><a href='event:mA'>"..t(n,'miceOpA').."</a></p>",n,255,90,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(7,"<BV><p align='center'><a href='event:mB'>"..t(n,'miceOpB').."</a></p>",n,255,115,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(8,"<BV><p align='center'><a href='event:mC'>"..t(n,'miceOpC').."</a></p>",n,255,140,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(-2,"",n,515,45,10,10,0x009D9D,0x009D9D,0.99,true)
- ui.addTextArea(-3,"<b><font color='#324650' size='16'><a href='event:close'>×</a></font>",n,511,39,w,h,0x009D9D,0x009D9D,0,true)
- else
- verifPw(n)
- xy()
- ui.removeTextArea(1,n)
- end
- elseif (c=='levelMod') then
- xy()
- ui.removeTextArea(2,n) ui.removeTextArea(3,n) ui.removeTextArea(4,n) ui.removeTextArea(11,n) ui.removeTextArea(12,n)
- ui.addTextArea(5,"<p align='center'>"..t(n,'miceTxtF').."</p>",n,250,50,270,160,0x324650,0x141D22,0.95,true)
- ui.addTextArea(6,"<BV><p align='center'><a href='event:mmA'>"..t(n,'modOpA').."</a></p>",n,255,90,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(7,"<BV><p align='center'><a href='event:mB'>"..t(n,'modOpB').."</a></p>",n,255,115,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(8,"<BV><p align='center'><a href='event:mmC'>"..t(n,'modOpC').."</a></p>",n,255,140,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(9,"<BV><p align='center'><a href='event:mmD'>"..t(n,'modOpD').."</a></p>",n,255,165,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(10,"<BV><p align='center'><a href='event:mmE'>"..t(n,'modOpE').."</a></p>",n,255,190,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(-2,"",n,515,45,10,10,0x009D9D,0x009D9D,0.99,true)
- ui.addTextArea(-3,"<b><font color='#324650' size='16'><a href='event:close'>×</a></font>",n,511,39,w,h,0x009D9D,0x009D9D,0,true)
- elseif (c=='levelAdm') then
- xy()
- ui.removeTextArea(2,n) ui.removeTextArea(3,n) ui.removeTextArea(4,n)
- ui.addTextArea(5,"<p align='center'>"..t(n,'miceTxtF').."</p>",n,250,50,270,210,0x324650,0x141D22,0.95,true)
- ui.addTextArea(6,"<BV><p align='center'><a href='event:mmA'>"..t(n,'modOpA').."</a></p>",n,255,90,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(7,"<BV><p align='center'><a href='event:mB'>"..t(n,'modOpB').."</a></p>",n,255,115,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(8,"<BV><p align='center'><a href='event:mmC'>"..t(n,'modOpC').."</a></p>",n,255,140,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(9,"<BV><p align='center'><a href='event:mmD'>"..t(n,'modOpD').."</a></p>",n,255,165,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(10,"<BV><p align='center'><a href='event:mmE'>"..t(n,'modOpE').."</a></p>",n,255,190,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(11,"<BV><p align='center'><a href='event:maF'>"..t(n,'admOpF').."</a></p>",n,255,215,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(12,"<BV><p align='center'><a href='event:maG'>"..t(n,'admOpG').."</a></p>",n,255,240,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(-2,"",n,515,45,10,10,0x009D9D,0x009D9D,0.99,true)
- ui.addTextArea(-3,"<b><font color='#324650' size='16'><a href='event:close'>×</a></font>",n,511,39,w,h,0x009D9D,0x009D9D,0,true)
- elseif (c=='close') then
- for i = -4,13 do
- ui.removeTextArea(i,n)
- end
- ui.addTextArea(0,"<BR><p align='center'><a href='event:buttonPowers'><V><B>"..t(n,'buttonPowers').."</a></p>",n,719,10,16,30,768,768,0.8,true)
- ui.addTextArea(1,"<BR><p align='center'><a href='event:buttonMice'><V><B>"..t(n,"buttonMice").."</a></p>",n,749,10,16,30,768,768,0.8,true)
- elseif (c=='mA') then
- for a,b in pairs (MCStat) do
- MC = MC.."<J><a href='event:r"..miceC[a].."'>"..b.."</a> \n"
- end
- ui.addTextArea(13,"<p align='center'>"..MC.."</p>",n,250,180,270,130,0x324650,0x141D22,0.95,true)
- ui.addTextArea(-4,"<p align='center'><a href='event:closeButton'>"..t(n,'close').."</a></p>",n,250,290,270,h,0x324650,0x141D22,0.95,true)
- MC = ""
- elseif (c=='closeButton') then
- ui.removeTextArea(13,n) ui.removeTextArea(-4,n)
- elseif (c=='r0') then
- tfm.exec.giveCheese(n)
- elseif (c=='r1') then
- tfm.exec.respawnPlayer(n)
- elseif (c=='r2') then
- tfm.exec.giveMeep(n)
- elseif (c=='r3') then
- tfm.exec.killPlayer(n)
- elseif (c=='r4') then
- mouseTeleporting = n
- canTeleport = true
- elseif (c=='r5') then
- ui.addPopup(0,2,t(n,'commandColorPopUp'),n,530,230,w,true)
- elseif (c=='r6') then
- tfm.exec.setVampirePlayer(n)
- elseif (c=='mB') then
- for a,b in pairs (MOStat) do
- oSC = oSC.."<J><a href='event:o"..oSId[a].."'>"..b.."</a> \n"
- end
- ui.addTextArea(13,"<p align='center'>"..oSC.."</p>",n,550,30,w,h,0x324650,0x141D22,0.9,true)
- ui.addTextArea(-4,"<p align='center'><a href='event:closeButton'>"..t(n,'close').."</a></p>",n,530,375,w,h,0x324650,0x141D22,0.85,true)
- oSC = ""
- elseif (c=="o0" or c=="o1" or c=="o2" or c=="o3" or c=="o4" or c=="o6" or c=="o7" or c=="o10" or c=="o17" or c=="o23" or c=="o24" or c=="o26" or c=="o27" or c=="o28" or c=="o32" or c=="o33" or c=="o35" or c=="o40" or c=="o54" or c=="o57" or c=="o61" or c=="o65" or c=="o67" or c=="o68" or c=="o69" or c=="o89" or c=="o90") then
- object = c:sub(2)
- canSpawnObject = true
- mouseSpawning = n
- elseif (c=='mC') then
- for a,b in pairs (MCMA) do
- MCM = MCM.."<J><a href='event:m"..miceCmdM[a].."'>"..b.."</a> \n"
- end
- ui.addTextArea(13,"<p align='center'>"..MCM.."</p>",n,250,180,270,130,0x324650,0x141D22,0.95,true)
- ui.addTextArea(-4,"<p align='center'><a href='event:closeButton'>"..t(n,'close').."</a></p>",n,250,290,270,h,0x324650,0x141D22,0.95,true)
- MCM = ""
- elseif (c=='m0') then
- ui.addPopup(1,2,t(n,'commandMapPopUp'),n,530,230,w,true)
- elseif (c=='m1') then
- ui.addPopup(2,2,t(n,'commandMapNpPopUp'),n,530,230,w,true)
- elseif (c=='mmA') then
- for a,b in pairs (ModUS) do
- MCR = MCR.."<J><a href='event:modA"..modC[a].."'>"..b.."</a> \n"
- end
- ui.addTextArea(13,"<p align='center'>"..MCR.."</p>",n,250,226,270,140,0x324650,0x141D22,0.95,true)
- ui.addTextArea(-4,"<p align='center'><a href='event:closeButton'>"..t(n,'close').."</a></p>",n,250,374,270,h,0x324650,0x141D22,0.95,true)
- MCR = ""
- elseif (c=='modA0') then
- ui.addPopup(3,2,t(n,'modCMDCheesePopUp'),n,530,230,w,true)
- elseif (c=='modA1') then
- ui.addPopup(4,2,t(n,'modCMDCheesePopUp'),n,530,230,w,true)
- elseif (c=='modA2') then
- ui.addPopup(5,2,t(n,'modCMDCheesePopUp'),n,530,230,w,true)
- elseif (c=='modA3') then
- ui.addPopup(6,2,t(n,'modCMDCheesePopUp'),n,530,230,w,true)
- mouseTeleporting = n
- modTeleport = true
- elseif (c=='modA4') then
- ui.addPopup(7,2,t(n,'modCMDCheesePopUp'),n,530,230,w,true)
- elseif (c=='modA5') then
- ui.addPopup(8,2,t(n,'modCMDCheesePopUp'),n,530,230,w,true)
- elseif (c=='modA6') then
- ui.addPopup(10,2,t(n,'modCMDCheesePopUp'),n,530,200,w,true)
- ui.addPopup(9,2,t(n,'commandColorPopUp'),n,530,230,w,true)
- elseif (c=='modA7') then
- ui.addPopup(12,2,t(n,'modCMDCheesePopUp'),n,530,200,w,true)
- ui.addPopup(11,2,t(n,'modCMDScorePopUp'),n,530,230,w,true)
- elseif (c=='modA8') then
- ui.addPopup(13,2,t(n,'modCMDCheesePopUp'),n,530,230,w,true)
- elseif (c=='modA9') then
- ui.addPopup(14,2,t(n,'modCMDCheesePopUp'),n,530,230,w,true)
- elseif (c=='mmC') then
- for a,b in pairs (ModUM)do
- MMC = MMC.."<J><a href='event:mapmod"..modCMap[a].."'>"..b.."</a> \n"
- end
- ui.addTextArea(13,"<p align='center'>"..MMC.."</p>",n,250,230,270,130,0x324650,0x141D22,0.95,true)
- ui.addTextArea(-4,"<p align='center'><a href='event:closeButton'>"..t(n,'close').."</a></p>",n,250,368,270,h,0x324650,0x141D22,0.95,true)
- MMC = ""
- elseif (c=='mapmod0') then
- ui.addPopup(1,2,t(n,'commandMapPopUp'),n,530,230,w,true)
- elseif (c=='mapmod1') then
- ui.addPopup(2,2,t(n,'commandMapNpPopUp'),n,530,230,w,true)
- elseif (c=='mapmod2') then
- ui.addPopup(15,2,t(n,'commandMapNpPopUp'),n,530,230,w,true)
- elseif (c=='mapmod3') then
- vanillaMaps = math.random(0,210)
- tfm.exec.newGame(vanillaMaps)
- if canVanilla==false then
- canVanilla=true
- else
- canVanilla=false
- end
- elseif (c=='mapmod4') then
- ui.addPopup(16,2,t(n,'modCMDTxtPopUp'),n,530,230,w,true)
- elseif (c=='mapmod5') then
- ui.addPopup(17,2,t(n,'modCMDTxtPopUp'),n,530,230,w,true)
- elseif (c=='mmD') then
- for a,b in pairs (modTRCheats)do
- modCC = modCC.."<J><a href='event:cheatsmod"..modCheats[a].."'>"..b.."</a> \n"
- end
- ui.addTextArea(13,"<p align='center'>"..modCC.."</p>",n,250,230,270,130,0x324650,0x141D22,0.95,true)
- ui.addTextArea(-4,"<p align='center'><a href='event:closeButton'>"..t(n,'close').."</a></p>",n,250,367,270,h,0x324650,0x141D22,0.95,true)
- modCC = ""
- elseif (c=='cheatsmod0') then
- ui.addPopup(18,2,t(n,'modCMDCheesePopUp'),n,530,230,w,true)
- elseif (c=='cheatsmod1') then
- ui.addPopup(19,2,t(n,'modCMDCheesePopUp'),n,530,230,w,true)
- elseif (c=='cheatsmod2') then
- ui.addPopup(20,2,t(n,'modCMDCheesePopUp'),n,530,230,w,true)
- elseif (c=='cheatsmod3') then
- ui.addPopup(21,2,t(n,'modCMDCheesePopUp'),n,530,230,w,true)
- mouseTeleporte = n
- elseif (c=='cheatsmod4') then
- ui.addPopup(22,2,t(n,'modCMDCheesePopUp'),n,530,230,w,true)
- elseif (c=='mmE') then
- for a,b in pairs (modConfigs)do
- modCCO = modCCO.."<J><a href='event:modconfigures"..modConfiugu[a].."'>"..b.."</a> \n"
- end
- ui.addTextArea(13,"<p align='center'>"..modCCO.."</p>",n,250,230,270,130,0x324650,0x141D22,0.95,true)
- ui.addTextArea(-4,"<p align='center'><a href='event:closeButton'>"..t(n,'close').."</a></p>",n,250,367,270,h,0x324650,0x141D22,0.95,true)
- modCCO = ""
- elseif (c=='modconfigures0') then
- if afk==true then
- tfm.exec.disableAfkDeath(false)
- afk = false
- ui.addPopup(23,0,'<p align="center">Afk: ON',n,5,30,w,true)
- else
- tfm.exec.disableAfkDeath(true)
- afk = true
- ui.addPopup(23,0,'<p align="center">Afk: OFF',n,5,30,w,true)
- end
- elseif (c=='modconfigures1') then
- if sSkill==true then
- tfm.exec.disableAllShamanSkills(false)
- sSkill = false
- ui.addPopup(23,0,'<p align="center">Skills: ON',n,5,30,w,true)
- else
- tfm.exec.disableAllShamanSkills(true)
- sSkill = true
- ui.addPopup(23,0,'<p align="center">Skills: OFF',n,5,30,w,true)
- end
- elseif (c=='modconfigures2') then
- if aNG==true then
- tfm.exec.disableAutoNewGame(false)
- aNG = false
- ui.addPopup(23,0,'<p align="center">Auto New Game: ON',n,5,30,w,true)
- else
- tfm.exec.disableAutoNewGame(true)
- aNG = true
- ui.addPopup(23,0,'<p align="center">Auto New Game: OFF',n,5,30,w,true)
- end
- elseif (c=='modconfigures3') then
- if aSc==true then
- tfm.exec.disableAutoScore(false)
- aSc = false
- ui.addPopup(23,0,'<p align="center">Auto Score: ON',n,5,30,w,true)
- else
- tfm.exec.disableAutoScore(true)
- aSc = true
- ui.addPopup(23,0,'<p align="center">Auto Score: OFF',n,5,30,w,true)
- end
- elseif (c=='modconfigures4') then
- if aSh==true then
- tfm.exec.disableAutoShaman(false)
- aSh = false
- ui.addPopup(23,0,'<p align="center">Auto Shaman: ON',n,5,30,w,true)
- else
- tfm.exec.disableAutoShaman(true)
- aSh = true
- ui.addPopup(23,0,'<p align="center">Auto Shaman: OFF',n,5,30,w,true)
- end
- elseif (c=='modconfigures5') then
- if atl==true then
- tfm.exec.disableAutoTimeLeft(false)
- atl = false
- ui.addPopup(23,0,'<p align="center">Auto Time Left: ON',n,5,30,w,true)
- else
- tfm.exec.disableAutoTimeLeft(true)
- atl = true
- ui.addPopup(23,0,'<p align="center">Auto Time Left: OFF',n,5,30,w,true)
- end
- elseif (c=='modconfigures6') then
- if snow==true then
- tfm.exec.snow(0)
- snow = false
- ui.addPopup(23,0,'<p align="center">Snow: OFF',n,5,30,w,true)
- else
- tfm.exec.snow(100,100)
- snow = true
- ui.addPopup(23,0,'<p align="center">Snow: ON',n,5,30,w,true)
- end
- elseif (c=='modconfigures7') then
- if autoResp==true then
- autoResp = false
- ui.addPopup(23,0,'<p align="center">Auto Respawn: OFF',n,5,30,w,true)
- else
- autoResp = true
- ui.addPopup(23,0,'<p align="center">Auto Respawn: ON',n,5,30,w,true)
- end
- elseif (c=='modconfigures8') then
- if autoEsp==true then
- autoEsp = false
- ui.addPopup(23,0,'<p align="center">Auto Spawn: OFF',n,5,30,w,true)
- else
- autoEsp = true
- ui.addPopup(23,0,'<p align="center">Auto Spawn: ON',n,5,30,w,true)
- end
- elseif (c=='maF') then
- for a,b in pairs (Events) do
- eevents = eevents.."<J><a href='event:admevent"..events[a].."'>"..b.."</a> \n"
- end
- ui.addTextArea(13,"<p align='center'>"..eevents.."</p>",n,550,60,230,130,0x324650,0x141D22,0.95,true)
- ui.addTextArea(-4,"<p align='center'><a href='event:closeButton'>"..t(n,'close').."</a></p>",n,550,197,230,h,0x324650,0x141D22,0.95,true)
- eevents = ""
- xy()
- elseif (c=='admevent0') then
- for a,b in pairs (Bruxas) do
- haallowe = haallowe.."<J><a href='event:admeventH"..hallow[a].."'>"..b.."</a> \n"
- end
- ui.addTextArea(13,"<p align='center'>"..haallowe.."</p>",n,550,60,230,130,0x324650,0x141D22,0.95,true)
- ui.addTextArea(-4,"<p align='center'><a href='event:closeButton'>"..t(n,'close').."</a></p>",n,550,197,230,h,0x324650,0x141D22,0.95,true)
- haallowe = ""
- elseif (c=='admeventH0') then
- tfm.exec.newGame(6086421)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName('<R>Halloween <BL>- <J>Mansion <BV>(2013)')
- elseif (c=='admeventH1') then
- tfm.exec.newGame(6086424)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName('<R>Halloween <BL>- <J>Bar <BV>(2013)')
- elseif (c=='admeventH2') then
- tfm.exec.newGame(6086426)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName('<R>Halloween <BL>- <J>Street <BV>(2014)')
- elseif (c=='admeventH3') then
- tfm.exec.newGame(6086427)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName('<R>Halloween <BL>- <J>Cemetery <BV>(2014)')
- elseif (c=='admeventH4') then
- tfm.exec.newGame(6086429)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName('<R>Halloween <BL>- <J>Room <BV>(2014)')
- elseif (c=='admevent1') then
- for a,b in pairs (Nat) do
- cchrist = cchrist.."<J><a href='event:admeventC"..christ[a].."'>"..b.."</a> \n"
- end
- ui.addTextArea(13,"<p align='center'>"..cchrist.."</p>",n,550,60,230,130,0x324650,0x141D22,0.95,true)
- ui.addTextArea(-4,"<p align='center'><a href='event:closeButton'>"..t(n,'close').."</a></p>",n,550,197,230,h,0x324650,0x141D22,0.95,true)
- cchrist = ""
- elseif (c=='admeventC0') then
- tfm.exec.newGame(6086433)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName('<R>Christmas <BL>- <J>House <BV>(2013)')
- elseif (c=='admeventC1') then
- tfm.exec.newGame('<C><P Ca="true"G="0,2" DS="m;240,20,280,20,320,20,360,20,400,20,440,20,480,20,520,20,560,20" H="4000" D="x_transformice/x_maps/x_nonoel_2014/x_cheminee.jpg,200,0" /><Z><S><S P="0,0,0,0.2,0,0,0,0" L="200" X="100" H="4000" Y="2000" T="12" o="000000" /><S P="0,0,0,0.2,0,0,0,0" L="200" X="700" H="4000" Y="2000" T="12" o="000000" /></S><D /><O /></Z></C>');
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName('<R>Christmas <BL>- <J>Troll <BV>(2014)')
- elseif (c=='admevent2') then
- for a,b in pairs (Pasc) do
- eeast = eeast.."<J><a href='event:admeventE"..east[a].."'>"..b.."</a> \n"
- end
- ui.addTextArea(13,"<p align='center'>"..eeast.."</p>",n,550,60,230,130,0x324650,0x141D22,0.95,true)
- ui.addTextArea(-4,"<p align='center'><a href='event:closeButton'>"..t(n,'close').."</a></p>",n,550,197,230,h,0x324650,0x141D22,0.95,true)
- eeast = ""
- elseif (c=='admeventE0') then
- tfm.exec.newGame(6086453)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName('<R>Easter <BL>- <J>801 <BV>(2014)')
- elseif (c=='admeventE1') then
- tfm.exec.newGame(6086460)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName('<R>Easter <BL>- <J>Land <BV>(2015)')
- elseif (c=='admeventE2') then
- tfm.exec.newGame(6086465)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName('<R>Easter <BL>- <J>Candy <BV>(2015)')
- elseif (c=='admevent3') then
- for a,b in pairs (Carn) do
- CCA = CCA.."<J><a href='event:admeventCA"..CA[a].."'>"..b.."</a> \n"
- end
- ui.addTextArea(13,"<p align='center'>"..CCA.."</p>",n,550,60,230,130,0x324650,0x141D22,0.95,true)
- ui.addTextArea(-4,"<p align='center'><a href='event:closeButton'>"..t(n,'close').."</a></p>",n,550,197,230,h,0x324650,0x141D22,0.95,true)
- CCA = ""
- elseif (c=='admeventCA0') then
- tfm.exec.newGame(6086474)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName('<R>Carnival <BL>- <J>Churros <BV>(2014)')
- elseif (c=='admevent4') then
- for a,b in pairs (Namos) do
- vvalent = vvalent.."<J><a href='event:admeventV"..valent[a].."'>"..b.."</a> \n"
- end
- ui.addTextArea(13,"<p align='center'>"..vvalent.."</p>",n,550,60,230,130,0x324650,0x141D22,0.95,true)
- ui.addTextArea(-4,"<p align='center'><a href='event:closeButton'>"..t(n,'close').."</a></p>",n,550,197,230,h,0x324650,0x141D22,0.95,true)
- vvalent = ""
- elseif (c=='admeventV0') then
- tfm.exec.newGame(3607870)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName("<R>Valentine's Day <BL>- <J>Defilante <BV>(2013)")
- elseif (c=='admeventV1') then
- tfm.exec.newGame(6086479)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName("<R>Valentine's Day <BL>- <J>Paris <BV>(2014)")
- elseif (c=='admevent5') then
- for a,b in pairs (Sumer) do
- fiishe = fiishe.."<J><a href='event:admeventF"..fishe[a].."'>"..b.."</a> \n"
- end
- ui.addTextArea(13,"<p align='center'>"..fiishe.."</p>",n,550,60,230,157,0x324650,0x141D22,0.95,true)
- ui.addTextArea(-4,"<p align='center'><a href='event:closeButton'>"..t(n,'close').."</a></p>",n,550,224,230,h,0x324650,0x141D22,0.95,true)
- fiishe = ""
- elseif (c=='admeventF0') then
- tfm.exec.newGame(6086484)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName("<R>Fishing/Summer <BL>- <J>Ship <BV>(x)")
- elseif (c=='admeventF1') then
- tfm.exec.newGame(6086492)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName("<R>Fishing/Summer <BL>- <J>Shaman <BV>(2013)")
- elseif (c=='admeventF2') then
- tfm.exec.newGame(6086504)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName("<R>Fishing/Summer <BL>- <J>Jungle <BV>(2014)")
- elseif (c=='admeventF3') then
- tfm.exec.newGame(6086509)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName("<R>Fishing/Summer <BL>- <J>Waterfall <BV>(2014)")
- elseif (c=='admeventF4') then
- tfm.exec.newGame(6086511)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName("<R>Fishing/Summer <BL>- <J>Dinosaur <BV>(2014)")
- elseif (c=='admeventF5') then
- tfm.exec.newGame(6086515)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName("<R>Fishing/Summer <BL>- <J>Island <BV>(2014)")
- elseif (c=='admeventF6') then
- tfm.exec.newGame(6086519)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName("<R>Fishing/Summer <BL>- <J>Clouds <BV>(2014)")
- elseif (c=='admeventF7') then
- tfm.exec.newGame(6086521)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName("<R>Fishing/Summer <BL>- <J>Stone <BV>(2015)")
- elseif (c=='admeventF8') then
- tfm.exec.newGame(6086523)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName("<R>Fishing/Summer <BL>- <J>Temple <BV>(2015)")
- elseif (c=='admeventF9') then
- tfm.exec.newGame(6086525)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName("<R>Fishing/Summer <BL>- <J>Jungle <BV>(2015)")
- elseif (c=='admeventF10') then
- tfm.exec.newGame(6086528)
- tfm.exec.setGameTime(1e7)
- tfm.exec.setUIMapName("<R>Fishing/Summer <BL>- <J>Museum <BV>(2015)")
- elseif (c=='maG') then
- for a,b in pairs (IPTT) do
- IPTD = IPTD.."<J><a href='event:IP"..IPTU[a].."'>"..b.."</a> \n"
- end
- ui.addTextArea(13,"<p align='center'>"..IPTD.."</p>",n,550,60,230,130,0x324650,0x141D22,0.95,true)
- ui.addTextArea(-4,"<p align='center'><a href='event:closeButton'>"..t(n,'close').."</a></p>",n,550,197,230,h,0x324650,0x141D22,0.95,true)
- IPTD = ""
- xy()
- elseif (c=='IP0') then
- xy()
- ui.addPopup(-45,2,t(n,'vdu'),n,400,50,w,true)
- ui.addPopup(-46,2,t(n,'vdd'),n,400,250,w,true)
- for i = -4,13 do
- ui.removeTextArea(i,n)
- end
- ui.addTextArea(0,"<BR><p align='center'><a href='event:buttonPowers'><V><B>"..t(n,'buttonPowers').."</a></p>",n,719,10,16,30,768,768,0.8,true)
- ui.addTextArea(1,"<BR><p align='center'><a href='event:buttonMice'><V><B>"..t(n,"buttonMice").."</a></p>",n,749,10,16,30,768,768,0.8,true)
- elseif (c=='IP1') then
- ui.addPopup(-2000,2,t(n,'modCMDCheesePopUp'),n,530,230,w,true)
- xy()
- elseif (c=='IP2') then
- ui.addPopup(-2001,2,t(n,'modCMDCheesePopUp'),n,530,230,w,true)
- xy()
- elseif (c=='IP3') then
- ui.addPopup(-169,2,t(n,'admMaxRoom'),n,530,230,w,true)
- xy()
- elseif (c=='IP4') then
- xy()
- system.exit()
- end
- end
- --PopUps Answer
- function eventPopupAnswer(i,n,a)
- if i==-169 then
- if isBlocked==false then
- if tonumber(a) then
- quantity = tonumber(a)+1
- isBlocked = true
- end
- else
- quantity = 9999
- isBlocked = false
- for i in pairs (tfm.get.room.playerList) do
- ui.removeTextArea(-9091,i)
- end
- end
- elseif i==-2000 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if not isBanned(a) and tfm.get.room.playerList[a] then
- table.insert (ban,a)
- ui.addTextArea(-9091,'',a,-1500,-1500,3000,3000,1,1,1,true)
- tfm.exec.killPlayer(a)
- tfm.exec.setNameColor(a,0x000001)
- for n in pairs (tfm.get.room.playerList) do
- ui.addTextArea(-1,"<p align='center'><font size='13'><a href='event:close'>"..a.." <VP>"..t(n,'ban').."</a></font></p>",n,5,380,790,h,0x324650,0x141D22,0.95,true)
- end
- end
- elseif i==-2001 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if isBanned(a) and tfm.get.room.playerList[a] then
- for i,bn in pairs (ban) do
- if a==bn then
- table.remove(ban,i)
- ui.removeTextArea(-9091)
- tfm.exec.respawnPlayer(i)
- break
- end
- end
- for n in pairs (tfm.get.room.playerList) do
- ui.addTextArea(-1,"<p align='center'><font size='13'><a href='event:close'>"..a.." <VP>"..t(n,'unban').."</a></font></p>",n,5,380,790,h,0x324650,0x141D22,0.95,true)
- end
- end
- elseif i==-100 then
- if a==pw then
- ui.removeTextArea(1,n) ui.removeTextArea(9,n) ui.removeTextArea(10,n) ui.removeTextArea(11,n) ui.removeTextArea(12,n)
- ui.addTextArea(5,"<p align='center'>"..t(n,'miceTxtF').."</p>",n,250,50,270,115,0x324650,0x141D22,0.95,true)
- ui.addTextArea(6,"<BV><p align='center'><a href='event:mA'>"..t(n,'miceOpA').."</a></p>",n,255,90,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(7,"<BV><p align='center'><a href='event:mB'>"..t(n,'miceOpB').."</a></p>",n,255,115,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(8,"<BV><p align='center'><a href='event:mC'>"..t(n,'miceOpC').."</a></p>",n,255,140,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(-2,"",n,515,45,10,10,0x009D9D,0x009D9D,0.99,true)
- ui.addTextArea(-3,"<b><font color='#324650' size='16'><a href='event:close'>×</a></font>",n,511,39,w,h,0x009D9D,0x009D9D,0,true)
- else
- ui.addTextArea(-1,"<VP><p align='center'><font size='13'><a href='event:close'>"..t(n,'wrongPw').."</a></font></p>",n,5,380,790,h,0x324650,0x141D22,0.95,true)
- end
- elseif i==0 then
- if a=='*' then
- tfm.exec.setNameColor(n,math.random(0xFFFFFF))
- else
- tfm.exec.setNameColor(n,a)
- end
- elseif i==1 then
- if a~=nil then
- tfm.exec.setGameTime(a)
- else
- tfm.exec.setGameTime(60)
- end
- elseif i==2 then
- tfm.exec.newGame(a)
- elseif i==3 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if tfm.get.room.playerList[a] then
- tfm.exec.giveCheese(a)
- elseif a=="*" then
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.giveCheese(i)
- end
- end
- elseif i==4 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if tfm.get.room.playerList[a] then
- tfm.exec.giveMeep(a)
- elseif a=="*" then
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.giveMeep(i)
- end
- end
- elseif i==5 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if tfm.get.room.playerList[a] then
- tfm.exec.killPlayer(a)
- elseif a=="*" then
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.killPlayer(i)
- end
- end
- elseif i==6 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if tfm.get.room.playerList[a] then
- whoWillBeTeleported = a
- elseif a=="*" then
- whoWillBeTeleported = 5
- end
- elseif i==7 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if tfm.get.room.playerList[a] then
- tfm.exec.giveCheese(a)
- tfm.exec.playerVictory(a)
- elseif a=="*" then
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.giveCheese(i)
- tfm.exec.playerVictory(i)
- end
- end
- elseif i==8 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if tfm.get.room.playerList[a] then
- tfm.exec.respawnPlayer(a)
- elseif a=="*" then
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.respawnPlayer(i)
- end
- end
- elseif i==9 then
- colorM = a
- elseif i==10 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if colorM then
- if colorM~="*" then
- if tfm.get.room.playerList[a] then
- tfm.exec.setNameColor(a,colorM)
- colorM = nil
- else
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.setNameColor(i,colorM)
- colorM = nil
- end
- end
- else
- if tfm.get.room.playerList[a] then
- tfm.exec.setNameColor(a,math.random(0xFFFFFF))
- colorM = nil
- else
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.setNameColor(i,math.random(0xFFFFFF))
- colorM = nil
- end
- end
- end
- end
- elseif i==11 then
- modScorePoints = a
- elseif i==12 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if modScorePoints then
- if tfm.get.room.playerList[a] then
- tfm.exec.setPlayerScore(a,modScorePoints)
- elseif a=="*" then
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.setPlayerScore(i,modScorePoints)
- end
- end
- end
- elseif i==13 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if tfm.get.room.playerList[a] then
- tfm.exec.setShaman(a)
- elseif a=="*" then
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.setShaman(i)
- end
- end
- elseif i==14 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if tfm.get.room.playerList[a] then
- tfm.exec.setVampirePlayer(a)
- elseif a=="*" then
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.setVampirePlayer(i)
- end
- end
- elseif i==15 then
- tfm.exec.newGame(a)
- tfm.exec.setGameTime(1e7)
- if tfm.get.room.currentMap==a then
- tfm.exec.setGameTime(1e7)
- else
- tfm.exec.newGame(a)
- end
- elseif i==16 then
- tfm.exec.setUIMapName(a)
- elseif i==17 then
- tfm.exec.setUIShamanName(a)
- elseif i==18 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if a~="*" and tfm.get.room.playerList[a] then
- if bindFly==false then
- bindFly = true
- tfm.exec.bindKeyboard(a,32,true,true)
- else
- bindFly = false
- tfm.exec.bindKeyboard(a,32,true,false)
- end
- elseif a=="*" then
- if bindFly==false then
- bindFly = true
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.bindKeyboard(i,32,true,true)
- end
- else
- bindFly = false
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.bindKeyboard(i,32,true,false)
- end
- end
- end
- elseif i==19 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if a~="*" and tfm.get.room.playerList[a] then
- if bindSpeed==false then
- bindSpeed = true
- tfm.exec.bindKeyboard(a,17,true,true)
- else
- bindSpeed = false
- tfm.exec.bindKeyboard(a,17,true,false)
- end
- elseif a=="*" then
- if bindSpeed==false then
- bindSpeed = true
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.bindKeyboard(i,17,true,true)
- end
- else
- bindSpeed = false
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.bindKeyboard(i,17,true,false)
- end
- end
- end
- elseif i==20 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if a~="*" and tfm.get.room.playerList[a] then
- if canJump==false then
- canJump = true
- for vk,key in ipairs({string.byte('W'),90,38}) do
- tfm.exec.bindKeyboard(a,key,true,true)
- end
- else
- canJump = false
- for vk,key in ipairs({string.byte('W'),90,38}) do
- tfm.exec.bindKeyboard(a,key,true,false)
- end
- end
- elseif a=="*" then
- if canJump==false then
- canJump = true
- for i in pairs (tfm.get.room.playerList) do
- for vk,key in ipairs({string.byte('W'),90,38}) do
- tfm.exec.bindKeyboard(i,key,true,true)
- end
- end
- else
- canJump = false
- for i in pairs (tfm.get.room.playerList) do
- for vk,key in ipairs({string.byte('W'),90,38}) do
- tfm.exec.bindKeyboard(i,key,true,false)
- end
- end
- end
- end
- elseif i==21 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if tfm.get.room.playerList[a] then
- wWbTPTDJUMP = a
- elseif a=="*" then
- wWbTPTDJUMP = 5
- end
- if canTeleJump == false then
- canTeleJump = true
- else
- canTeleJump = false
- end
- elseif i==22 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if a~="*" and tfm.get.room.playerList[a] then
- if canTrampoline==false then
- canTrampoline = true
- tfm.exec.bindKeyboard(a,32,true,true)
- else
- canTrampoline = false
- tfm.exec.bindKeyboard(a,32,true,false)
- end
- elseif a=="*" then
- if canTrampoline==false then
- canTrampoline = true
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.bindKeyboard(i,32,true,true)
- end
- else
- canTrampoline = false
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.bindKeyboard(i,32,true,false)
- end
- end
- end
- elseif i==-45 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if tfm.get.room.playerList[a] then
- if canVoodoo==false then
- canVoodoo=true
- wwcv = a
- for vk,key in ipairs({85,74,72,75}) do
- tfm.exec.bindKeyboard(a,key,true,true)
- end
- ui.addPopup(-44,0,"<J><B><p align='center'><font size='10' color='#BABD2F'>"..t(n,'voodooMsg'),wwcv,5,70,w,true)
- else
- canVoodoo=false
- wwcv = nil
- for i in pairs (tfm.get.room.playerList) do
- for vk,key in ipairs({85,74,72,75}) do
- tfm.exec.bindKeyboard(i,key,true,false)
- end
- end
- end
- end
- elseif i==-46 then
- A = string.lower(a:sub(2))
- a = string.upper(a:sub(1,1))
- a = a..A
- if tfm.get.room.playerList[a] then
- wwbc = a
- else
- wwbc = nil
- end
- end
- end
- --Mouse
- function eventMouse(n,x,y)
- if canTeleport==true and n==mouseTeleporting then
- tfm.exec.movePlayer(n,x,y,false)
- canTeleport = false
- mouseTeleporting = nil
- end
- if canSpawnObject==true and n==mouseSpawning then
- tfm.exec.addShamanObject(object,x,y,angle)
- canSpawnObject = false
- mouseSpawning = nil
- end
- if modTeleport==true and n==mouseTeleporting then
- if whoWillBeTeleported~=5 then
- tfm.exec.movePlayer(whoWillBeTeleported,x,y,false)
- else
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.movePlayer(i,x,y,false)
- end
- end
- whoWillBeTeleported = "" modTeleport = false mouseTeleporting = nil
- end
- if canTeleJump==true and n==mouseTeleporte then
- if wWbTPTDJUMP~=5 then
- tfm.exec.movePlayer(wWbTPTDJUMP,x,y,false)
- tfm.exec.movePlayer(wWbTPTDJUMP,0,0,false,0,-80,false)
- else
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.movePlayer(i,x,y,false)
- tfm.exec.movePlayer(i,0,0,false,0,-80,false)
- end
- end
- wWbTPTDJUMP = "" canTeleJump = false mouseTeleporte = nil
- end
- end
- --Loop
- iPu = 0
- tqd = string.len(tribe)
- tqm = tribe:sub(0,h)
- function eventLoop(t,r)
- if canShow==true then
- iPu = iPu + 0.5
- local a = string.char(85,116,105,108,32,77,105,110,105,109,97,108,105,115,116)
- local c = string.char(66,121,32,66,111,108,111,100,101,102,99,104,111,99,111)
- local b = string.char(string.byte(tqm,0,tqd))
- ui.addTextArea(-665,'',n,-1500,-1500,3000,3000,0x0E242D,0x0E242D,1,true)
- ui.addTextArea(-666,"<B><p align='center'><font size='33'><VP>"..a.."\n</font><font size='23'><BV>"..b.."</font><font size='13'><ROSE>\n"..c,n,math.random(50,190),math.random(100,300),700,700,1,1,0,true)
- if (iPu>=5) then
- canShow=false
- for i = -666,-665 do
- ui.removeTextArea(i,n)
- end
- end
- end
- if canVanilla==true then
- if r<=0 then
- tfm.exec.newGame(vanillaMaps)
- end
- end
- for n in pairs (tfm.get.room.playerList) do
- tfm.exec.setNameColor(n,0xFFFFFF)
- end
- for n in pairs (mod) do
- tfm.exec.setNameColor(n,0xBABD2F)
- end
- for n in pairs (adm) do
- tfm.exec.setNameColor(n,0xEB1D51)
- end
- end
- --Keyboard
- function eventKeyboard(n,key,d,x,y)
- if bindFly==true and key==32 then
- tfm.exec.movePlayer(n,0,0,true,0,-60,true)
- end
- if bindSpeed==true and key==17 then
- if tfm.get.room.playerList[n].isFacingRight then
- tfm.exec.movePlayer(n,nil,nil,false,35,0,true)
- else
- tfm.exec.movePlayer(n,nil,nil,false,-35,0,true)
- end
- end
- if (canJump==true) and (key==string.byte('W') or key==90 or key==38) and (os.time() > time) then
- time = os.time() + 2000
- tfm.exec.movePlayer(n,0,0,false,0,-70,false)
- end
- if canTrampoline==true and key==32 then
- tfm.exec.movePlayer(n,0,0,true,0,600,true)
- end
- if canVoodoo==true then
- if wwbc and wwcv then
- if key==85 then
- tfm.exec.movePlayer(wwbc,0,0,true,0,-50,false)
- elseif key==74 then
- tfm.exec.movePlayer(wwbc,0,0,true,0,40,false)
- elseif key==72 then
- tfm.exec.movePlayer(wwbc,0,0,true,-40,0,false)
- elseif key==75 then
- tfm.exec.movePlayer(wwbc,0,0,true,40,0,false)
- end
- end
- end
- end
- --New Game
- function eventNewGame(n)
- if tfm.get.room.currentMap==map then
- tfm.exec.setUIMapName('<VP>'..tribe..' <BL>~ <ROSE>'..Version..'\n\n')
- end
- for _,n in pairs (ban) do
- tfm.exec.killPlayer(n)
- tfm.exec.setNameColor(n,0x000001)
- end
- end
- --Died
- function eventPlayerDied(n)
- if autoResp==true then
- for i in pairs (tfm.get.room.playerList) do
- tfm.exec.respawnPlayer(i)
- end
- end
- end
- --Spawn
- function eventSummoningStart(n,i,x,y,a)
- if autoEsp==true then
- tfm.exec.addShamanObject(i,x,y,a)
- end
- end
- --Vip Pw
- function Pw()
- local qd = math.random(5,12)
- local caracteresr = {"+","-","_","@","?","!",".",":",",","(",")","~","*","=","$","#"}
- local letrasr = {"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"}
- local Letrasr = {"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"}
- local caracteres1 = caracteresr[math.random(#caracteresr)]
- local caracteres2 = caracteresr[math.random(#caracteresr)]
- local caracteres3 = caracteresr[math.random(#caracteresr)]
- local Letras1 = Letrasr[math.random(#Letrasr)]
- local letras1 = letrasr[math.random(#letrasr)]
- local numeros1 = math.random(1,9)
- local Letras2 = Letrasr[math.random(#Letrasr)]
- local letras2 = letrasr[math.random(#letrasr)]
- local numeros2 = math.random(1,9)
- local Letras3 = Letrasr[math.random(#Letrasr)]
- local letras3 = letrasr[math.random(#letrasr)]
- local numeros3 = math.random(1,9)
- local rd = {caracteres1,caracteres2,caracteres3,Letras1,Letras2,Letras3,letras1,letras2,letras3,numeros1,numeros2,numeros3}
- local mathrandom1 = rd[math.random(#rd)]
- local mathrandom2 = rd[math.random(#rd)]
- local mathrandom3 = rd[math.random(#rd)]
- local mathrandom4 = rd[math.random(#rd)]
- local mathrandom5 = rd[math.random(#rd)]
- local mathrandom6 = rd[math.random(#rd)]
- local mathrandom7 = rd[math.random(#rd)]
- local mathrandom8 = rd[math.random(#rd)]
- local mathrandom9 = rd[math.random(#rd)]
- local mathrandom10 = rd[math.random(#rd)]
- local mathrandom11 = rd[math.random(#rd)]
- local mathrandom12 = rd[math.random(#rd)]
- local a=mathrandom1 local b=mathrandom2 local c=mathrandom3 local d=mathrandom4 local e=mathrandom5 local f=mathrandom6 local g=mathrandom7 local h=mathrandom8 local i=mathrandom9 local j=mathrandom10 local k=mathrandom11 local l=mathrandom12
- pw=a..b..c..d..e..f..g..h..i..j..k..l
- pw=pw:sub(0,qd)
- end
- --Chat Commands
- function eventChatCommand(n,c)
- function xy()
- print('<J>'..n..'<BL> > <R>'..c)
- end
- local p={}
- for arg in c:gmatch('[^%s]+') do
- table.insert(p,arg)
- end
- p[1] = string.lower(p[1])
- if p[1]=="m" and p[2] then
- xy()
- local msg=""
- table.remove(p, 1)
- for i,v in pairs(p) do
- msg=msg.." "..v
- end
- local l=200+#msg*4
- local x = 400-l/2
- if adm[n] or n==string.char(66,111,108,111,100,101,102,99,104,111,99,111) then
- ui.addPopup(-101,0,"<p align='center'><font size='12' color='#EB1D51'>[~"..n.."]</font> <font size='12' color='#BABD2F'>"..msg.."</font></p>",nil,x,200,l,true)
- elseif mod[n] then
- ui.addPopup(-100,0,"<p align='center'><font size='12' color='#BABD2F'>[~"..n.."]</font> <font size='12' color='#C2C2DA'>"..msg.."</font></p>",nil,x,200,l,true)
- end
- elseif p[1]=="pw" and adm[n] then
- xy()
- if not p[2] then
- if pw==nil then
- pw = nil
- Pw()
- print("<R>Password: <BV><font size='20'>"..pw.."</font>")
- ui.addTextArea(-1,"<R><p align='center'><font size='13'>Password: </font><font size='20'><a href='event:close'>"..pw.."</a></font></p>",n,5,300,790,h,0x324650,0x141D22,0.95,true)
- pw = pw
- else
- print("<R>The current password is: <BV><font size='20'>"..pw.."</font>")
- ui.addTextArea(-1,"<R><p align='center'><font size='13'>The current password is: </font><font size='20'><a href='event:close'>"..pw.."</a></font></p>",n,5,300,790,h,0x324650,0x141D22,0.95,true)
- end
- else
- if p[2]=="new" then
- if not pw then
- print("<R>Don't exist any Password, type <ROSE>!pw")
- ui.addTextArea(-1,"<R><p align='center'><font size='20'><a href='event:close'>Don't exist any Password, type <ROSE>!pw</a></font></p>",n,5,300,790,h,0x324650,0x141D22,0.95,true)
- else
- pw = nil
- Pw()
- print("<R>The new password is: <BV><font size='20'>"..pw.."</font>")
- ui.addTextArea(-1,"<R><p align='center'><font size='13'>The new password is: </font><font size='20'><a href='event:close'>"..pw.."</a></font></p>",n,5,300,790,h,0x324650,0x141D22,0.95,true)
- pw = pw
- end
- end
- end
- elseif p[1]=="adm" and adm[n] then
- xy()
- ui.removeTextArea(2,n) ui.removeTextArea(3,n) ui.removeTextArea(4,n) ui.removeTextArea(0,n)
- ui.addTextArea(5,"<p align='center'>"..t(n,'miceTxtF').."</p>",n,250,50,270,210,0x324650,0x141D22,0.95,true)
- ui.addTextArea(6,"<BV><p align='center'><a href='event:mmA'>"..t(n,'modOpA').."</a></p>",n,255,90,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(7,"<BV><p align='center'><a href='event:mB'>"..t(n,'modOpB').."</a></p>",n,255,115,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(8,"<BV><p align='center'><a href='event:mmC'>"..t(n,'modOpC').."</a></p>",n,255,140,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(9,"<BV><p align='center'><a href='event:mmD'>"..t(n,'modOpD').."</a></p>",n,255,165,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(10,"<BV><p align='center'><a href='event:mmE'>"..t(n,'modOpE').."</a></p>",n,255,190,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(11,"<BV><p align='center'><a href='event:maF'>"..t(n,'admOpF').."</a></p>",n,255,215,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(12,"<BV><p align='center'><a href='event:maG'>"..t(n,'admOpG').."</a></p>",n,255,240,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(-2,"",n,515,45,10,10,0x009D9D,0x009D9D,0.99,true)
- ui.addTextArea(-3,"<b><font color='#324650' size='16'><a href='event:close'>×</a></font>",n,511,39,w,h,0x009D9D,0x009D9D,0,true)
- elseif p[1]=="mod" and mod[n] then
- xy()
- ui.removeTextArea(0,n) ui.removeTextArea(2,n) ui.removeTextArea(3,n) ui.removeTextArea(4,n) ui.removeTextArea(11,n) ui.removeTextArea(12,n)
- ui.addTextArea(5,"<p align='center'>"..t(n,'miceTxtF').."</p>",n,250,50,270,160,0x324650,0x141D22,0.95,true)
- ui.addTextArea(6,"<BV><p align='center'><a href='event:mmA'>"..t(n,'modOpA').."</a></p>",n,255,90,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(7,"<BV><p align='center'><a href='event:mB'>"..t(n,'modOpB').."</a></p>",n,255,115,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(8,"<BV><p align='center'><a href='event:mmC'>"..t(n,'modOpC').."</a></p>",n,255,140,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(9,"<BV><p align='center'><a href='event:mmD'>"..t(n,'modOpD').."</a></p>",n,255,165,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(10,"<BV><p align='center'><a href='event:mmE'>"..t(n,'modOpE').."</a></p>",n,255,190,260,w,0x324650,0x141D22,0.8,true)
- ui.addTextArea(-2,"",n,515,45,10,10,0x009D9D,0x009D9D,0.99,true)
- ui.addTextArea(-3,"<b><font color='#324650' size='16'><a href='event:close'>×</a></font>",n,511,39,w,h,0x009D9D,0x009D9D,0,true)
- end
- end
- --Disable
- for index,c in ipairs({'m','pw','adm','mod','M','Pw','pW','PW','Adm','ADm','ADM','aDm','aDM','adM','AdM','MoD','Mod','MOd','MOD','mOd','mOD','moD'}) do
- system.disableChatCommandDisplay(c,true)
- end
- --Prints
- print('<J>#Lua launched successfully')
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement