[FilterScript] Systen Hospital

Quando você compra um plano automaticamente ele irar criar um arquivo na pasta Planos todos os arquivos criados la são de extensão .txt caso queira trocar fica de sua opção.
Não botei preço dos planos no dialog pois se vocês quiserem trocar os preço fiquem a vontade!

Imagem:

Mapa:
O mapa do hospital foi feito felo coringa.
Link : http://forum.sa-mp.com/showthread.php?t=363783

Creditos:
mau.tito - Pelo FilterScript
#Coringa - Pelo Mapa

Codigo:

pawn Code:

#include a_samp
#include DOF2
#include zcmd
#include sscanf2

#define DIALOGPLANOS  123

#define  CallBack::%0(%1)     forward %0(%1); \
                                     public %0(%1)

new Morto[MAX_PLAYERS];
new TemPlano[MAX_PLAYERS];
new quantidadedemortes[MAX_PLAYERS];
new Nome[MAX_PLAYERS][MAX_PLAYER_NAME];

new Float:RadomCama[][3] ={
    {1711.5227, 1193.1580, 35.7302},
    {1712.1383, 1191.0619, 35.7302},
    {1711.6455, 1189.0698, 35.7302},
    {1711.6312, 1187.4750, 35.7302},
    {1711.7756, 1185.4668, 35.7302},
    {1711.6484, 1183.6871, 35.7302},
    {1711.7993, 1181.7736, 35.7302},
    {1711.7340, 1179.9402, 35.7302}
};

