﻿//|//////////////////////////////////////////////////////////////////////
//|
//| Schere Stein Papier by Agatha Knüppelkuh
//| Version 2.0
//|
//| Kontakt: berlinerfunbude@yahoo.de
//|
//|//////////////////////////////////////////////////////////////////////

block load
{
	es_set slotzweifrei 0
	es_xset gamesperre "0 "

	popup create slots
	popup addline slots "Schere Stein Papier by Agatha Knüppelkuh"
	popup addline slots "Wähle einen freien Spielplatz:"
	popup addline slots "-----------------------------------"
	popup addline slots "->1. Spielplatz 1"
	popup addline slots "->2. Spielplatz 2"
	popup addline slots "-----------------------------------"
	popup addline slots "0. Close"
	popup menuselect slots schere/slotjoin

	popup create wartenb
	popup addline wartenb "->1. Bitte warten..."
	popup addline wartenb "--------------------------------------"
	popup addline wartenb "Warte bis dein Gegner seine"
	popup addline wartenb "Auswahl getätigt hat..."
	popup create wartenb2
	popup addline wartenb2 "->1. Bitte warten..."
	popup addline wartenb2 "-------------------------------------"
	popup addline wartenb2 "Warte bis dein Gegner auf"
	popup addline wartenb2 "'Weiter spielen' gedrückt hat..."

	es_msg #multi #greenSchere Stein Papier by #lightgreenAgatha Knueppelkuh #greenloadet!

	es_xsetinfo belohnung1 "0 " //+25 Hp
	es_xsetinfo belohnung2 "0 " //+Smoke
	es_xsetinfo belohnung3 "0 " //+He

	es_xset SSP_version "2.0"
	es_xmakepublic SSP_version
}

event player_say
{
	if (event_var(text) = "!ssp") do
	{
		es_xset spielertot 0
		es getplayerinfo spielertot event_var(userid) isdead

		if (server_var(spielertot) = 1) do
		{
				es popup send slots event_var(userid)
		}
		else do
		{
			es_menu 15 event_var(userid) "[SSP] Du musst Tot sein um Schere-Stein-Papier spielen zu können!"
		}
	}
}

block slotjoin
{
	if (server_var(_popup_choice) = 1) do
	{
		if (server_var(sloteinsfrei) = 0) do
		{
			es_xsetinfo sea " "
			es_xsetinfo sza " "
			es_setinfo seap 0
			es_setinfo szap 0
			es_xsetinfo userida " "
			es_xsetinfo useridaa " "

			keymenu exists exists_var mymenu
			if (server_var(exists_var) = 1) then keymenu delete mymenu
			es_createplayerlist playerlist
			keymenu create mymenu myvar schere/spielerausa playerlist #keyvalue name #key WÃ¤hle einen Gegner...
			es keymenu send mymenu event_var(userid)
			es_keygroupdelete playerlist
		}
		else do
		{
			es_tell event_var(userid) #multi #green[SSP] #lightgreenDieser Slot ist bereits belegt. Hier spielen#green server_var(sea) #lightgreenvs.#green server_var(sza)
		}
	}

	if (server_var(_popup_choice) = 2) do
	{
		if (server_var(slotzweifrei) = 0) do
		{
			es_xsetinfo seb " "
			es_xsetinfo szb " "
			es_setinfo sebp 0
			es_setinfo szbp 0
			es_xsetinfo useridb " "
			es_xsetinfo useridbb " "

			keymenu exists exists_var mymenu
			if (server_var(exists_var) = 1) then keymenu delete mymenu
			es_createplayerlist playerlist
			keymenu create mymenu myvar schere/spielerausb playerlist #keyvalue name #key WÃ¤hle einen Gegner...
			es keymenu send mymenu event_var(userid)
			es_keygroupdelete playerlist
		}
		else do
		{
			es_tell event_var(userid) #multi #green[SSP] #lightgreenDieser Slot ist bereits belegt. Hier spielen#green server_var(seb) #lightgreenvs.#green server_var(szb)
		}
	}
}

