Kaskus

Games

DiagramAvatar border
TS
Diagram
SA-MP (GTA:SA Online) Scripting Thread
moga" ga salah tempat emoticon-Hammermaksud hati mo nanya mod apa cocok disini ato di bagian programming di sebelah tapi om DarK_NekO masih belom bales selama 1 minggu jadi inisiatif bikin dulu emoticon-Malu

tret ini mau dibikin jadi ajang pembahasan script di SAMP dan sekaligus tempat bertemu dengan org" yg memang bisa scripting, mendidik mereka yang mengaku scripter tetapi tidak bisa, dan sharing tips dan trik dalam scripting yang efisien emoticon-Big Grin

so, monggo emoticon-Big Grin

Quote:

Quote:


Quote:


Quote:


Quote:



Quote:


Quote:


Quote:


akhir kata maaf kalo ada yang salah dan diminta supportnya atas tret ini emoticon-Big Grin
0
34.2K
143
GuestAvatar border
Komentar yang asik ya
Mari bergabung, dapatkan informasi dan teman baru!
Private Servers
Private Servers
KASKUS Official
3.2KThread3.5KAnggota
Tampilkan semua post
DexoZoidAvatar border
DexoZoid
#65
gan ane mau nanya

ane mau nanya neh gimana cara ngilangin tanda player dari radar

ama neh gan sistem clan ane kayaknya ada bug tolong benerin gan
kalo bisa tolong kasih AttachPlayer3DTextLabel di atas HP player gan textnya sesuai ama nama clannya gan bisa gk