public OnFilterScriptInit()
{
    CreatePickup(1240, 2, 1714.6462,1174.0515,34.8259);

    Create3DTextLabel("/comprarplano" , 0x008080FF, 1714.6462,1174.0515,34.8259, 3, 0, 0);

    //                      Hospital
    CreateObject(19379, 1716.53, 1183.26, 33.74,   0.00, -90.00, 0.51);
    CreateObject(19379, 1717.44, 1173.73, 37.23,   0.00, -90.00, 359.97);
    CreateObject(19379, 1706.17, 1183.19, 33.74,   0.00, -90.00, 0.27);
    CreateObject(19450, 1721.77, 1173.72, 35.55,   0.00, 0.00, 0.51);
    CreateObject(19388, 1710.28, 1173.83, 35.55,   0.00, 0.00, 359.79);
    CreateObject(19450, 1721.68, 1183.05, 35.55,   0.00, 0.00, 0.51);
    CreateObject(19450, 1717.06, 1168.98, 35.55,   0.00, 0.00, 89.39);
    CreateObject(19450, 1707.44, 1169.08, 35.55,   0.00, 0.00, 89.49);
    CreateObject(19358, 1710.29, 1170.68, 35.55,   0.00, 0.00, 359.79);
    CreateObject(19450, 1710.27, 1180.19, 35.55,   0.00, 0.00, 0.21);
    CreateObject(19450, 1713.76, 1178.76, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19388, 1720.07, 1178.73, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19450, 1705.48, 1178.81, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19450, 1702.75, 1173.98, 35.55,   0.00, 0.00, 0.21);
    CreateObject(1536, 1714.74, 1169.06, 33.83,   0.00, 0.00, 359.29);
    CreateObject(1536, 1717.74, 1169.06, 33.83,   0.00, 0.00, 179.55);
    CreateObject(1502, 1719.28, 1178.70, 33.83,   0.00, 0.00, 359.80);
    CreateObject(1502, 1710.28, 1174.64, 33.83,   0.00, 0.00, 269.97);
    CreateObject(1722, 1721.57, 1170.17, 33.73,   0.00, 0.00, 91.00);
    CreateObject(1722, 1721.54, 1171.25, 33.73,   0.00, 0.00, 90.19);
    CreateObject(1722, 1721.53, 1172.41, 33.73,   0.00, 0.00, 90.19);
    CreateObject(1722, 1721.50, 1173.65, 33.73,   0.00, 0.00, 90.19);
    CreateObject(1722, 1721.49, 1174.89, 33.73,   0.00, 0.00, 90.19);
    CreateObject(2029, 1710.93, 1175.13, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2029, 1712.89, 1175.13, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2029, 1714.85, 1175.12, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2029, 1716.83, 1175.11, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2204, 1710.89, 1178.53, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2204, 1713.83, 1178.56, 33.83,   0.00, 0.00, 0.00);
    CreateObject(1715, 1711.48, 1176.51, 33.83,   0.00, 0.00, 359.59);
    CreateObject(1715, 1713.49, 1176.47, 33.83,   0.00, 0.00, 359.59);
    CreateObject(1715, 1715.37, 1176.49, 33.83,   0.00, 0.00, 359.59);
    CreateObject(1715, 1717.40, 1176.40, 33.83,   0.00, 0.00, 359.59);
    CreateObject(2184, 1709.57, 1170.04, 33.83,   0.00, 0.00, 94.00);
    CreateObject(2184, 1706.12, 1169.97, 33.83,   0.00, 0.00, 94.00);
    CreateObject(1715, 1707.43, 1170.92, 33.83,   0.00, 0.00, 89.01);
    CreateObject(1715, 1704.06, 1170.92, 33.83,   0.00, 0.00, 89.01);
    CreateObject(2184, 1709.19, 1175.82, 33.83,   0.00, 0.00, 94.00);
    CreateObject(1715, 1707.28, 1176.81, 33.83,   0.00, 0.00, 89.01);
    CreateObject(2184, 1706.00, 1175.86, 33.83,   0.00, 0.00, 94.00);
    CreateObject(1715, 1703.94, 1176.95, 33.83,   0.00, 0.00, 89.01);
    CreateObject(19450, 1710.24, 1189.75, 35.55,   0.00, 0.00, 0.21);
    CreateObject(19379, 1716.39, 1192.82, 37.23,   0.00, -90.00, 0.10);
    CreateObject(19379, 1706.31, 1192.70, 33.74,   0.00, -90.00, 0.51);
    CreateObject(19450, 1713.72, 1194.54, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19388, 1720.12, 1194.52, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19450, 1721.60, 1192.60, 35.55,   0.00, 0.00, 0.51);
    CreateObject(19404, 1719.22, 1180.39, 35.55,   0.00, 0.00, 359.80);
    CreateObject(19404, 1719.23, 1183.54, 35.55,   0.00, 0.00, 359.80);
    CreateObject(19404, 1719.24, 1186.74, 35.55,   0.00, 0.00, 359.80);
    CreateObject(19404, 1719.25, 1189.92, 35.55,   0.00, 0.00, 359.80);
    CreateObject(19388, 1719.26, 1192.97, 35.55,   0.00, 0.00, 359.79);
    CreateObject(19325, 1719.31, 1182.46, 35.15,   0.00, 0.00, 359.80);
    CreateObject(19325, 1719.32, 1188.42, 35.15,   0.00, 0.00, 359.70);
    CreateObject(1502, 1719.25, 1193.75, 33.83,   0.00, 0.00, 269.97);
    CreateObject(1723, 1718.68, 1191.00, 33.83,   0.00, 0.00, 269.30);
    CreateObject(1723, 1718.66, 1187.02, 33.83,   0.00, 0.00, 269.30);
    CreateObject(1723, 1718.59, 1182.72, 33.83,   0.00, 0.00, 269.30);
    CreateObject(19379, 1716.41, 1202.51, 33.74,   0.00, -90.00, 0.51);
    CreateObject(19450, 1721.52, 1202.21, 35.55,   0.00, 0.00, 0.51);
    CreateObject(19450, 1713.60, 1197.36, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19388, 1719.99, 1197.34, 35.55,   0.00, 0.00, 90.01);
    CreateObject(19379, 1705.92, 1202.16, 33.74,   0.00, -90.00, 0.51);
    CreateObject(19450, 1708.85, 1202.14, 35.55,   0.00, 0.00, 0.31);
    CreateObject(19450, 1713.59, 1206.90, 35.55,   0.00, 0.00, 90.71);
    CreateObject(19450, 1716.69, 1206.94, 35.55,   0.00, 0.00, 90.71);
    CreateObject(19388, 1707.30, 1194.57, 35.55,   0.00, 0.00, 89.69);
    CreateObject(1723, 1720.90, 1201.10, 33.83,   0.00, 0.00, 270.12);
    CreateObject(1723, 1720.89, 1204.90, 33.83,   0.00, 0.00, 270.12);
    CreateObject(1723, 1709.56, 1199.29, 33.83,   0.00, 0.00, 90.51);
    CreateObject(1723, 1709.53, 1203.28, 33.83,   0.00, 0.00, 90.51);
    CreateObject(1723, 1713.17, 1198.10, 33.83,   0.00, 0.00, 180.00);
    CreateObject(1723, 1717.62, 1198.10, 33.83,   0.00, 0.00, 180.00);
    CreateObject(1723, 1710.98, 1206.23, 33.83,   0.00, 0.00, 1.03);
    CreateObject(1723, 1714.86, 1206.25, 33.83,   0.00, 0.00, 1.03);
    CreateObject(1723, 1718.72, 1206.34, 33.83,   0.00, 0.00, 1.03);
    CreateObject(19450, 1701.41, 1194.61, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19450, 1700.90, 1189.78, 35.55,   0.00, 0.00, 0.21);
    CreateObject(19450, 1700.92, 1183.64, 35.55,   0.00, 0.00, 0.21);
    CreateObject(1502, 1719.34, 1194.53, 33.83,   0.00, 0.00, 359.80);
    CreateObject(1502, 1719.19, 1197.31, 33.83,   0.00, 0.00, 359.80);
    CreateObject(1502, 1706.53, 1194.52, 33.83,   0.00, 0.00, 359.80);
    CreateObject(19388, 1707.22, 1197.39, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19450, 1701.46, 1197.43, 35.55,   0.00, 0.00, 89.63);
    CreateObject(19450, 1700.78, 1202.22, 35.55,   0.00, 0.00, 0.31);
    CreateObject(19450, 1704.28, 1206.84, 35.55,   0.00, 0.00, 90.13);
    CreateObject(1502, 1706.42, 1197.38, 33.83,   0.00, 0.00, 359.80);
    CreateObject(2206, 1702.00, 1205.20, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2206, 1705.81, 1205.22, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2206, 1705.78, 1202.56, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2206, 1705.74, 1200.18, 33.83,   0.00, 0.00, -0.12);
    CreateObject(2206, 1701.99, 1202.56, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2206, 1701.91, 1200.18, 33.83,   0.00, 0.00, 0.00);
    CreateObject(1714, 1702.90, 1203.93, 33.83,   0.00, 0.00, 181.11);
    CreateObject(1714, 1702.94, 1201.55, 33.83,   0.00, 0.00, 181.11);
    CreateObject(1714, 1702.79, 1199.13, 33.83,   0.00, 0.00, 181.11);
    CreateObject(1714, 1706.56, 1199.06, 33.83,   0.00, 0.00, 181.11);
    CreateObject(1714, 1706.66, 1201.44, 33.83,   0.00, 0.00, 181.11);
    CreateObject(1714, 1706.79, 1204.06, 33.83,   0.00, 0.00, 181.11);
    CreateObject(2204, 1706.07, 1197.68, 33.83,   0.00, 0.00, 178.94);
    CreateObject(2204, 1703.31, 1197.70, 33.83,   0.00, 0.00, 178.94);
    CreateObject(2241, 1709.66, 1198.09, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2241, 1714.37, 1198.09, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2241, 1709.51, 1202.30, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2241, 1709.53, 1206.28, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2241, 1713.87, 1206.25, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2241, 1717.84, 1206.30, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2241, 1720.97, 1198.10, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2241, 1720.91, 1202.02, 34.23,   0.00, 0.00, 0.00);
    CreateObject(1892, 1714.92, 1169.64, 33.43,   0.00, 0.00, 358.66);
    CreateObject(1892, 1716.54, 1169.59, 33.43,   0.00, 0.00, 358.66);
    CreateObject(2256, 1718.36, 1206.78, 36.09,   0.00, 0.00, 0.00);
    CreateObject(2256, 1712.36, 1206.67, 36.09,   0.00, 0.00, 0.00);
    CreateObject(2258, 1706.77, 1206.74, 36.09,   0.00, 0.00, 0.00);
    CreateObject(2258, 1703.41, 1206.68, 36.09,   0.00, 0.00, 0.00);
    CreateObject(2146, 1702.38, 1193.23, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1702.34, 1190.99, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1702.32, 1188.58, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1702.33, 1186.27, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1702.35, 1184.07, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1702.33, 1182.02, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1702.39, 1179.98, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1711.79, 1179.88, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2204, 1716.82, 1178.55, 33.83,   0.00, 0.00, 0.00);
    CreateObject(19388, 1696.67, 1196.17, 35.55,   0.00, 0.00, 359.79);
    CreateObject(19379, 1696.03, 1193.01, 33.74,   0.00, -90.00, 0.51);
    CreateObject(19450, 1692.13, 1194.66, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19388, 1685.78, 1194.69, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19379, 1685.84, 1192.79, 33.74,   0.00, -90.00, 0.51);
    CreateObject(19450, 1684.29, 1189.86, 35.55,   0.00, 0.00, 0.21);
    CreateObject(19379, 1685.38, 1183.21, 33.74,   0.00, -90.00, 0.51);
    CreateObject(19379, 1695.94, 1183.54, 33.74,   0.00, -90.00, 0.51);
    CreateObject(19450, 1695.95, 1178.87, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19450, 1686.77, 1178.91, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19450, 1684.30, 1182.27, 35.55,   0.00, 0.00, 0.21);
    CreateObject(2455, 1687.22, 1194.15, 33.83,   0.00, 0.00, 271.10);
    CreateObject(2454, 1687.28, 1190.50, 33.83,   0.00, 0.00, 270.26);
    CreateObject(2455, 1687.23, 1193.24, 33.83,   0.00, 0.00, 271.10);
    CreateObject(2455, 1687.24, 1192.32, 33.83,   0.00, 0.00, 271.10);
    CreateObject(2455, 1688.37, 1190.35, 33.83,   0.00, 0.00, 359.50);
    CreateObject(2455, 1689.30, 1190.35, 33.83,   0.00, 0.00, 359.90);
    CreateObject(2455, 1690.21, 1190.35, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2455, 1691.13, 1190.35, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2455, 1692.04, 1190.35, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2455, 1692.94, 1190.35, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2416, 1688.96, 1192.00, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2416, 1691.81, 1191.95, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2455, 1687.26, 1191.42, 33.83,   0.00, 0.00, 271.10);
    CreateObject(2455, 1693.86, 1190.35, 33.83,   0.00, 0.00, -0.24);
    CreateObject(2416, 1694.64, 1191.94, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2416, 1697.47, 1191.93, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2455, 1694.78, 1190.35, 33.83,   0.00, 0.00, -0.24);
    CreateObject(2455, 1695.70, 1190.35, 33.83,   0.00, 0.00, -0.24);
    CreateObject(2455, 1696.62, 1190.35, 33.83,   0.00, 0.00, -0.24);
    CreateObject(2455, 1697.54, 1190.35, 33.83,   0.00, 0.00, -0.24);
    CreateObject(2455, 1698.46, 1190.35, 33.83,   0.00, 0.00, -0.24);
    CreateObject(2455, 1699.28, 1190.34, 33.83,   0.00, 0.00, -0.24);
    CreateObject(1502, 1699.39, 1190.16, 32.29,   0.00, 0.00, 0.31);
    CreateObject(2764, 1698.86, 1187.57, 34.14,   0.00, 0.00, 0.00);
    CreateObject(2788, 1700.07, 1187.60, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2448, 1689.99, 1194.33, 33.83,   0.00, 0.00, 0.00);
    CreateObject(1775, 1700.21, 1194.04, 34.82,   0.00, 0.00, 0.00);
    CreateObject(1776, 1692.64, 1194.26, 34.82,   0.00, 0.00, 0.00);
    CreateObject(1775, 1688.73, 1194.13, 34.82,   0.00, 0.00, 0.00);
    CreateObject(2738, 1680.89, 1198.87, 34.43,   0.00, 0.00, 89.70);
    CreateObject(2419, 1693.81, 1193.87, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2451, 1695.79, 1193.91, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2415, 1697.87, 1193.62, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2415, 1698.99, 1193.65, 33.83,   0.00, 0.00, 0.00);
    CreateObject(2764, 1698.78, 1184.35, 34.14,   0.00, 0.00, 0.00);
    CreateObject(2764, 1698.93, 1180.99, 34.14,   0.00, 0.00, 0.00);
    CreateObject(2764, 1694.24, 1187.44, 34.14,   0.00, 0.00, 0.00);
    CreateObject(2764, 1694.24, 1184.34, 34.14,   0.00, 0.00, 0.00);
    CreateObject(2764, 1694.26, 1181.05, 34.14,   0.00, 0.00, 0.00);
    CreateObject(2764, 1690.43, 1187.55, 34.14,   0.00, 0.00, 0.00);
    CreateObject(2764, 1686.60, 1181.00, 34.14,   0.00, 0.00, 0.00);
    CreateObject(2764, 1690.35, 1184.35, 34.14,   0.00, 0.00, 0.00);
    CreateObject(2764, 1690.27, 1181.14, 34.14,   0.00, 0.00, 0.00);
    CreateObject(2764, 1686.52, 1184.34, 34.14,   0.00, 0.00, 0.00);
    CreateObject(2764, 1686.71, 1187.68, 34.14,   0.00, 0.00, 0.00);
    CreateObject(2788, 1700.16, 1184.24, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2788, 1700.16, 1180.84, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2788, 1695.34, 1181.01, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2788, 1695.22, 1184.37, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2788, 1695.16, 1187.57, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2788, 1691.50, 1187.67, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2788, 1691.42, 1184.33, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2788, 1691.51, 1180.99, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2788, 1687.80, 1181.01, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2788, 1687.73, 1184.39, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2788, 1687.87, 1187.81, 34.23,   0.00, 0.00, 0.00);
    CreateObject(2788, 1697.92, 1187.65, 34.23,   0.00, 0.00, 180.43);
    CreateObject(2788, 1697.79, 1184.30, 34.23,   0.00, 0.00, 180.43);
    CreateObject(2788, 1697.82, 1180.88, 34.23,   0.00, 0.00, 180.43);
    CreateObject(2788, 1693.33, 1180.97, 34.23,   0.00, 0.00, 180.43);
    CreateObject(2788, 1693.12, 1184.41, 34.23,   0.00, 0.00, 180.43);
    CreateObject(2788, 1693.08, 1187.57, 34.23,   0.00, 0.00, 180.43);
    CreateObject(2788, 1689.50, 1187.58, 34.23,   0.00, 0.00, 180.43);
    CreateObject(2788, 1689.36, 1184.38, 34.23,   0.00, 0.00, 180.43);
    CreateObject(2788, 1689.27, 1180.93, 34.23,   0.00, 0.00, 180.43);
    CreateObject(2788, 1685.70, 1180.99, 34.23,   0.00, 0.00, 180.43);
    CreateObject(2788, 1685.72, 1184.44, 34.23,   0.00, 0.00, 180.43);
    CreateObject(2788, 1685.79, 1187.61, 34.23,   0.00, 0.00, 180.43);
    CreateObject(19450, 1695.98, 1197.71, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19450, 1683.25, 1197.79, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19388, 1689.64, 1197.75, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19379, 1695.62, 1202.45, 37.23,   0.00, -90.00, 0.51);
    CreateObject(19379, 1685.17, 1202.46, 33.74,   0.00, -90.00, 0.21);
    CreateObject(19450, 1684.28, 1193.03, 35.55,   0.00, 0.00, 0.21);
    CreateObject(19450, 1691.54, 1205.65, 35.55,   0.00, 0.00, 359.60);
    CreateObject(19388, 1691.50, 1199.39, 35.55,   0.00, 0.00, 359.79);
    CreateObject(19388, 1688.31, 1199.44, 35.55,   0.00, 0.00, 359.79);
    CreateObject(19450, 1688.33, 1205.59, 35.55,   0.00, 0.00, 359.91);
    CreateObject(19450, 1694.65, 1206.86, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19450, 1685.13, 1206.92, 35.55,   0.00, 0.00, 89.69);
    CreateObject(19450, 1680.36, 1202.19, 35.55,   0.00, 0.00, 0.11);
    CreateObject(19435, 1681.34, 1199.53, 34.53,   0.00, 0.00, 89.69);
    CreateObject(1523, 1682.12, 1198.01, 33.73,   0.00, 0.00, 89.59);
    CreateObject(19435, 1681.33, 1198.07, 34.54,   0.00, 0.00, 89.69);
    CreateObject(2738, 1680.87, 1200.39, 34.43,   0.00, 0.00, 89.70);
    CreateObject(19435, 1681.31, 1201.15, 34.51,   0.00, 0.00, 89.69);
    CreateObject(1523, 1682.14, 1199.61, 33.73,   0.00, 0.00, 89.59);
    CreateObject(2738, 1680.78, 1202.00, 34.43,   0.00, 0.00, 89.70);
    CreateObject(19435, 1681.31, 1202.71, 34.53,   0.00, 0.00, 89.69);
    CreateObject(1523, 1682.13, 1201.17, 33.73,   0.00, 0.00, 89.59);
    CreateObject(2738, 1680.78, 1203.62, 34.43,   0.00, 0.00, 89.70);
    CreateObject(19435, 1681.27, 1204.27, 34.54,   0.00, 0.00, 89.63);
    CreateObject(1523, 1682.12, 1202.69, 33.73,   0.00, 0.00, 89.59);
    CreateObject(19435, 1681.29, 1205.79, 34.54,   0.00, 0.00, 89.63);
    CreateObject(1523, 1682.13, 1204.23, 33.73,   0.00, 0.00, 89.35);
    CreateObject(2738, 1680.75, 1205.04, 34.43,   0.00, 0.00, 89.70);
    CreateObject(19435, 1687.49, 1200.29, 33.09,   0.00, 0.00, 89.80);
    CreateObject(19435, 1686.76, 1205.49, 34.08,   90.00, 0.00, 180.00);
    CreateObject(19435, 1686.75, 1202.00, 34.08,   90.00, 0.00, 180.00);
    CreateObject(19435, 1687.50, 1202.03, 34.85,   0.00, -91.00, 89.87);
    CreateObject(19435, 1687.48, 1205.51, 34.85,   0.00, -89.00, 90.30);
    CreateObject(2515, 1687.97, 1205.54, 35.15,   0.00, 0.00, -91.00);
    CreateObject(2515, 1687.93, 1203.35, 35.15,   0.00, 0.00, -91.00);
    CreateObject(2515, 1687.92, 1201.04, 35.15,   0.00, 0.00, -91.00);
    CreateObject(2741, 1688.17, 1205.47, 36.39,   0.00, 0.00, -91.00);
    CreateObject(2741, 1688.13, 1203.21, 36.39,   0.00, 0.00, -91.00);
    CreateObject(2741, 1688.15, 1200.97, 36.39,   0.00, 0.00, -91.00);
    CreateObject(19435, 1700.02, 1197.89, 34.53,   0.00, 0.00, 89.69);
    CreateObject(1523, 1699.25, 1197.87, 33.73,   0.00, 0.00, 89.59);
    CreateObject(19435, 1700.06, 1199.46, 34.53,   0.00, 0.00, 89.69);
    CreateObject(1523, 1699.28, 1199.40, 33.73,   0.00, 0.00, 89.59);
    CreateObject(19435, 1700.01, 1200.90, 34.53,   0.00, 0.00, 89.69);
    CreateObject(1523, 1699.27, 1200.92, 33.73,   0.00, 0.00, 89.59);
    CreateObject(19435, 1700.02, 1202.45, 34.53,   0.00, 0.00, 89.69);
    CreateObject(1523, 1699.25, 1202.42, 33.73,   0.00, 0.00, 89.59);
    CreateObject(19435, 1700.01, 1203.89, 34.53,   0.00, 0.00, 89.69);
    CreateObject(19435, 1699.98, 1205.39, 34.53,   0.00, 0.00, 89.69);
    CreateObject(1523, 1699.23, 1203.89, 33.73,   0.00, 0.00, 89.59);
    CreateObject(2738, 1700.26, 1198.68, 34.43,   0.00, 0.00, 269.00);
    CreateObject(2738, 1700.28, 1200.35, 34.43,   0.00, 0.00, 271.54);
    CreateObject(2738, 1700.29, 1201.74, 34.43,   0.00, 0.00, 271.54);
    CreateObject(2738, 1700.31, 1203.21, 34.43,   0.00, 0.00, 271.54);
    CreateObject(2738, 1700.23, 1204.73, 34.43,   0.00, 0.00, 271.54);
    CreateObject(19435, 1692.37, 1200.28, 33.09,   0.00, 0.00, 89.80);
    CreateObject(19435, 1693.13, 1201.97, 34.08,   90.00, 0.00, 180.00);
    CreateObject(19435, 1693.13, 1205.36, 34.08,   90.00, 0.00, 179.89);
    CreateObject(19435, 1692.37, 1205.42, 34.85,   0.00, -90.00, 90.00);
    CreateObject(19435, 1692.37, 1201.94, 34.85,   0.00, -90.00, 90.00);
    CreateObject(2515, 1691.82, 1201.47, 35.15,   0.00, 0.00, 89.00);
    CreateObject(2515, 1691.81, 1203.50, 35.15,   0.00, 0.00, 89.00);
    CreateObject(2515, 1691.90, 1205.86, 35.15,   0.00, 0.00, 89.00);
    CreateObject(2741, 1691.67, 1201.56, 36.39,   0.00, 0.00, 89.00);
    CreateObject(2741, 1691.71, 1203.52, 36.39,   0.00, 0.00, 89.00);
    CreateObject(2741, 1691.69, 1205.86, 36.39,   0.00, 0.00, 89.00);
    CreateObject(1523, 1691.50, 1198.59, 33.73,   0.00, 0.00, 89.59);
    CreateObject(1523, 1688.40, 1198.65, 33.73,   0.00, 0.00, 89.59);
    CreateObject(1502, 1696.66, 1196.96, 33.83,   0.00, 0.00, 269.97);
    CreateObject(1502, 1685.00, 1194.67, 33.83,   0.00, 0.00, 359.80);
    CreateObject(1502, 1688.86, 1197.72, 33.83,   0.00, 0.00, 360.04);
    CreateObject(19379, 1706.18, 1173.66, 33.74,   0.00, -90.00, 0.27);
    CreateObject(19379, 1716.65, 1173.68, 33.74,   0.00, -90.00, 0.27);
    CreateObject(19379, 1706.97, 1173.75, 37.23,   0.00, -90.00, 359.77);
    CreateObject(19379, 1716.33, 1202.38, 37.23,   0.00, -90.00, -0.05);
    CreateObject(19379, 1705.91, 1202.34, 37.23,   0.00, -90.00, -0.05);
    CreateObject(19379, 1685.64, 1183.53, 37.23,   0.00, -90.00, 0.02);
    CreateObject(19379, 1685.31, 1202.38, 37.23,   0.00, -90.00, 0.02);
    CreateObject(2146, 1711.80, 1181.77, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1711.77, 1183.67, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1711.83, 1185.44, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1711.74, 1187.38, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1711.73, 1189.18, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1711.73, 1191.04, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1711.66, 1193.00, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1708.78, 1179.80, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1708.78, 1181.66, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1708.77, 1183.59, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1708.90, 1185.47, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1708.83, 1187.36, 34.23,   0.00, 0.00, 90.29);
    CreateObject(2146, 1708.76, 1189.27, 34.23,   0.00, 0.00, 90.23);
    CreateObject(2146, 1708.77, 1190.93, 34.23,   0.00, 0.00, 90.23);
    CreateObject(2146, 1708.78, 1193.08, 34.23,   0.00, 0.00, 90.35);
    CreateObject(19379, 1716.49, 1192.89, 33.74,   0.00, -90.00, 0.51);
    CreateObject(19379, 1716.45, 1183.20, 37.23,   0.00, -90.00, 0.21);
    CreateObject(19379, 1695.64, 1202.59, 33.74,   0.00, -90.00, 0.51);
    CreateObject(19379, 1706.02, 1192.87, 37.23,   0.00, -90.00, 0.51);
    CreateObject(19379, 1706.11, 1183.38, 37.23,   0.00, -90.00, 0.51);
    CreateObject(19379, 1695.97, 1183.29, 37.23,   0.00, -90.00, 0.51);
    CreateObject(19379, 1695.78, 1192.84, 37.23,   0.00, -90.00, 0.51);
    CreateObject(19379, 1685.45, 1192.89, 37.23,   0.00, -90.00, 0.51);
    return 1;
}