block spielerausa
{
	es_xset spielertot 0
	es getplayerinfo spielertot server_var(myvar) isdead

	if (server_var(sloteinsfrei) = 0) do
	{
	es_set sloteinsfrei 1
	if (event_var(userid) != server_var(myvar)) do
	{
	if (server_var(spielertot) = 1) do
	{
		es getplayerinfo sea event_var(userid) name
		es_set userida event_var(userid)
		es getplayerinfo sza server_var(myvar) name
		es_set useridaa server_var(myvar)

		es_set server_var(sloteinsfrei) 1
		popup create annehmenfragea
		popup addlinef annehmenfragea "%1 möchte dich auf" sea
		popup addline annehmenfragea "eine Partie Schere-Stein-Papier einladen!"
		popup addline annehmenfragea "----------------------------------"
		popup addline annehmenfragea "->1. Annehmen!"
		popup addline annehmenfragea "->2. Ablehnen!"
		popup addline annehmenfragea "----------------------------------"
		popup menuselect annehmenfragea schere/annehmfrageantworta

		es popup send annehmenfragea server_var(useridaa)

	}
	else do
	{
		es_set sloteinsfrei 0
		es_menu 15 event_var(userid) "[SSP] Der Gegenspieler den du gewÃ¤hlt hast, ist noch am Leben. Nur tote kÃ¶nnen Schere-Stein-Papier spielen!"
	}
	}
	else do
	{
		es_set sloteinsfrei 0
		es_menu 15 event_var(userid) "[SSP] Du kannst nicht mit dir selbst Schere-Stein-Papier spielen!"
	}
	}
	else do
	{
		es_menu 15 event_var(userid) "[SSP] Der Spielerplatz wurde bereits weggeschnappt!"
	}
}

block annehmfrageantworta
{
	if (server_var(_popup_choice) = 1) do
	{
		es_format gamesperre "%1 %2 %3" server_var(gamesperre) server_var(userida) server_var(useridaa)
		popup delete annehmenfragea
		es_doblock schere/neues_gamea
		es_msg #multi #green[SSP]#lightgreen server_var(sea) #greenvs.#lightgreen server_var(sza)
		popup modline slots 4 "->1. Spielplatz 1 (belegt)"
	}
	if (server_var(_popup_choice) = 2) do
	{
		es_menu 15 server_var(userida) "->1.Schere Stein Papier by Agatha KnÃ¼ppelkuh\n------------------------------ \n\nDer von dir gewÃ¤hlte Gegner hat das Spiel abgelehnt!"
		es_set sloteinsfrei 0
	}
	if (server_var(_popup_choice) notin "1 2") do
	{
		es popup send annehmenfragea event_var(userid)
	}
}

block neues_gamea
{
	es_xset useritema "nix"
	es_xset useritemaa "nix"

	popup close wartena #all
	popup close wartena2 #all
	popup close wartena #all
	popup close wartena2 #all

	popup create auswahla
	popup addline auswahla "Schere Stein Papier by Agatha"
	popup addline auswahla "-----------------------"
	popup addline auswahla "->1. Schere"
	popup addline auswahla "->2. Stein"
	popup addline auswahla "->3. Papier"
	popup addline auswahla "-----------------------"
	popup addline auswahla "->8. Spiel beenden"
	popup menuselect auswahla schere/auswahla

	es popup send auswahla server_var(userida)
	es popup send auswahla server_var(useridaa)
}

block auswahla
{
	if (server_var(_popup_userid) = server_var(userida)) do
	{
		if (server_var(_popup_choice) = 1) then es_xset useritema "Schere"
		if (server_var(_popup_choice) = 2) then es_xset useritema "Stein"
		if (server_var(_popup_choice) = 3) then es_xset useritema "Papier"

		if (server_var(useritema) != "nix") do
		{
			if (server_var(useritemaa) != "nix") do
			{
				es_doblock schere/siega
			}
		}
	}

	if (server_var(_popup_userid) = server_var(useridaa)) do
	{
		if (server_var(_popup_choice) = 1) then es_xset useritemaa "Schere"
		if (server_var(_popup_choice) = 2) then es_xset useritemaa "Stein"
		if (server_var(_popup_choice) = 3) then es_xset useritemaa "Papier"

		if (server_var(useritema) != "nix") do
		{
			if (server_var(useritemaa) != "nix") do
			{
				es_doblock schere/siega
			}
		}

	}

	//if (server_var(useritema) != "nix") then es popup send wartena server_var(userida)
	//if (server_var(useritemaa) != "nix") then es popup send wartena server_var(useridaa)

	if (server_var(_popup_choice) = 8) do
	{
		es_doblock schere/endea
	}

	if (server_var(_popup_choice) notin "1 2 3 8") do
	{
		es popup send auswahla event_var(userid)
	}
}