Code:
\tif(strcmp(cmd, "/fteam",true)==0) // leave it like tis, its buggy atm
\t{

\t\tnew teamcmd, teamnum;
\t\ttmp = strtok(cmdtext, idx);

\t\tif(!strlen(tmp))
\t\t{
\t\t\tSendClientMessage(playerid, COLOR_WHITE, "USAGE: /fteam [create/join/quit] [name/number]");
\t\t\treturn 1;
\t\t}
\t\tgiveplayerid = strval(tmp);

\t\tif(strcmp(tmp, "create",true)==0)
\t\t\tteamcmd = 1;
\t\telse if(strcmp(tmp, "join",true)==0)
\t\t\tteamcmd = 2;
\t\telse if(strcmp(tmp, "invite",true)==0)
\t\t\tteamcmd = 3;
\t\telse if(strcmp(tmp, "quit",true)==0)
\t\t\tteamcmd = 4;

\t\ttmp = strtok(cmdtext, idx);
\t\tif(teamcmd < 4 && !strlen(tmp)) {
\t\t\tif(teamcmd==0)
\t\t\t\tSendClientMessage(playerid, COLOR_WHITE, "USAGE: /fteam [create/join/invite/quit] [name/number]");
\t\t\telse if(teamcmd==1)
\t\t\t\tSendClientMessage(playerid, COLOR_WHITE, "USAGE: /fteam [create] [name]");
\t\t\telse if(teamcmd==2)
\t\t\t\tSendClientMessage(playerid, COLOR_WHITE, "USAGE: /fteam [join] [number]");
\t\t\telse if(teamcmd==3)
\t\t\t\tSendClientMessage(playerid, COLOR_WHITE, "USAGE: /fteam [invite] [playerID]");
\t\t\treturn 1;
\t\t}

\t\t//Create Gang//
\t\tnew string[128];
\t\tif(teamcmd==1) {
\t\t\tif(playerTeam[playerid]>0) {
\t\t\t\tSendClientMessage(playerid, COLOR_RED, "You are already in a fireteam!");
\t\t\t\treturn 1;
\t\t\t}

\t\t\tfor(new i = 1; i < MAX_TEAMS; i++) {
\t\t\t\tif(teamInfo[i][0]==0) {
\t\t\t\t\t//name team
\t\t\t\tformat(teamNames[i], MAX_TEAM_NAME, "%s", tmp);
\t\t\t\t\t//Team exists
\t\t\t\t\tteamInfo[i][0]=1;
\t\t\t\t\t//There is one member
\t\t\t\t\tteamInfo[i][1]=1;
\t\t\t\t\t//Team color is player's color
\t\t\t\t\tteamInfo[i][2]=playerColors[playerid];

\t\t\t\t\t//Player is the first team member
\t\t\t\t\tteamMembers[i][0] = playerid;
\t\t\t\t\tformat(string, sizeof(string),"You have created the fireteam '%s' (id: %d)", teamNames[i], i);
\t\t\t\t\tSendClientMessage(playerid, COLOR_GREEN, string);

\t\t\t\t\tplayerTeam[playerid]=i;
\t\t\t\t\tSetPlayerMoney(playerid, GetPlayerMoney(playerid) -20000);
\t\t\t\t\treturn 1;
\t\t\t\t}
\t\t\t}

\t\t\treturn 1;

\t\t\t//Join Gang//
\t\t} else if (teamcmd==2) {
\t\t\tteamnum = strval(tmp);

\t\t if(playerTeam[playerid]>0)
\t\t\t{
\t\t\t\tSendClientMessage(playerid, COLOR_RED, "You are already in a fireteam!");
\t\t\t\treturn 1;
\t\t }

\t\t if(gTeam[teamMembers[teamnum][0]] != gTeam[playerid] )
\t\t {
\t\t\t\tSendClientMessage(playerid, COLOR_RED, "You need to be in the same fireteam with the leader !");
\t\t\t\tSendClientMessage(playerid, COLOR_RED, "Eg. : USA, Germany, Russia, Japan, Mercenaries !");
\t\t return 1;
\t\t }

\t\t\tif(teamInfo[teamnum][0]==0)
\t\t\t{
\t\t\t\tSendClientMessage(playerid, COLOR_RED, "No such fireteam exists!");
\t\t\t\treturn 1;
\t\t\t}
\t\t\tif(teamInvite[playerid]!=teamnum)
\t\t\t{
\t\t\t\tSendClientMessage(playerid, COLOR_RED, "You need to be invited to the fireteam to join.");
\t\t\t\treturn 1;
\t\t\t}

\t\t\tfor(new i = 0; i < MAX_TEAM_MEMBERS; i++)
\t\t\t{
\t\t\t\tif(teamMembers[teamnum][i] > 0 )
\t\t\t\t{

\t\t\t\t\tif(teamInfo[teamnum][1] < MAX_TEAM_MEMBERS)
\t\t\t\t\t{

\t\t\t\t\t\tteamMembers[teamnum][i] = playerid;

\t\t\t\t\t\tGetPlayerName(playerid, sendername, MAX_PLAYER_NAME);
\t\t\t\t\t\tfor(new j = 0; j < teamInfo[teamnum][1]; j++)
\t\t\t\t\t\t{

\t\t\t\t\t\t\tformat(string, sizeof(string),"%s has joined your fireteam.", sendername);
\t\t\t\t\t\t\tSendClientMessage(teamMembers[teamnum][j], COLOR_ORANGE, string);
\t\t\t\t\t\t}

\t\t\t\t\t\tteamInfo[teamnum][1]++;
\t\t\t\t\t\tplayerTeam[playerid] = teamnum;



\t\t\t\t\t\tformat(string, sizeof(string),"You have joined the fireteam '%s' (id: %d)", teamNames[teamnum], teamnum);
\t\t\t\t\t\tSendClientMessage(playerid, COLOR_GREEN, string);

\t\t\t\t\t}else SendClientMessage(playerid, COLOR_RED, "That fireteam is full.");
\t\t\t\t}
\t\t\t}
\t\t\treturn 1;

\t\t\t//Invite to Gang//
\t\t} else if (teamcmd==3)
\t\t{
\t\t\tgiveplayerid = strval(tmp);

\t\t\tif(playerTeam[playerid]==0)
\t\t\t{
\t\t\t\tSendClientMessage(playerid, COLOR_RED, "You are not in a fireteam!");
\t\t\t\treturn 1;
\t\t\t}
\t\t\tif(teamMembers[playerTeam[playerid]][0]!=playerid)
\t\t\t{
\t\t\t\tSendClientMessage(playerid, COLOR_RED, "You need to be the fireteam leader to send an invite.");
\t\t\t\treturn 1;
\t\t\t}
\t\t\tif( gTeam[giveplayerid] != gTeam[playerid] )
\t\t\t{
\t\t\t SendClientMessage(playerid,COLOR_RED, "He needs to be in the same fireteam with you ! Eg: Japan");
\t\t\t return 1;
\t\t\t}

\t\t\tif(IsPlayerConnected(giveplayerid))
\t\t\t{
\t\t\t\tGetPlayerName(giveplayerid, giveplayer, sizeof(giveplayer));
\t\t\t\tGetPlayerName(playerid, sendername, sizeof(sendername));

\t\t\t\tformat(string, sizeof(string),"You have sent a fireteam invite to %s.", giveplayer);
\t\t\t\tSendClientMessage(playerid, COLOR_GREEN, string);
\t\t\t\tformat(string, sizeof(string),"You have recieved a fireteam invite from %s to '%s' (id: %d)", sendername, teamNames[playerTeam[playerid]],playerTeam[playerid]);
\t\t\t\tSendClientMessage(giveplayerid, COLOR_GREEN, string);

\t\t\t\tteamInvite[giveplayerid]=playerTeam[playerid];

\t\t\t} else SendClientMessage(playerid, COLOR_RED, "No such player exists!");

\t\t\t//Leave Gang//
\t\t} else if (teamcmd==4)
\t\t{
\t\t\tPlayerLeaveGang(playerid);
\t\t}

\t\treturn 1;
\t}

