SA-MP Forums

Go Back   SA-MP Forums > Non-English > Languages > Português/Portuguese > Lançamentos/Releases

Reply
 
Thread Tools Display Modes
Old 27/12/2012, 11:20 AM   #1
mau.tito
High-roller
 
Join Date: Jan 2012
Location: Curitiba/PR
Posts: 1,938
Reputation: 222
Default System Hospital

Systen Hospital


Ola galera vim trazer este sistema de hospital, feito por mim mesmo.
Ele e bom para qualquer estilo de gamemode , espero que voces gostem.


Explicaçao:

Quando voce compra um plano automaticamente ele irar criar um arquivo
na pas ta Planos todos os arquivos criados la sao de extensao .txt caso
queira trocar fica de sua opcao.
Nao botei preco dos planos no dialog pois se voces quizerem trocar os
preço fiquem avontade!


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


Img:


http://imageshack.us/f/692/samp007ww.png/



http://imageshack.us/f/849/samp008to.png/



Code\/
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_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 OnPlayerDeath(playerid, killerid, reason)
{
    Morto[playerid] = 1;
    quantidadedemortes[playerid]--;
    return true;
}

public OnPlayerSpawn(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 4 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 5 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", 5000, false, "i", playerid);
        return 1;
    }
    return 1;
}

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");
if(quantidadedemortes[playerid] == 0)
    {
        TemPlano[playerid] = 0;
        SendClientMessage(playerid, -1,"[Aviso] Seu plano acabou !");
        Remover(playerid);
        return 1;
    }
    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))
    {
          GetPlayerName(playerid, Nome, sizeof(Nome));
          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];
    GetPlayerName(playerid, Nome, sizeof(Nome));
    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];
    GetPlayerName(playerid, Nome, sizeof(Nome));
    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]);
        DOF2_SaveFile();
    }else{CriarArquivo(playerid);}
    return true;
}
CallBack::CarregarSeuPlano(playerid)
{
    new tito[50];
    GetPlayerName(playerid, Nome, sizeof(Nome));
    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];
    GetPlayerName(playerid, Nome, sizeof(Nome));
    format(tito, sizeof(tito), "Planos/%s.txt",Nome[playerid]);
    DOF2_RemoveFile(tito);
    return true;
}



Creditos:
Code:
 mau.tito codei
	   Mapp #Coringa

Last edited by mau.tito; 27/12/2012 at 08:41 PM.
mau.tito is offline   Reply With Quote
Old 27/12/2012, 11:26 AM   #2
Baiano
Big Clucker
 
Baiano's Avatar
 
Join Date: Sep 2012
Posts: 174
Reputation: 17
Default Re: Systen Hospital

Legal. Mais "Systen" não é com "m" no final?
__________________
Baiano is offline   Reply With Quote
Old 27/12/2012, 11:46 AM   #3
Don_Speed
High-roller
 
Don_Speed's Avatar
 
Join Date: Sep 2011
Location: Curitiba / PR
Posts: 3,257
Reputation: 256
Default Re: Systen Hospital

Mais um desse sistema .
Don_Speed is offline   Reply With Quote
Old 27/12/2012, 11:52 AM   #4
JonathanFeitosa
High-roller
 
Join Date: Jan 2011
Location: Manaus/AM
Posts: 2,760
Reputation: 346
Default Re: Systen Hospital

Pensava que Systen era o nome do projeto, depois que vi que o sinônimo dele é Sistema kkkkkkkkkkkkkkkkk' puts..

Legal o Sistema
__________________
Programador Java & Android
Instagram: jonathanfeitosajfs
JonathanFeitosa is offline   Reply With Quote
Old 27/12/2012, 12:00 PM   #5
LeMoi
Gangsta
 
LeMoi's Avatar
 
Join Date: Jul 2011
Location: Portugal
Posts: 974
Reputation: 112
Default Re: Systen Hospital

O nome ficava melhor Hospital System e nao System Hospital. O inglês muda a posição

Bom FS
LeMoi is offline   Reply With Quote
Old 27/12/2012, 02:27 PM   #6
[NVC]iTrevaS
High-roller
 
[NVC]iTrevaS's Avatar
 
Join Date: Jan 2012
Location: Paraguay - P.J.C
Posts: 1,038
Reputation: 50
Default Respuesta: Systen Hospital

Apesar de simples ficou bom
[NVC]iTrevaS is offline   Reply With Quote
Old 27/12/2012, 02:32 PM   #7
MegaStyle157
Big Clucker
 
Join Date: Dec 2012
Location: Rio de Janeiro
Posts: 107
Reputation: 25
Default Re: Systen Hospital

gostei bem identado e bem simples ele está bem legal parabenz!
__________________
Life of Street RPG

Sistema de Registro [ 100% ]
Sistema de Administração [ 100% ]
Sistema de Helper [ 100% ]
Sistema de Vip/Sócio [ 100% ]
Sistema de InfoOrg [ 90% ]
MegaStyle157 is offline   Reply With Quote
Old 27/12/2012, 02:36 PM   #8
mau.tito
High-roller
 
Join Date: Jan 2012
Location: Curitiba/PR
Posts: 1,938
Reputation: 222
Default Re: Systen Hospital

Acimas /\

Vlw galerinha !


Quote:
Originally Posted by Baiano View Post
Legal. Mais "Systen" não é com "m" no final?
Projeto feito por mim eu boto o nome que eu quizer tenho todo poder sobre meu trabalho!
Nome vai ficar assim msm!

Nada contra.
mau.tito is offline   Reply With Quote
Old 27/12/2012, 05:11 PM   #9
Sky™
High-roller
 
Sky™'s Avatar
 
Join Date: Aug 2012
Location: Apple Computer™
Posts: 1,783
Reputation: 351
Default Re: Systen Hospital

pawn Code:
4000 segundos para sair do hospital!

não seria

4 segundos para sair do hospital


Hospital demorado esse hein kkk 4000 segundos ^^

gostei bem feito o code!
__________________
Sky™ is offline   Reply With Quote
Old 27/12/2012, 05:12 PM   #10
VenoN
Gangsta
 
VenoN's Avatar
 
Join Date: Aug 2012
Location: California
Posts: 701
Reputation: 53
Default Re: Systen Hospital

legalzim!
VenoN is offline   Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
[Help] My anti weapon systen dont work good! mickos Scripting Help 2 22/07/2012 11:15 AM
[FilterScript] Anti-Hacker Systen 1.2 HigorOliverr Lançamentos/Releases 37 21/06/2012 03:59 PM
[FilterScript] Systen Hospital v0.1a By:Don_Speed Don_Speed Lançamentos/Releases 13 24/02/2012 09:46 PM
[AJUDA] Gang Systen com GZ Miqueias Barros Português/Portuguese 8 20/07/2011 03:28 PM


All times are GMT. The time now is 08:18 AM.


Powered by vBulletin® Version 3.8.6
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.