Hello guys, today i want to teach you how to make a simple entrance, it's easy to make entrance.
All you need to do just follow my instruction, okay ;)
First, you need to download these includes below.
Then you need to extract each of that include to each folder. If you found .dll file, put it on Plugins and if you found .inc file you can put on "pawno/includes"
Okay, i assuming you have extracted the include/plugins, now let's get started.
Make a base script, like this:
#define FILTERSCRIPT
#include <a_samp>
#include <sscanf2>
#include <streamer>
#include <Pawn.CMD>
public OnFilterScriptInit()?{
? ? return 1;
}
public OnFilterScriptExit()?{
? ? return 1;
}
Add MAX_ENTRANCE, enum (alias), and public variable like this:
#define MAX_ENTRANCE 22 // maximum entrance "server" could handle/store temporarily
enum?
? ??e_ENTRANCE_DATA {
? ? bool:isExists, // checking if entrance exists
? ? name, // entrance name
? ? Float:pos, // outside position
? ? Float:intPos, // inside position
? ? int, // interior id
? ? world // world id
};
new EntranceData;
Next step is making a command, use your word like "entrancecreate, entranceedit, entrancedelete" or anything for the command name.
And adding "security" like?IsPlayerAdmin(playerid) you can preventing people from creating a entrance.
You can do like this if you want:
CMD:makeentrance(playerid, params[]) {
? ? if (!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -1, "You are not administrator");
? ? if (!isnull(params)) return SendClientMessage(playerid, -1, "/makeentrance <name>"); // tell player if "params" is null
Inside the?cmd, you need to add this.
? ?// getting the next slot with checking if isExists on "i" variable?is false
? ? for (new i; i < MAX_ENTRANCE; i ) if (!EntranceData) {
? ? ? ? // storing useful data to server, this prevents for "false detection"
? ? ? ? EntranceData = true;
? ? ? ??//you can use strcat if you want, but i prefer format
? ? ? ? format(EntranceData, 24, params);
? ? ? ?// getting player position and angle for teleport/spawning pickup
? ? ? ? GetPlayerPos(playerid, EntranceData,?EntranceData,?EntranceData);
? ? ? ? GetPlayerFacingAngle(playerid, EntranceData);
? ? ? ?
? ? ? ? // spawning "dynamic pickup" on stored location
? ? ? ? EntranceData = CreateDynamic3DTextLabel(EntranceData, -1, EntranceData,?EntranceData,?EntranceData, 4.0);
? ? ? ? EntranceData = CreateDynamicPickup(modelid, type, EntranceData,?EntranceData,?EntranceData, 0, 0);
? ? ? ??// and tell player if everything done
? ? ? ??SendClientMessage(playerid, -1, "Successfully making a entrance");
? ? ? ? return 1;
? ??}
? ? ?// if MAX_ENTRANCE has reached, tell player
? ? ?SendClientMessage(playerid, -1, "Server cannot handle more entrance");
? ? ?return 1;
}
That?code will checking if number within "i" variable is free to use, and if is then the code will set isExists to prevent "overwriting" data/false detection.
And storing player position and angle is useful for teleporting and "spawning" pickup on that positon.
After making command for creating entrance, now you need to make another command for storing interior position, so you can enter/exit.
For example, i will make "entrancepos" instead "entranceedit" because i want to make things simpler.
CMD:interiorentrance(playerid, params[]) {
? ??
? ? // make local variable first to avoid warning/error
? ??new entId;
? ??
? ?// check if player not input anything or if player input is NaN
? ? if (sscanf(params, "i", entId))
? ? ? ? return SendClientMessage(playerid, -1, "/nteriorentrance<entrance ID>"); // then tell player to do like this.
??
? ? // check again if entrance is valid, using this method will avoid any warning like "Array out of bonds"
? ? if ((entId < 1 || entId >= MAX_ENTRANCE) && (!EntranceData))
? ? ? ? return SendClientMessage(playerid, -1, "Invalid entrance ID"); // if is, tell player that ID is not exists.
? ? // if things are clear, now we can safely store our position to Entrance Data.
? ? GetPlayerPos(playerid, EntranceData,?EntranceData,?EntranceData);
? ? GetPlayerFacingAngle(playerid, EntranceData);
?
? ? EntranceData = GetPlayerInterior(playerid);
? ? EntranceData = GetPlayerVirtualWorld(playerid);
? ??
? ? // tell player if script successfully storing data.
? ? SendClientMessage(playerid, -1, "Successfully editing Entrance Interior");
? ? return 1;
}
We're finish making those command, now the last but not least.. Making a delete command.
CMD:deleteentrance(playerid, params[]) {
? ? // make local variable first to avoid warning/error
? ??new entId;
? ??
? ?// check if player not input anything or if player input is NaN
? ? if (sscanf(params, "i", entId))
? ? ? ? return SendClientMessage(playerid, -1, "/deleteentrance <entrance ID>"); // then tell player to do like this.
??
? ? // check again if entrance is valid, using this method will avoid any warning like "Array out of bonds"
? ? if ((entId < 1 || entId >= MAX_ENTRANCE) && (!EntranceData))
? ? ? ? return SendClientMessage(playerid, -1, "Invalid entrance ID"); // if is, tell player that ID is not exists.
? ? // okay?first, we gonna kick people if they are inside of what we want to destroy/delete.
? ? for (new i, j = GetPlayerPoolSize(); i < j; i ) if (PlayerInEntrance == entId) {
? ? ? ? SetPlayerPos(playerid, EntranceData,?EntranceData,?EntranceData);
? ? ? ? SetPlayerFacingAngle(playerid, EntranceData);
?
? ? ? ? SetPlayerInterior(playerid, 0);
? ? ? ? SetPlayerVirtualWorld(playerid, 0);
? ? ? ? PlayerInEntrance = -1;
? ? }
? ? // and?let's destroy entrance pickup and text.
? ??if (IsValidDynamic3DTextLabel(EntranceData))
? ? ? ? DestroyDynamic3DTextLabel(EntranceData);
? ? if (IsValidDynamicPickup(EntranceData))
? ? ? ? DestroyDynamicPickup(EntranceData);
? ? // if things are clear, now we can safely reset?Entrance Data.
? ? new tmpReset;
? ? EntranceData?= tmpReset;
? ? EntranceData = false;
? ? return 1;
}
Now we're done with command, lets go to the next step.
Okay, we need to make a code so people can enter a entrance with "F" or whatever key you'll use.
Lets say i want to make "F" for enter/exit the entrance.
public OnPlayerKeyStatechange(playerid, newkeys, oldkeys) {
? ? // this code?is detecting if player pressed KEY_FIRE (F/Enter/LMB/TAB)
? ? if ((newkeys & KEY_FIRE) && !(oldkeys & KEY_FIRE)) {
? ? ? ??//making local variabel for storing entrance ID
? ? ? ? new entId;
? ? ? ? // we need to make a function which detects if player is nearing any
? ? ? ? // entrance within radius 2.5, if does?then script?returning a entrance ID.
? ? ? ? if ((entId = GetNearestEntrance(playerid, 2.5)) != -1) {
? ? ? ? ? ? // after that, teleport player to inside?of nearest entrance
? ? ? ? ? ? SetPlayerPos(playerid, EntranceData,?EntranceData,?EntranceData);
? ? ? ? ? ? SetPlayerFacingAngle(playerid, EntranceData);
?
? ? ? ? ? ? SetPlayerInterior(playerid, EntranceData);
? ? ? ? ? ? SetPlayerVirtualWorld(playerid, EntranceData);
? ? ? ? ? ? // storing entrance ID to player variable, so we can use that later.
? ? ? ? ? ? PlayerInEntrance = entId;
? ? ? ? }?
? ? ? ? // this code checking player if they pressed "F"/KEY_FIRE and player in near exit player inside a entrance.
? ? ? ? if ((entId =?PlayerInEntrance != -1)?&& IsPlayerInRangeOfPoint(playerid, 2.5,?EntranceData,?EntranceData,?EntranceData)) {
? ? ? ? ? ? // after that, teleport player to outside?of nearest entrance
? ? ? ? ? ? SetPlayerPos(playerid, EntranceData,?EntranceData,?EntranceData);
? ? ? ? ? ? SetPlayerFacingAngle(playerid, EntranceData);
?
? ? ? ? ? ? SetPlayerInterior(playerid, 0);
? ? ? ? ? ? SetPlayerVirtualWorld(playerid, 0);
? ? ? ? ? ? // change?player variable to -1 to avoid false detection.
? ? ? ? ? ? PlayerInEntrance = -1;
? ? ? ? }
? ? }
? ? return 1;
}
Last but not least, we're gonna make "function" to check is player near any entrance?
and returning entrance ID if that entrance is closest to player than any entrance.
GetNearestEntrance(playerid, Float:radius = 4.0) {
? ? for (new i; i < MAX_ENTRANCE; i ) if (IsPlayerInRangeOfPoint(playerid, 2.5,?EntranceData,?EntranceData,?EntranceData)) {
? ? ? ? return i;? ??
? ??}
? ? return -1;
}
Yaay, we finish making Entrance System, if you don't understand please reply so i/other people can give you proper way to make you understand.
Sorry if my bad english hehe ~
Oh yeah, btw here is the full code:
#define FILTERSCRIPT
#include <a_samp>
#include <sscanf2>
#include <streamer>
#include <Pawn.CMD>
public OnFilterScriptInit()?{
? ? return 1;
}
public OnFilterScriptExit()?{
? ? return 1;
}
CMD:makeentrance(playerid, params[]) {
? ? if (!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -1, "You are not administrator");
? ? if (!isnull(params)) return SendClientMessage(playerid, -1, "/makeentrance <name>"); // tell player if "params" is null
? ?// getting the next slot with checking if isExists on "i" variable?is false
? ? for (new i; i < MAX_ENTRANCE; i ) if (!EntranceData) {
? ? ? ? // storing useful data to server, this prevents for "false detection"
? ? ? ? EntranceData = true;
? ? ? ??//you can use strcat if you want, but i prefer format
? ? ? ? format(EntranceData, 24, params);
? ? ? ?// getting player position and angle for teleport/spawning pickup
? ? ? ? GetPlayerPos(playerid, EntranceData,?EntranceData,?EntranceData);
? ? ? ? GetPlayerFacingAngle(playerid, EntranceData);
? ? ? ?
? ? ? ? // spawning "dynamic pickup" on stored location
? ? ? ? EntranceData = CreateDynamic3DTextLabel(EntranceData, -1, EntranceData,?EntranceData,?EntranceData, 4.0);
? ? ? ? EntranceData = CreateDynamicPickup(modelid, type, EntranceData,?EntranceData,?EntranceData, 0, 0);
? ? ? ??// and tell player if everything done
? ? ? ??SendClientMessage(playerid, -1, "Successfully making a entrance");
? ? ? ? return 1;
? ??}
? ? ?// if MAX_ENTRANCE has reached, tell player
? ? ?SendClientMessage(playerid, -1, "Server cannot handle more entrance");
? ? ?return 1;
}
CMD:interiorentrance(playerid, params[]) {
? ??
? ? // make local variable first to avoid warning/error
? ??new entId;
? ??
? ?// check if player not input anything or if player input is NaN
? ? if (sscanf(params, "i", entId))
? ? ? ? return SendClientMessage(playerid, -1, "/nteriorentrance<entrance ID>"); // then tell player to do like this.
??
? ? // check again if entrance is valid, using this method will avoid any warning like "Array out of bonds"
? ? if ((entId < 1 || entId >= MAX_ENTRANCE) && (!EntranceData))
? ? ? ? return SendClientMessage(playerid, -1, "Invalid entrance ID"); // if is, tell player that ID is not exists.
? ? // if things are clear, now we can safely store our position to Entrance Data.
? ? GetPlayerPos(playerid, EntranceData,?EntranceData,?EntranceData);
? ? GetPlayerFacingAngle(playerid, EntranceData);
?
? ? EntranceData = GetPlayerInterior(playerid);
? ? EntranceData = GetPlayerVirtualWorld(playerid);
? ??
? ? // tell player if script successfully storing data.
? ? SendClientMessage(playerid, -1, "Successfully editing Entrance Interior");
? ? return 1;
}
CMD:deleteentrance(playerid, params[]) {
? ? // make local variable first to avoid warning/error
? ??new entId;
? ??
? ?// check if player not input anything or if player input is NaN
? ? if (sscanf(params, "i", entId))
? ? ? ? return SendClientMessage(playerid, -1, "/deleteentrance <entrance ID>"); // then tell player to do like this.
??
? ? // check again if entrance is valid, using this method will avoid any warning like "Array out of bonds"
? ? if ((entId < 1 || entId >= MAX_ENTRANCE) && (!EntranceData))
? ? ? ? return SendClientMessage(playerid, -1, "Invalid entrance ID"); // if is, tell player that ID is not exists.
? ? // okay?first, we gonna kick people if they are inside of what we want to destroy/delete.
? ? for (new i, j = GetPlayerPoolSize(); i < j; i ) if (PlayerInEntrance == entId) {
? ? ? ? SetPlayerPos(playerid, EntranceData,?EntranceData,?EntranceData);
? ? ? ? SetPlayerFacingAngle(playerid, EntranceData);
?
? ? ? ? SetPlayerInterior(playerid, 0);
? ? ? ? SetPlayerVirtualWorld(playerid, 0);
? ? ? ? PlayerInEntrance = -1;
? ? }
? ? // and?let's destroy entrance pickup and text.
? ??if (IsValidDynamic3DTextLabel(EntranceData))
? ? ? ? DestroyDynamic3DTextLabel(EntranceData);
? ? if (IsValidDynamicPickup(EntranceData))
? ? ? ? DestroyDynamicPickup(EntranceData);
? ? // if things are clear, now we can safely reset?Entrance Data.
? ? new tmpReset;
? ? EntranceData?= tmpReset;
? ? EntranceData = false;
? ? return 1;
}
public OnPlayerKeyStatechange(playerid, newkeys, oldkeys) {
? ? // this code?is detecting if player pressed KEY_FIRE (F/Enter/LMB/TAB)
? ? if ((newkeys & KEY_FIRE) && !(oldkeys & KEY_FIRE)) {
? ? ? ??//making local variabel for storing entrance ID
? ? ? ? new entId;
? ? ? ? // we need to make a function which detects if player is nearing any
? ? ? ? // entrance within radius 2.5, if does?then script?returning a entrance ID.
? ? ? ? if ((entId = GetNearestEntrance(playerid, 2.5)) != -1) {
? ? ? ? ? ? // after that, teleport player to inside?of nearest entrance
? ? ? ? ? ? SetPlayerPos(playerid, EntranceData,?EntranceData,?EntranceData);
? ? ? ? ? ? SetPlayerFacingAngle(playerid, EntranceData);
?
? ? ? ? ? ? SetPlayerInterior(playerid, EntranceData);
? ? ? ? ? ? SetPlayerVirtualWorld(playerid, EntranceData);
? ? ? ? ? ? // storing entrance ID to player variable, so we can use that later.
? ? ? ? ? ? PlayerInEntrance = entId;
? ? ? ? }?
? ? ? ? // this code checking player if they pressed "F"/KEY_FIRE and player in near exit player inside a entrance.
? ? ? ? if ((entId =?PlayerInEntrance != -1)?&& IsPlayerInRangeOfPoint(playerid, 2.5,?EntranceData,?EntranceData,?EntranceData)) {
? ? ? ? ? ? // after that, teleport player to outside?of nearest entrance
? ? ? ? ? ? SetPlayerPos(playerid, EntranceData,?EntranceData,?EntranceData);
? ? ? ? ? ? SetPlayerFacingAngle(playerid, EntranceData);
?
? ? ? ? ? ? SetPlayerInterior(playerid, 0);
? ? ? ? ? ? SetPlayerVirtualWorld(playerid, 0);
? ? ? ? ? ? // change?player variable to -1 to avoid false detection.
? ? ? ? ? ? PlayerInEntrance = -1;
? ? ? ? }
? ? }
? ? return 1;
}
GetNearestEntrance(playerid, Float:radius = 4.0) {
? ? for (new i; i < MAX_ENTRANCE; i ) if (IsPlayerInRangeOfPoint(playerid, 2.5,?EntranceData,?EntranceData,?EntranceData)) {
? ? ? ? return i;? ??
? ??}
? ? return -1;
}