public OnFilterScriptExit()
{
    return 1;
}

public OnPlayerConnect(playerid)
{

    CarregarSeuPlano(playerid);
    return 1;
}

public OnPlayerDisconnect(playerid, reason)
{
    if(TemPlano[playerid] > 0)
    {
       SalvarPlanos(playerid);
    }
    return 1;
}

public OnPlayerSpawn(playerid)
{
    if(Morto[playerid] == 1)
    {
       SetPlayerHealth(playerid, 0);
    }
    return 1;
}

public OnPlayerDeath(playerid, killerid, reason)
{
    Morto[playerid] = 1;
    quantidadedemortes[playerid]--;

    if(Morto[playerid] == 1 && TemPlano[playerid] == 5) // plano 5
    {
         Morto[playerid] = 0;
         SpawnPlayer(playerid);
         SendClientMessage(playerid, -1,"[Aviso] Voce tem plano e foi spawnado direto");
         return 1;
    }
    if(Morto[playerid] == 1 && TemPlano[playerid] == 1)
    {
        SendClientMessage(playerid, 0xCC0033AA, "[Hospital ] Voce foi hospitalizado . . .");
        SendClientMessage(playerid, 0xCC0033AA, "Espere 4000 segundos para sair do hospital!");

        new rand = random(sizeof(RadomCama));
        SetPlayerPos(playerid, RadomCama[rand][0], RadomCama[rand][1], RadomCama[rand][2]);

        ApplyAnimation(playerid, "CRACK", "crckdeth1", 4.1, 0, 1, 1, 1, 1, 1);
        TogglePlayerControllable(playerid, 0);
        SetTimerEx("Curando", 4000, false, "i", playerid);
        return 1;
    }


    if(Morto[playerid] == 1 && TemPlano[playerid] == 0)
    {
        SendClientMessage(playerid, 0xCC0033AA, "[Hospital ] Voce foi hospitalizado . . .");
        SendClientMessage(playerid, 0xCC0033AA, "Espere 50000 segundos para sair do hospital!");

        new rand = random(sizeof(RadomCama));
        SetPlayerPos(playerid, RadomCama[rand][0], RadomCama[rand][1], RadomCama[rand][2]);

        ApplyAnimation(playerid, "CRACK", "crckdeth1", 4.1, 0, 1, 1, 1, 1, 1);
        TogglePlayerControllable(playerid, 0);
        SetTimerEx("Curando", 50000, false, "i", playerid);
        return 1;
    }
    if(quantidadedemortes[playerid] == 0)
    {
        TemPlano[playerid] = 0;
        SendClientMessage(playerid, -1,"[Aviso] Seu plano acabou !");
        Remover(playerid);
        return 1;
    }
    return true;
}