\t//------------------- /teaminfo

\tif(strcmp(cmdtext, "/fteaminfo",true)==0) {
\t new string[100];
\t\tnew teamnum;
\t\ttmp = strtok(cmdtext, idx);

\t\tif(!strlen(tmp) && playerTeam[playerid]==0) {
\t\t\tSendClientMessage(playerid, COLOR_WHITE, "USAGE: /fteaminfo [number]");
\t\t\treturn 1;
\t\t} else if (!strlen(tmp))
\t\tteamnum = playerTeam[playerid];
\t\telse
\t\tteamnum = strval(tmp);

\t\tif(teamInfo[teamnum][0]==0) {
\t\t\tSendClientMessage(playerid, COLOR_RED, "No such fireteam exists!");
\t\t\treturn 1;
\t\t}

\t\tif( gTeam[teamMembers[teamnum][0]] != gTeam[playerid] )
\t\t{
\t\t\tSendClientMessage(playerid, COLOR_RED, "You can't see info about an enemy fireteam !");
\t\t\treturn 1;
\t\t}

\t\tformat(string, sizeof(string),"'%s' FireTeam Members (id: %d)", teamNames[teamnum], teamnum);
\t\tSendClientMessage(playerid, COLOR_GREEN, string);

\t\tfor(new i = 0; i < teamInfo[teamnum][1]; i++) {
\t\t\tGetPlayerName(teamMembers[teamnum][i], giveplayer, sizeof(giveplayer));
\t\t\tformat(string, sizeof(string),"%s (%d)", giveplayer, teamMembers[teamnum][i]);
\t\t\tSendClientMessage(playerid, COLOR_YELLOW, string);
\t\t}

\t\treturn 1;
\t}

\t//------------------- /teams

\tif(strcmp(cmdtext, "/fteams",true)==0)
\t{
\t\tnew x;
\t\tnew string[100];

\t\tSendClientMessage(playerid, COLOR_GREEN, "Current FireTeams:");
\t\tfor(new i=0; i < MAX_TEAMS; i++)
\t\t{
\t\t if( gTeam[teamMembers[i][0]] == gTeam[playerid])
\t\t {
\t\t\t\tif(teamInfo[i][0]==1)
\t\t\t\t{

\t\t\t\t\tformat(string, sizeof(string), "%s%s(%d) - %d members", string,teamNames[i],i,teamInfo[i][1]);

\t\t\t\t\tx++;
\t\t\t\t\tif(x > 2)
\t\t\t\t\t{
\t\t\t\t\t\tSendClientMessage(playerid, COLOR_YELLOW, string);
\t\t\t\t\t\tx = 0;
\t\t\t\t\t\tformat(string, sizeof(string), "");
\t\t\t\t\t} else
\t\t\t\t\t{
\t\t\t\t\t\tformat(string, sizeof(string), "%s, ", string);
\t\t\t\t\t}
\t\t\t\t}
\t\t\t}
\t\t}

\t\tif(x <= 2 && x > 0) {
\t\t\tstring[strlen(string)-2] = '.';
\t\t\tSendClientMessage(playerid, COLOR_YELLOW, string);
\t\t}

\t\treturn 1;
\t}
0
Ikuti KASKUS di
© 2026 KASKUS, PT Darta Media Indonesia. All rights reserved.