block siega
{
	es_xsetinfo seanochma "w8"
	es_xsetinfo szanochma "w8"
	es_xsetinfo dergewinnera " "

	if (server_var(useritema) = "Schere") do
	{
		if (server_var(useritemaa) = "Schere") then es_xset dergewinnera "niemanden"
		if (server_var(useritemaa) = "Stein") then es_xset dergewinnera "spielerzweia"
		if (server_var(useritemaa) = "Papier")then es_xset dergewinnera "spielereinsa"
	}
	if (server_var(useritema) = "Stein") do
	{
		if (server_var(useritemaa) = "Schere") then es_xset dergewinnera "spielereinsa"
		if (server_var(useritemaa) = "Stein") then es_xset dergewinnera "niemanden"
		if (server_var(useritemaa) = "Papier")then es_xset dergewinnera "spielerzweia"
	}
	if (server_var(useritema) = "Papier") do
	{
		if (server_var(useritemaa) = "Schere") then es_xset dergewinnera "spielerzweia"
		if (server_var(useritemaa) = "Stein") then es_xset dergewinnera "spielereinsa"
		if (server_var(useritemaa) = "Papier")then es_xset dergewinnera "niemanden"
	}

	if (server_var(dergewinnera) = "spielereinsa") then es_math seap + 1
	if (server_var(dergewinnera) = "spielerzweia") then es_math szap + 1

	if (server_var(dergewinnera) = "spielereinsa") then es_xset dergewinnera server_var(sea)
	if (server_var(dergewinnera) = "spielerzweia") then es_xset dergewinnera server_var(sza)

	popup create siega
	popup addline siega "Schere Stein Papier by Agatha"
	popup addline siega "-----------------------"
	popup addlinef siega "->1. %1:" sea
	popup addlinef siega " %1" useritema
	popup addlinef siega "->2. %1:" sza
	popup addlinef siega " %1" useritemaa
	popup addline siega " "
	popup addline siega "->3. Der Punkt geht an:"
	popup addlinef siega " %1" dergewinnera
	popup addline siega " "
	popup addline siega "->4. Gesamt:"
	popup addlinef siega " %1: %2" sea seap
	popup addlinef siega " %1: %2" sza szap
	popup addline siega "-----------------------"
	popup addline siega "->1. Weiter spielen"
	popup addline siega "->7. Spiel beenden"
	popup menuselect siega schere/nochmala

	es popup send siega server_var(userida)
	es popup send siega server_var(useridaa)
}

block nochmala
{
	if (server_var(_popup_choice) = 7) do
	{
		es_doblock schere/endea
	}
	if (server_var(_popup_choice) = 1) do
	{
		if (event_var(userid) = server_var(userida)) then es_xset seanochma "ja"
		if (event_var(userid) = server_var(useridaa)) then es_xset szanochma "ja"

		if (server_var(seanochma) = "ja") do
		{
			if (server_var(szanochma) = "ja") do
			{
				es_doblock schere/neues_gamea
			}
			else do
			{
				es popup send wartena2 event_var(userid)
			}
		}
		else do
		{
			es popup send wartena2 event_var(userid)
		}
	}
	if (server_var(_popup_choice) notin "1 7") do
	{
		es popup send siega event_var(userid)
	}
}