CallBack::Curando(playerid)
{
    ClearAnimations(playerid, 0);
    Morto[playerid] = 0;
    TogglePlayerControllable(playerid, 1);
    GivePlayerMoney(playerid, -100);
    SendClientMessage(playerid, 0xFF3030FF,"Voce pagou a internacao de R$ 100 e foi liberado");
    return 1;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
    if(dialogid == DIALOGPLANOS)
    {
        if(response)
        {
            if(listitem == 0)
            {
                 if(GetPlayerMoney(playerid) < 1000) return 1;
                 if(TemPlano[playerid] == 1) return SendClientMessage(playerid, -1, "Voce ja tem plano, termine seu plano para depois comprar outro!");
                 quantidadedemortes[playerid] = 20;
                 SendClientMessage(playerid, 0xFF3030FF,"Voce compru o plano de 20 internacoes");
                 GivePlayerMoney(playerid, -1000);
                 TemPlano[playerid] = 1;
            }
            else if(listitem == 1)
            {
                 if(GetPlayerMoney(playerid) < 4000) return 1;
                 if(TemPlano[playerid] == 1) return SendClientMessage(playerid, -1, "Voce ja tem plano, termine seu plano para depois comprar outro!");
                 quantidadedemortes[playerid] = 40;
                 SendClientMessage(playerid, 0xFF3030FF,"Voce compru o plano de 40 internacoes");
                 GivePlayerMoney(playerid, -4000);
                 TemPlano[playerid] = 2;
            }
            else if(listitem == 2)
            {
                 if(GetPlayerMoney(playerid) < 6000) return 1;
                 if(TemPlano[playerid] == 1) return SendClientMessage(playerid, -1, "Voce ja tem plano, termine seu plano para depois comprar outro!");
                 quantidadedemortes[playerid] = 60;
                 SendClientMessage(playerid, 0xFF3030FF,"Voce compru o plano de 60 internacoes");
                 GivePlayerMoney(playerid, -6000);
                 TemPlano[playerid] = 3;
            }
            else if(listitem == 3)
            {
                 if(GetPlayerMoney(playerid) < 8000) return 1;
                 if(TemPlano[playerid] == 1) return SendClientMessage(playerid, -1, "Voce ja tem plano, termine seu plano para depois comprar outro!");
                 quantidadedemortes[playerid] = 80;
                 SendClientMessage(playerid, 0xFF3030FF,"Voce compru o plano de 80 internacoes");
                 GivePlayerMoney(playerid, -8000);
                 TemPlano[playerid] = 4;
            }
            else if(listitem == 4)
            {
                 if(GetPlayerMoney(playerid) < 10000) return 1;
                 if(TemPlano[playerid] == 1) return SendClientMessage(playerid, -1, "Voce ja tem plano, termine seu plano para depois comprar outro!");
                 quantidadedemortes[playerid] = 100;
                 SendClientMessage(playerid, 0xFF3030FF,"Voce compru o plano de 100 internacoes");
                 GivePlayerMoney(playerid, -10000);
                 TemPlano[playerid] = 5;
            }
        }
    }
    return 1;
}
COMMAND:comprarplano(playerid)
{
    if(IsPlayerInRangeOfPoint(playerid, 2.0, 1714.6462,1174.0515,34.8259))
    {
        ShowPlayerDialog(playerid, DIALOGPLANOS, DIALOG_STYLE_LIST, "Planos",  "Plano 1   20 Internacoes\n\
                                      Plano 2   40 Internacoes \nPlano   3   60 Internacoes\nPlano   4   80 Internacoes \n\
                                                                        Plano   5   100 Internacoes", "Selecionar", "Cancelar");
    }
    return 1;
}

