All pastes #452102 Raw Edit

gta

public lua v1 · immutable
·published 2007-04-22 02:05 UTC
rendered paste body
addEventHandler ( "onResourceStart", getRootElement(), "oneStart" )function oneStart ( name )	local globalTextDisplay = textCreateDisplay ()	textItemOne = textCreateTextItem ( "Nobody is the One.", 0.15, 0.3, 0, 255, 0, 0, 255, 1.4 )	textDisplayAddText ( globalTextDisplay, textItemOne )		for k,v in getElementsByType ( "player" ) do		setElementData ( v, "points", 0 )		local playerTextDisplay = textCreateDisplay ()		local yourScore = textCreateTextItem ( "Score: "..getElementData(v, "points"), 0.15, 0.7, 0, 255, 0, 0, 255, 1.8 )		textDisplayAddText ( playerTextDisplay, yourScore )		textDisplayAddObserver ( playerTextDisplay, v )		setElementData ( v, "textItemPoints", yourScore )				textDisplayAddObserver ( globalTextDisplay, v )		onePlayer = false	end	oneTimer = setTimer ( "oneEnd", 300000, 1 )endfunction oneEnd ( )	local leader	for k,v in getElementsByType ( "player" ) do		if ( leader ) then			local currentPoints = getElementData ( v, "points" )			local leaderPoints = getElementData ( leader, "points" )			if ( currentPoints > leaderPoints ) then				leader = v			end		else			leader = v		end	end	local textDisplayWinner = textCreateDisplay ()	local textItem	if ( getElementData ( leader, "points" ) > 0 ) then		textItem = textCreateTextItem ( "The time is out!\nWinner: "..leader.." with "..getElementData ( leader, "points" ).."points!\n\nNewRound!", 0.5, 0.5, 2, 255, 0, 0, 255, 255 )	else		textItem = textCreateTextItem ( "The time is out!\nWinner: None\nNewRound!", 0.5, 0.5, 2, 255, 0, 0, 255, 255 )	end	textDisplayAddText ( textDisplay, textItem )	for k,v in getElementsByType ( "player" ) do		textDisplayAddObserver ( textDisplayWinner, v )		setElementData ( v, "points", 0 )		textItemSetText ( getElementData(v,"textItemPoints"), "Score: 0" )	end	setTimer("textDestroyTextItem", 2000, 1, textItem)	setTimer("textDestroyDisplay", 2000, 1, textDisplayWinner)	textItemSetText ( textItemLeaderScore, "Nobody is the One" )		oneTimer = setTimer ( "oneEnd", 300000, 1 )endaddEventHandler ( "onPlayerJoin", getRootElement(), "oneJoin" )function oneJoin ()	setElementData ( source, "points", 0 )	local playerTextDisplay = textCreateDisplay ()	local yourScore = textCreateTextItem ( "Score: "..getElementData(source, "points"), 0.15, 0.7, 0, 255, 0, 0, 255, 1.8 )	textDisplayAddText ( playerTextDisplay, yourScore )	textDisplayAddObserver ( playerTextDisplay, source )	setElementData ( source, "textItemPoints", yourScore )		textDisplayAddObserver ( globalTextDisplay, source )	endaddEventHandler ( "onPlayerWasted", getRootElement(), "KillMessages_onPlayerWasted" )function KillMessages_onPlayerWasted ( totalammo, killer, killerweapon, bodypart )	-- Grab the nick of the killed player	local killed_nick = getClientName ( source )	local r,g,b = getPlayerNametagColor	( source )	-- Got a killer? Print the normal "* X died" if not	local a = 120	if ( isElementWithinColShape ( source, hillArea ) ) then		r = 255		g = 255		b = 109		a = 255	end	if ( killer ) then		-- Suicide?		if (source == killer) then			killed_nick = "himself"		end		-- Populate a "' X killed Y" killmessage		local killmessage = getClientName(killer).." killed "..killed_nick		-- Grab the name of the killer weapon. Got any? Print the message with or without the weapon name		local killerweapon_name = getWeaponNameFromID ( killerweapon )		if ( killerweapon_name ) then			outputMessage( killmessage.." ("..killerweapon_name..")",  r, g, b, a )		else			outputMessage( killmessage, r, g, b, a )		end	else		outputMessage( killed_nick.." died", r, g, b, a )	endendaddEventHandler ( "onPlayerWasted", getRootElement(), "oneCheck" )function oneCheck ( totalammo, killer, killerweapon, bodypart )--local getClientName ( source ) == whodiedif onePlayer == false then	onePlayer = killerelseif onePlayer == source then	onePlayer = killerelseif source == killer then	onePlayer = falseendif onePlayer == false then	textItemSetText ( textItemOne, "Nobody is the One." )		else	oneText = getClientName ( onePlayer )	textItemSetText ( textItemOne, oneText.." is the One." )	endend------OUTPUT MESSAGE CODE-----addEventHandler ( "onResourceStart", getRootElement(), "createTextOnLoad" )function createTextOnLoad ( name )	local outputMessageTextDisplay = textCreateDisplay ()	local distance = 0.027	local start = 0.25	local size = 1.2		outputMessageTextItem1 = textCreateTextItem ( "", 0.8, start + distance, 1, 255, 255, 255, 255, size )		outputMessageTextItem2 = textCreateTextItem ( "", 0.8, start + (distance * 2 ), 1, 255, 255, 255, 255, size )		outputMessageTextItem3 = textCreateTextItem ( "", 0.8, start + (distance * 3 ), 1, 255, 255, 255, 255, size )		outputMessageTextItem4 = textCreateTextItem ( "", 0.8, start + (distance * 4 ), 1, 255, 255, 255, 255, size )		outputMessageTextItem5 = textCreateTextItem ( "", 0.8, start + (distance * 5 ), 1, 255, 255, 255, 255, size )		outputMessageTextItem6 = textCreateTextItem ( "", 0.8, start + (distance * 6 ), 1, 255, 255, 255, 255, size )	textDisplayAddText ( outputMessageTextDisplay, outputMessageTextItem1 )	textDisplayAddText ( outputMessageTextDisplay, outputMessageTextItem2 )	textDisplayAddText ( outputMessageTextDisplay, outputMessageTextItem3 )	textDisplayAddText ( outputMessageTextDisplay, outputMessageTextItem4 )	textDisplayAddText ( outputMessageTextDisplay, outputMessageTextItem5 )	textDisplayAddText ( outputMessageTextDisplay, outputMessageTextItem6 )	local players = getElementsByType ( "player" )	for k,v in players do		textDisplayAddObserver ( outputMessageTextDisplay, v )	endendaddEventHandler ( "onPlayerJoin", getRootElement(), "showTextPlayerJoin" )function showTextPlayerJoin ()	textDisplayAddObserver ( outputMessageTextDisplay, source )endfunction outputMessage ( text, r, g, b, a )	local text2 = textItemGetText ( outputMessageTextItem2 )	local r2,g2,b2,a2 = textItemGetColor ( outputMessageTextItem2 )	local text3 = textItemGetText ( outputMessageTextItem3 )	local r3,g3,b3,a3 = textItemGetColor ( outputMessageTextItem3 )	local text4 = textItemGetText ( outputMessageTextItem4 )	local r4,g4,b4,a4 = textItemGetColor ( outputMessageTextItem4 )	local text5 = textItemGetText ( outputMessageTextItem5 )	local r5,g5,b5,a5 = textItemGetColor ( outputMessageTextItem5 )	local text6 = textItemGetText ( outputMessageTextItem6 )	local r6,g6,b6,a6 = textItemGetColor ( outputMessageTextItem6 )	textItemSetText ( outputMessageTextItem5, text6 )	textItemSetColor ( outputMessageTextItem5, r6, g6, b6, a6 )	textItemSetText ( outputMessageTextItem4, text5 )	textItemSetColor ( outputMessageTextItem4, r5, g5, b5, a5 )	textItemSetText ( outputMessageTextItem3, text4 )	textItemSetColor ( outputMessageTextItem3, r4, g4, b4, a4 )	textItemSetText ( outputMessageTextItem2, text3 )	textItemSetColor ( outputMessageTextItem2, r3, g3, b3, a3 )	textItemSetText ( outputMessageTextItem1, text2 )	textItemSetColor ( outputMessageTextItem1, r2, g2, b2, a2 )	---	textItemSetText ( outputMessageTextItem6, text )	textItemSetColor ( outputMessageTextItem6, r, g, b, a )	--end