block endea
{
	if (server_var(sloteinsfrei) = 1) do
	{
		es_setinfo zufallbelohnung 0
		es_rand zufallbelohnung 1 3
		if (server_var(zufallbelohnung) = "1") then es_xset zufallbelohnung "25 Hp Zusatz"
		if (server_var(zufallbelohnung) = "2") then es_xset zufallbelohnung "eine Smoke Granate"
		if (server_var(zufallbelohnung) = "3") then es_xset zufallbelohnung "eine HE Granate"

		popup close wartena #all
		popup close wartena2 #all
		popup close siega #all
		popup close auswahla #all

		es_xsetinfo gessiega " "

		if (server_var(seap) > server_var(szap)) do
		{
			if (server_var(seap) > 4) do
			{
				if (server_var(zufallbelohnung) = "25 Hp Zusatz") then es_format belohnung1 "%1 %2 " server_var(belohnung1) server_var(userida)
				if (server_var(zufallbelohnung) = "eine Smoke Granate") then es_format belohnung2 "%1 %2 " server_var(belohnung2) server_var(userida)
				if (server_var(zufallbelohnung) = "eine HE Granate") then es_format belohnung3 "%1 %2 " server_var(belohnung3) server_var(userida)
			}
			else do
			{
				es_xset zufallbelohnung "nichts"
			}
			es_set gessiega server_var(sea)
		}
		if (server_var(seap) < server_var(szap)) do
		{
			if (server_var(szap) > 4) do
			{
				if (server_var(zufallbelohnung) = "25 Hp Zusatz") then es_format belohnung1 "%1 %2 " server_var(belohnung1) server_var(useridaa)
				if (server_var(zufallbelohnung) = "eine Smoke Granate") then es_format belohnung2 "%1 %2 " server_var(belohnung2) server_var(useridaa)
				if (server_var(zufallbelohnung) = "eine HE Granate") then es_format belohnung3 "%1 %2 " server_var(belohnung3) server_var(useridaa)
			}
			else do
			{
				es_xset zufallbelohnung "nichts"
			}
			es_set gessiega server_var(sza)
		}
		if (server_var(seap) = server_var(szap)) then es_xset gessiega "Unentschieden"

		popup create endsiega
		popup addline endsiega "Schere Stein Papier"
		popup addline endsiega "-----------------------"
		popup addline endsiega "->1. Endresultat:"
		popup addlinef endsiega " %1: %2" sea seap
		popup addlinef endsiega " %1: %2" sza szap
		popup addline endsiega " "
		popup addline endsiega "->2. Gesamtsieger:"
		popup addlinef endsiega " %1" gessiega
		popup addline endsiega " "
		popup addline endsiega "->3. Info"
		popup addline endsiega " Schere-Stein-Papier"
		popup addline endsiega " von Agatha Knüppelkuh"
		popup addline endsiega " "
		popup addline endsiega "-----------------------"
		popup addline endsiega "Der Gewinner bekommt nächste"
		popup addlinef endsiega "Runde %1." zufallbelohnung
		popup addline endsiega "-----------------------"
		popup addline endsiega "0. Close"

		es popup send endsiega server_var(userida)
		es popup send endsiega server_var(useridaa)

		es_msg #multi #green[SSP]#lightgreen Das Match#green server_var(sea) #lightgreenvs.#green server_var(sza) #lightgreenverlief#green server_var(seap) #lightgreenzu#green server_var(szap)
		popup modline slots 4 "->1. Spielplatz 1"
		es_set sloteinsfrei 0
	}
}


block spielerausb
{
	es_xset spielertot 0
	es getplayerinfo spielertot server_var(myvar) isdead

	if (server_var(slotzweifrei) = 0) do
	{
	es_set slotzweifrei 1
	if (event_var(userid) != server_var(myvar)) do
	{
	if (server_var(spielertot) = 1) do
	{
		es getplayerinfo seb event_var(userid) name
		es_set useridb event_var(userid)
		es getplayerinfo szb server_var(myvar) name
		es_set useridbb server_var(myvar)

		es_set server_var(slotzweifrei) 1
		popup create annehmenfrageb
		popup addlinef annehmenfrageb "%1 möchte dich auf" seb
		popup addline annehmenfrageb "eine Partie Schere-Stein-Papier einladen!"
		popup addline annehmenfrageb "----------------------------------"
		popup addline annehmenfrageb "->1. Annehmen!"
		popup addline annehmenfrageb "->2. Ablehnen!"
		popup addline annehmenfrageb "----------------------------------"
		popup menuselect annehmenfrageb schere/annehmfrageantwortb

		es popup send annehmenfrageb server_var(useridbb)

	}
	else do
	{
		es_set slotzweifrei 0
		es_menu 15 event_var(userid) "[SSP] Der Gegenspieler den du gewÃ¤hlt hast, ist noch am Leben. Nur tote können Schere-Stein-Papier spielen!"
	}
	}
	else do
	{
		es_set slotzweifrei 0
		es_menu 15 event_var(userid) "[SSP] Du kannst nicht mit dir selbst Schere-Stein-Papier spielen!"
	}
	}
	else do
	{
		es_menu 15 event_var(userid) "[SSP] Der Spielerplatz wurde bereits weggeschnappt!"
	}
}