COMMAND:tirarhosp(playerid, params[])
{
    new id, motivo[50], tito[100];
    if(IsPlayerAdmin(playerid))
    {
          if(sscanf(params, "is", id, motivo))
              return SendClientMessage(playerid, -1, "CMD :     /tirarhosp [id] [motivo]");

          Morto[playerid] = 0;
          SpawnPlayer(id);
          format(tito, sizeof(tito), "O Admin %s tirou o player %s do hospital| Motivo: %s", Nome[playerid], Nome[id], motivo);
          SendClientMessageToAll( -1, tito );
    }
    return 1;
}

CallBack::CriarArquivo(playerid)
{
    new tito[50];
    format(tito, sizeof(tito), "Planos/%s.txt",Nome[playerid]);
    if(!DOF2_FileExists(tito)) DOF2_CreateFile(tito);
    DOF2_SetInt(tito, "Quantidade Plano", quantidadedemortes[playerid]);
    DOF2_SetInt(tito, "Plano", TemPlano[playerid]);
    return 1;
}

CallBack::SalvarPlanos(playerid)
{
    new tito[50];
    format(tito, sizeof(tito), "Planos/%s.txt",Nome[playerid]);
    if(DOF2_FileExists(tito))
    {
        DOF2_SetInt(tito, "Quantidade Plano", quantidadedemortes[playerid]);
        DOF2_SetInt(tito, "Plano", TemPlano[playerid]);
    }else{CriarArquivo(playerid);}
    return true;
}
CallBack::CarregarSeuPlano(playerid)
{
    new tito[50];
    format(tito, sizeof(tito), "Planos/%s.txt",Nome[playerid]);
    quantidadedemortes[playerid] = DOF2_GetInt(tito, "Quantidade Plano");
    TemPlano[playerid] = DOF2_GetInt(tito, "Plano");
    return 1;
}
CallBack::Remover(playerid)
{
    new tito[50];
    format(tito, sizeof(tito), "Planos/%s.txt",Nome[playerid]);
    DOF2_RemoveFile(tito);
    return true;
}