block annehmfrageantwortb
{
	if (server_var(_popup_choice) = 1) do
	{
		es_format gamesperre "%1 %2 %3" server_var(gamesperre) server_var(useridb) server_var(useridbb)
		popup delete annehmenfrageb
		es_doblock schere/neues_gameb
		es_msg #multi #green[SSP]#lightgreen server_var(seb) #greenvs.#lightgreen server_var(szb)
		popup modline slots 5 "->2. Spielplatz 2 (belegt)"
	}
	if (server_var(_popup_choice) = 2) do
	{
		es_menu 15 server_var(useridb) "->1.Schere Stein Papier by Agatha Knüppelkuh\n------------------------------ \n\nDer von dir gewÃ¤hlte Gegner hat das Spiel abgelehnt!"
		es_set slotzweifrei 0
	}
	if (server_var(_popup_choice) notin "1 2") do
	{
		es popup send annehmenfrageb event_var(userid)
	}
}

block neues_gameb
{
	es_xset useritema "nix"
	es_xset useritemaa "nix"

	popup close wartenb #all
	popup close wartenb2 #all
	popup close wartenb #all
	popup close wartenb2 #all

	popup create auswahlb
	popup addline auswahlb "Schere Stein Papier by Agatha"
	popup addline auswahlb "-----------------------"
	popup addline auswahlb "->1. Schere"
	popup addline auswahlb "->2. Stein"
	popup addline auswahlb "->3. Papier"
	popup addline auswahlb "-----------------------"
	popup addline auswahlb "->8. Spiel beenden"
	popup menuselect auswahlb schere/auswahlb

	es popup send auswahlb server_var(useridb)
	es popup send auswahlb server_var(useridbb)
}

block auswahlb
{
	if (server_var(_popup_userid) = server_var(useridb)) do
	{
		if (server_var(_popup_choice) = 1) then es_xset useritema "Schere"
		if (server_var(_popup_choice) = 2) then es_xset useritema "Stein"
		if (server_var(_popup_choice) = 3) then es_xset useritema "Papier"

		if (server_var(useritema) != "nix") do
		{
			if (server_var(useritemaa) != "nix") do
			{
				es_doblock schere/siegb
			}
		}
	}

	if (server_var(_popup_userid) = server_var(useridbb)) do
	{
		if (server_var(_popup_choice) = 1) then es_xset useritemaa "Schere"
		if (server_var(_popup_choice) = 2) then es_xset useritemaa "Stein"
		if (server_var(_popup_choice) = 3) then es_xset useritemaa "Papier"

		if (server_var(useritema) != "nix") do
		{
			if (server_var(useritemaa) != "nix") do
			{
				es_doblock schere/siegb
			}
		}

	}

	//if (server_var(useritema) != "nix") then es popup send wartenb server_var(useridb)
	//if (server_var(useritemaa) != "nix") then es popup send wartenb server_var(useridbb)

	if (server_var(_popup_choice) = 8) do
	{
		es_doblock schere/endeb
	}

	if (server_var(_popup_choice) notin "1 2 3 8") do
	{
		es popup send auswahlb event_var(userid)
	}
}

block siegb
{
	es_xsetinfo sebnochma "w8"
	es_xsetinfo szbnochma "w8"
	es_xsetinfo dergewinnerb " "

	if (server_var(useritema) = "Schere") do
	{
		if (server_var(useritemaa) = "Schere") then es_xset dergewinnerb "niemanden"
		if (server_var(useritemaa) = "Stein") then es_xset dergewinnerb "spielerzweia"
		if (server_var(useritemaa) = "Papier")then es_xset dergewinnerb "spielereinsa"
	}
	if (server_var(useritema) = "Stein") do
	{
		if (server_var(useritemaa) = "Schere") then es_xset dergewinnerb "spielereinsa"
		if (server_var(useritemaa) = "Stein") then es_xset dergewinnerb "niemanden"
		if (server_var(useritemaa) = "Papier")then es_xset dergewinnerb "spielerzweia"
	}
	if (server_var(useritema) = "Papier") do
	{
		if (server_var(useritemaa) = "Schere") then es_xset dergewinnerb "spielerzweia"
		if (server_var(useritemaa) = "Stein") then es_xset dergewinnerb "spielereinsa"
		if (server_var(useritemaa) = "Papier")then es_xset dergewinnerb "niemanden"
	}

	if (server_var(dergewinnerb) = "spielereinsa") then es_math sebp + 1
	if (server_var(dergewinnerb) = "spielerzweia") then es_math szbp + 1

	if (server_var(dergewinnerb) = "spielereinsa") then es_xset dergewinnerb server_var(seb)
	if (server_var(dergewinnerb) = "spielerzweia") then es_xset dergewinnerb server_var(szb)

	popup create siegb
	popup addline siegb "Schere Stein Papier by Agatha"
	popup addline siegb "-----------------------"
	popup addlinef siegb "->1. %1:" seb
	popup addlinef siegb " %1" useritema
	popup addlinef siegb "->2. %1:" szb
	popup addlinef siegb " %1" useritemaa
	popup addline siegb " "
	popup addline siegb "->3. Der Punkt geht an:"
	popup addlinef siegb " %1" dergewinnerb
	popup addline siegb " "
	popup addline siegb "->4. Gesamt:"
	popup addlinef siegb " %1: %2" seb sebp
	popup addlinef siegb " %1: %2" szb szbp
	popup addline siegb "-----------------------"
	popup addline siegb "->1. Weiter spielen"
	popup addline siegb "->7. Spiel beenden"
	popup menuselect siegb schere/nochmalb

	es popup send siegb server_var(useridb)
	es popup send siegb server_var(useridbb)
}

block nochmalb
{
	if (server_var(_popup_choice) = 7) do
	{
		es_doblock schere/endeb
	}
	if (server_var(_popup_choice) = 1) do
	{
		if (event_var(userid) = server_var(useridb)) then es_xset sebnochma "ja"
		if (event_var(userid) = server_var(useridbb)) then es_xset szbnochma "ja"

		if (server_var(sebnochma) = "ja") do
		{
			if (server_var(szbnochma) = "ja") do
			{
				es_doblock schere/neues_gameb
			}
			else do
			{
				es popup send wartenb2 event_var(userid)
			}
		}
		else do
		{
			es popup send wartenb2 event_var(userid)
		}
	}
	if (server_var(_popup_choice) notin "1 7") do
	{
		es popup send siegb event_var(userid)
	}
}

block endeb
{
	if (server_var(slotzweifrei) = 1) do
	{
		es_setinfo zufallbelohnung 0
		es_rand zufallbelohnung 1 3
		if (server_var(zufallbelohnung) = "1") then es_xset zufallbelohnung "25 Hp Zusatz"
		if (server_var(zufallbelohnung) = "2") then es_xset zufallbelohnung "eine Smoke Granate"
		if (server_var(zufallbelohnung) = "3") then es_xset zufallbelohnung "eine HE Granate"

		popup close wartenb #all
		popup close wartenb2 #all
		popup close siegb #all
		popup close auswahlb #all

		es_xsetinfo gessiegb " "

		if (server_var(sebp) > server_var(szbp)) do
		{
			if (server_var(sebp) > 4) do
			{
				if (server_var(zufallbelohnung) = "25 Hp Zusatz") then es_format belohnung1 "%1 %2 " server_var(belohnung1) server_var(useridb)
				if (server_var(zufallbelohnung) = "eine Smoke Granate") then es_format belohnung2 "%1 %2 " server_var(belohnung2) server_var(useridb)
				if (server_var(zufallbelohnung) = "eine HE Granate") then es_format belohnung3 "%1 %2 " server_var(belohnung3) server_var(useridb)
			}
			else do
			{
				es_xset zufallbelohnung "nichts"
			}
			es_set gessiegb server_var(seb)
		}
		if (server_var(sebp) < server_var(szbp)) do
		{
			if (server_var(szbp) > 4) do
			{
				if (server_var(zufallbelohnung) = "25 Hp Zusatz") then es_format belohnung1 "%1 %2 " server_var(belohnung1) server_var(useridbb)
				if (server_var(zufallbelohnung) = "eine Smoke Granate") then es_format belohnung2 "%1 %2 " server_var(belohnung2) server_var(useridbb)
				if (server_var(zufallbelohnung) = "eine HE Granate") then es_format belohnung3 "%1 %2 " server_var(belohnung3) server_var(useridbb)
			}
			else do
			{
				es_xset zufallbelohnung "nichts"
			}
			es_set gessiegb server_var(szb)
		}
		if (server_var(sebp) = server_var(szbp)) then es_xset gessiegb "Unentschieden"


		popup create endsiegb
		popup addline endsiegb "Schere Stein Papier"
		popup addline endsiegb "-----------------------"
		popup addline endsiegb "->1. Endresultat:"
		popup addlinef endsiegb " %1: %2" seb sebp
		popup addlinef endsiegb " %1: %2" szb szbp
		popup addline endsiegb " "
		popup addline endsiegb "->2. Gesamtsieger:"
		popup addlinef endsiegb " %1" gessiegb
		popup addline endsiegb " "
		popup addline endsiegb "->3. Info"
		popup addline endsiegb " Schere-Stein-Papier"
		popup addline endsiegb " von Agatha Knüppelkuh"
		popup addline endsiegb " "
		popup addline endsiegb "-----------------------"
		popup addline endsiegb "Der Gewinner bekommt nächste"
		popup addlinef endsiegb "Runde %1." zufallbelohnung
		popup addline endsiegb "-----------------------"
		popup addline endsiegb "0. Close"

		es popup send endsiegb server_var(useridb)
		es popup send endsiegb server_var(useridbb)

		es_msg #multi #green[SSP]#lightgreen Das Match#green server_var(seb) #lightgreenvs.#green server_var(szb) #lightgreenverlief#green server_var(sebp) #lightgreenzu#green server_var(szbp)
		popup modline slots 5 "->2. Spielplatz 2"
		es_set slotzweifrei 0
	}
}

event player_death
{
	es_delayed 3.0 if (server_var(sloteinsfrei) == 0) then if (server_var(slotzweifrei) == 0) then es_tell event_var(userid) #multi #green[SSP] #defaultTippe #lightgreen!ssp#default ein, um eine Partie#lightgreen Schere-Stein-Papier #defaultgegen jemanden zu spielen.
}

event round_end
{
	es_doblock schere/endea
	es_doblock schere/endeb
}

event round_start
{
	foreach player tempuserid #all "if (server_var(tempuserid) in server_var(belohnung1)) then es est_health server_var(tempuserid) + 25"
	foreach player tempuserid #all "if (server_var(tempuserid) in server_var(belohnung2)) then es_give server_var(tempuserid) weapon_smokegrenade"
	foreach player tempuserid #all "if (server_var(tempuserid) in server_var(belohnung3)) then es_give server_var(tempuserid) weapon_hegrenade"
	foreach player tempuserid #all "if (server_var(tempuserid) in server_var(belohnung1)) then es_tell server_var(tempuserid) #multi #green[SSP]#lightgreen Du hast jetzt #green25Hp mehr#lightgreen, da du in Schere Stein Papier gewonnen hast!"
	foreach player tempuserid #all "if (server_var(tempuserid) in server_var(belohnung2)) then es_tell server_var(tempuserid) #multi #green[SSP]#lightgreen Du hast eine #greenSmoke Granate bekommen#lightgreen, da du in Schere Stein Papier gewonnen hast!"
	foreach player tempuserid #all "if (server_var(tempuserid) in server_var(belohnung3)) then es_tell server_var(tempuserid) #multi #green[SSP]#lightgreen Du hast eine #greenHE-Granate bekommen#lightgreen, da du in Schere Stein Papier gewonnen hast!"
	es_xset belohnung1 "0 "
	es_xset belohnung2 "0 "
	es_xset belohnung3 "0 "
	es_xset gamesperre "0 "
}

