Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - Doom

Pages: [1]
1
VC:MP Clans / Twisted Skills - Clan
« on: June 18, 2013, 07:10:33 pm »


Twisted Skills - Clan

Leader:

Doom_Killer

Lead Member:

---

Members:

=TS=NitrousX

Trials:

=TS=Darkness

- Clan Rules for Applicants

* The Applicant must be active, Experienced in fighting and must have well behavior.

* The Applicant Should never abuse / make fun of other clans { creating stupid names from other clans }

* The Applicant must not apply if he has a pending app already on another clan forum. { Clan Hopper }

* He must speak English well


- Clan's Tag -

=TS= | >TS< | -TS- | [TS] | (TS) | ~TS~

- Clan's Status -

Active

- Clan's Recruitment - { Join Request / Application }

Open

Forum:- http://ts-clan.forumur.net/




2
Servers / Vice Gangwars - Deathmatch
« on: April 20, 2013, 07:13:49 pm »
Vice Gangwars - Gang Deathmatch

Server owner/Developer: Doom_Killer / WaffleS3x

Server Forum: www.vice-gangwars.forumur.net

Server IP: 94.249.214.20:5194

Server Type: Gang Deathmatch

Server Creation: 14/4/2013

Server Features: All possible normal features, with some Clan Stats, Custom Register/Login, VIP Etc



3
Snippet Showroom / [Snippet] VIP system
« on: February 27, 2013, 01:54:42 pm »
Hey folks been busy with my exams and i still am, i got some minutes after revising ma whole paper :D so got time to browse little and here it is VIP SYSTEM. First time for 0.3z R2 so its for GUPS why? Because i see most of the new comers or still people is using it so i thought it would be better for that.

Coding Time...

Define this on top:

Code: [Select]
#define VIP_FILE          "/Vips/%s.ini"
Add this on the top:

Code: [Select]
enum playerInfo
{
Spawnedp,
  brb,
  back,
  muted,
  Password[MAX_PASS_SIZE+1],
Logged,
FalseLogins,
prank,
Level,
VLevel
}


enum vipinfo
{
IsVip
}

enum commandcount
{
healthc,
armourc
}

I am using many enums to to make less confusion... if you are skilled enough you can use these all in 1 enum...

You already have the pinfo defined so just add this under that

Code: [Select]
new vinfo[MAX_PLAYERS][vipinfo];
Very Important and Careful step

Go on the Register command and add these lines with the other Dini_ Lines.

Code: [Select]
dini_Create(file3);
dini_Set( file3, "VIP", "0" );

Go to your /c login command and search for the
Code: [Select]
if(strcmp(getpass(tmp), pass_confirm, true) == 0)
{

Add this on the top section of that.

Code: [Select]
vlevel = dini_Int( file3, "VIP" );
    pInfo[ playerid ][ VLevel ] = vlevel;

Add this under THIS
Code: [Select]
if(strcmp(getpass(tmp), pass_confirm, true) == 0)
{

REMBER TO ADD THIS UNDER THAT LINE AND THE OTHER UP ON THAT LINE ( im saying again and again because you will end up owned if you do something wrong because this is TOTALLY tested and works fine so if you guys get errors then its not scripts fault )

Code: [Select]
if(dini_Exists(file3)) return SendclientMessage(playerid, RED, "[Server] VIP Account Loaded");
{
vlevel = GetVL(gPlayers[ playerid ] );
pInfo[playerid][VLevel] = vlevel;
vinfo[playerid][IsVip] = 1;
format(szMsg,128,"[VIP] %s Is Now Logged-In and Connected",gPlayers[playerid]);
SendClientMessageToAll(COLOR_YELLOW,szMsg);
format( szMsg, sizeof( szMsg ), "VIP Level %d ( %s )",vlevel, Vlevels( vlevel ) );
SendClientMessage(playerid,RED,szMsg);
}


Add these commands carefully

Code: [Select]
//=========================================[ VIP FUNCTIONS ]=============================================================

else if ( strcmp( cmd, "vgoto", true ) == 0 )
{
tmp = strtok( cmdtext, idx );
if ( !strlen( tmp ) ) SendClientMessage( playerid, COLOR_GREY, "[Server Error] /c vgoto [Nick/ID]" );
else if( pInfo[playerid][VLevel] < 2 ) return SendClientMessage(playerid,GREEN,"[Server Protection] You Are Not VIP");
else
{
    new plr = FindPlayerIDFromString( tmp );
    if ( plr == INACTIVE_PLAYER_ID ) SendClientMessage( playerid, COLOR_GREEN, "[Server Error] Unknown player" );
    else
{
    GetPlayerPos( plr, x, y, z );
SetPlayerPos( playerid, x, y + 1.0, z, 0, 0 );
format( szMsg, sizeof( szMsg ), "[VIP COMMAND] Teleportation [ [VIP] %s ] to:[ %s ]", gPlayers[ playerid ], gPlayers[ plr ] );
SendClientMessageToAll( COLOR_GREEN, szMsg );
}
}
return 1;

}
else if ( strcmp( cmd, "vsay", true ) == 0 )
{
tmp = strtok( cmdtext, idx );
if ( !strlen( tmp ) ) SendClientMessage( playerid, COLOR_GREY, "[Server Error] /c vsay [Text]" );
else if( pInfo[playerid][VLevel] < 3 ) return SendClientMessage(playerid,GREEN,"[Server Protection] You Are Not VIP");
else
{
    GetPlayerTeam(playerid);
    if(GetPlayerTeam(playerid) == 1)
    {
format( szMsg, sizeof( szMsg ), "[VIP] %s: %s ", gPlayers[ playerid ], cmdtext[4] );
SendClientMessageToAll( ORANGE, szMsg );
}

            else if(GetPlayerTeam(playerid) == 2)
    {
format( szMsg, sizeof( szMsg ), "[VIP] %s: %s ", gPlayers[ playerid ], cmdtext[4] );
SendClientMessageToAll( PURPLEE, szMsg );
}
}
return 1;

        }
else if (strcmp(cmd, "donate", true) == 0 )
{
  SendClientMessage(playerid,BLUE,"=================>[V.I.P]<=============== ");
    SendClientMessage(playerid,BLUE,"Lvl 1 [Bronze], Lvl2 [Silver], Lvl3 [GOLD], Lvl4 [PREMIUM]");
    SendClientMessage(playerid,BLUE,"Check /c vip for level informations");
    return 1;

}
else if (strcmp(cmd, "buy", true) == 0 || strcmp(cmd,"shop", true) == 0)
{
  SendClientMessage(playerid,BLUE,"=================>[V.I.P]<=============== ");
    SendClientMessage(playerid,BLUE,"/c vwep [ any weapon ]");
    SendClientMessage(playerid,BLUE,"Heavy Weapons, Money on spawn including to level");
    return 1;

}
else if (strcmp(cmd, "vip", true) == 0)
{
  SendClientMessage(playerid,BLUE,"[/c] level1 Upto level4. Use number for the current level cmds" );
    return 1;
   
    }
else if (strcmp(cmd, "level1", true) == 0)
{
  SendClientMessage(playerid,BLUE,"[/c] vwep + 200$ on each spawn" );
    return 1;
   
    }
else if (strcmp(cmd, "level2", true) == 0)
{
  SendClientMessage(playerid,BLUE,"[/c] vwep, vgoto+ 500$ on each spawn" );
    return 1;
   
    }
else if (strcmp(cmd, "level3", true) == 0)
{
  SendClientMessage(playerid,BLUE,"[/c] vwep, vgoto, vsay, armour + 1500$ on each spawn" );
    return 1;
   
    }
else if (strcmp(cmd, "level4", true) == 0)
{
  SendClientMessage(playerid,BLUE,"[/c] vwep, vgoto, vsay, health, armour + 10000$ on each spawn" );
    return 1;
   
}
else if (strcmp(cmd, "vwep", true) == 0)
{
if(pInfo[playerid][VLevel] == 0)
{
SendClientMessage(playerid,RED,"[Server Protection] You Are not VIP " );
}
else
{
tmp = strtok( cmdtext, idx );
new wep[256];
wep[1] = FindWepIDFromString ( tmp );
GivePlayerWeapon(playerid,wep[1], 9999);
}
}

else if (strcmp(cmd, "health", true) == 0)
{
if(pInfo[playerid][VLevel] == 0)
{
SendClientMessage(playerid,RED,"[Server Protection] You Are not VIP " );
}
else if(pInfo[playerid][VLevel] < 3)
{
    SendClientMessage(playerid,RED,"[Server Protection] You Are not high enough VIP level" );
}
else
{
  new Float:health;
if(cmdinfo[playerid][healthc] == 0)
    {
  cmdinfo[playerid][healthc] = 1;
  GetPlayerHealth(playerid,health);
  SetPlayerHealth(playerid,health+25);
  format(szMsg,256,"V.I.P %s used vip cmd to get +50 health",gPlayers[playerid]);
SendClientMessageToAll(COLOR_YELLOW,szMsg);
  return 0;
  }
  else if(cmdinfo[playerid][healthc] == 1)
  {
  cmdinfo[playerid][healthc] = 2;
  GetPlayerHealth(playerid,health);
  SetPlayerHealth(playerid,health+25);
  format(szMsg,256,"V.I.P %s used vip cmd to get +50 health",gPlayers[playerid]);
SendClientMessageToAll(COLOR_YELLOW,szMsg);
  return 0;
  }
  else if(cmdinfo[playerid][healthc] == 2)
{
  cmdinfo[playerid][healthc] = 3;
  GetPlayerHealth(playerid,health);
  SetPlayerHealth(playerid,health+25);
  format(szMsg,256,"V.I.P %s used vip cmd to get +50 health",gPlayers[playerid]);
SendClientMessageToAll(COLOR_YELLOW,szMsg);
  return 0;
  }
  else if(cmdinfo[playerid][healthc] == 3)
  {
  SendClientMessage(playerid,BLUE,"[Server] VIP cmd Limit Exceeded! [ Max 3 At Each Spawn ]");
  }
  }
    return 1;

}

else if (strcmp(cmd, "armour", true) == 0)
{
if(pInfo[playerid][VLevel] == 0)
{
SendClientMessage(playerid,RED,"[Server Protection] You Are not VIP " );
}
else if(pInfo[playerid][VLevel] < 3)
{
    SendClientMessage(playerid,RED,"[Server Protection] You Are not high enough VIP level" );
}
else
{
  new Float:armour;
if(cmdinfo[playerid][armourc] == 0)
    {
  cmdinfo[playerid][armourc] = 1;
  GetPlayerArmour(playerid,armour);
  SetPlayerArmour(playerid,armour+25);
  format(szMsg,256,"V.I.P %s used vip cmd to get +25 armour",gPlayers[playerid]);
SendClientMessageToAll(COLOR_YELLOW,szMsg);
  return 0;
  }
  else if(cmdinfo[playerid][armourc] == 1)
  {
  cmdinfo[playerid][armourc] = 2;
  GetPlayerArmour(playerid,armour);
  SetPlayerArmour(playerid,armour+25);
  format(szMsg,256,"V.I.P %s used vip cmd to get +25 armour",gPlayers[playerid]);
SendClientMessageToAll(COLOR_YELLOW,szMsg);
  return 0;
  }
  else if(cmdinfo[playerid][armourc] == 2)
{
  cmdinfo[playerid][armourc] = 3;
  GetPlayerArmour(playerid,armour);
  SetPlayerArmour(playerid,armour+25);
        format(szMsg,256,"V.I.P %s used vip cmd to get +25 armour",gPlayers[playerid]);
SendClientMessageToAll(COLOR_YELLOW,szMsg);
  return 0;
  }
  else if(cmdinfo[playerid][armourc] == 3)
  {
  SendClientMessage(playerid,BLUE,"[Server] VIP cmd Limit Exceeded! [ Max 3 At Each Spawn ]");
  }
  }
    return 1;
}
//===========================================[ VIP FUNCTIONS END ] ==========================================

Add this at OnPlayerSpawn

Code: [Select]
if(pInfo[playerid][VLevel] == 1)
{
new cash;
cash = GetPlayerMoney(playerid);
SetPlayerMoney(playerid,cash+200);
}

if(pInfo[playerid][VLevel] == 2)
{
new cash;
cash = GetPlayerMoney(playerid);
SetPlayerMoney(playerid,cash+500);
}

if(pInfo[playerid][VLevel] == 3)
{
new cash;
cash = GetPlayerMoney(playerid);
SetPlayerMoney(playerid,cash+1500);
}

if(pInfo[playerid][VLevel] == 4)
{
new cash;
cash = GetPlayerMoney(playerid);
SetPlayerMoney(playerid,cash+10000);
}

Add these 2 functions at top of STOCKS

Code: [Select]
public GetVL(player[])
{
new vl;
format( file3, sizeof( file3 ), VIP_FILE, player);
vl = dini_Int( file3, "VIP" );
return vl;
}

public Vlevels(vlevel)
{
new vl[ 30 ];
if (vlevel == 1 ) vl = "Bronze";
else if (vlevel == 2) vl = "Silver";
else if (vlevel == 3) vl = "Gold";
else if (vlevel == 4) vl = "PREMIUM";
return vl;
}

Finally Go to Scriptfiles > Create a new folder and name it Vips BE CAREFUL WITH CAPITAL AND SMALL LETTERS TYPE IT THE WAY IT IS

After registration you will get a file in Vips folder with players name and you can set him whatever level you want so 0 = normal, 1 = Bronze, 2 = Silver, 3 = Gold and 4 = Premium.

To Set already registered player to VIP use this command:

Code: [Select]
else if ( strcmp( cmd, "Setvip", true ) == 0 )
{
new plr, tmp2[256];
tmp = strtok( cmdtext, idx ), tmp2 = strtok( cmdtext, idx ), plr = FindPlayerIDFromString( tmp );
        if( !IsPlayerAdmin(playerid) ) return 0;
else if ( !strlen(tmp2) ) SendClientMessage( playerid, COLOR_RED, "[Server] /c makevip [Nick/ID] [Level]");
  else if ( plr == INACTIVE_PLAYER_ID ) SendClientMessage( playerid, COLOR_RED, "Error: Unknown player" );
else
{
format( szMsg, sizeof( szMsg ), "[Admin] %s Has Promoted Player %s To VIP", gPlayers[ playerid ], gPlayers[ plr ]);
SendClientMessageToAll( COLOR_GREEN, szMsg );
format(file3, sizeof(file3), VIP_FILE, PlayerName(plr));
dini_Create(file3);
dini_Set( file3, "VIP", tmp2 );
}
return 1;

}

If you encounter problems i won't be able to help you ( Maybe ) because of exams and if you add it totally right it will definitely work.. Have fun

Credits would be appreciated

4
General Discussion / Its time.
« on: February 13, 2013, 06:09:05 pm »
Well i observed very much that finally samp got a new release 0.3X.... Everyone lets give support to our VCMP Develeopers rather than bullshitting on them to work fast and all look at the damn 0.4 features of vcmp, We all hope that 0.4 will be out this or next 2 months before samp 0.4 comes out..

Finally if vcmp 0.4 is released i BET that the right now VCMP Strength of players is 20 - 30% but after 0.4 releasing and the people will make videos about it there will be a total 100% players on vcmp and then the internet list will be more smaller to scroll down rather than just now... So lets hope and thank out developers VCMP Team. :)

P.S: just thought of this when i saw samp releasing/developing so fast and everyone there praising the samp team, but here too sick to say...

5
Snippet Showroom / Anti Insult System.
« on: October 26, 2012, 07:12:37 pm »
Hello guys my first day, my first topic and my first release for you all.

Note: This is for you to learn no matter if you only copy/paste butmake sure to learn from it, will help you alot in future scripting.

What does it do?

♦ This script will filter out all offensive words in the text a player types, if it finds any it will warn the player 5 times and after that kick

How many languages are there to choose from?

♦ English, Use the same method to add other languages.

Warning: Use 1 Language at a time for example if you want to use spanish instead of english copy  baste the english words code and add the spanish offensive words after that comment the english code and don, if you want to use english then un-comment and comment spanish not that much hard

Featured languages:
add much languages you want but 1 at a time

Why can you only pick 1 language at a time?

♦ This has 2 reasons, the first one is to reduce lagg since the script must loop through all possible words, if you would put in all the languages it had to loop through 1000+ words for every line of text a player types, typically this would induce lagg. The second reason is because some words in one language are not offensive in another, putting in all languages would cause the script to censor waaay to much words initially not ment to be offensive.

time for coding.

Top of Script:

Code: [Select]
#define MAX_WORD_LEN 18 // Max lenght of a swear word
#define MAX_WORDS 122   // Max amount of swearwords
#define MAX_SWEARCOUNT 5 // Max warnings before kick

Code: [Select]
// ENGLISH
new swear[][MAX_WORD_LEN] =
{
{"anus"},
{"arsehole"},
{"ass"},
{"bitch"},
{"blowjob"},
{"boner"},
{"bullshit"},
{"clit"},
{"cock"},
{"cum"},
{"cunt"},
{"dick"},
{"dildo"},
{"douche"},
{"fag"},
{"fellatio"},
{"fuck"},
{"fudgepacker"},
{"gay"},
{"damn"},
{"gooch"},
{"handjob"},
{"hard-on"},
{"homo"},
{"homodumbshit"},
{"humping"},
{"jerkoff"},
{"jigaboo"},
{"jizz"},
{"jungle-bunny"},
{"junglebunny"},
{"kooch"},
{"kootch"},
{"kunt"},
{"kyke"},
{"lesbian"},
{"lesbo"},
{"lezzie"},
{"mcfagget"},
{"minge"},
{"mothafucka"},
{"motherfucker"},
{"motherfucking"},
{"muff"},
{"muffdiver"},
{"munging"},
{"negro"},
{"*****"},
{"niglet"},
{"nutsack"},
{"paki"},
{"panooch"},
{"pecker"},
{"peckerhead"},
{"penis"},
{"piss"},
{"polesmoker"},
{"pollock"},
{"poonani"},
{"porchmonkey"},
{"prick"},
{"punanny"},
{"punta"},
{"pussies"},
{"pussy"},
{"pussylicking"},
{"puto"},
{"queef"},
{"renob"},
{"rimjob"},
{"ruski"},
{"sand******"},
{"schlong"},
{"scrote"},
{"shit"},
{"shiz"},
{"shiznit"},
{"skank"},
{"skullfuck"},
{"slut"},
{"slutbag"},
{"smeg"},
{"snatch"},
{"tard"},
{"testicle"},
{"thundercunt"},
{"tit"},
{"twat"},
{"twatwaffle"},
{"unclefucker"},
{"vag"},
{"vagina"},
{"vjayjay"},
{"wank"},
{"whore"},
{"whorebag"},
{"whoreface"},
{"wop"},
{"@gmail"},
{"@live"},
{"@msn"},
{"@hotmail"},
{".de"},
{".cc"},
{"www."},
{".com"},
{".co"},
{".uk"},
{".org"},
{".net"},
{".info"},
{".tk"}
};

Code: [Select]
new swearCount[MAX_PLAYERS];
public OnPlayerDisconnect(playerid, reason){
swearCount[playerid] = 0;
}

paste it like that with onplayerdissconnect

Code: [Select]
public OnPlayerText(playerid, cmdtext[])
{
if((strlen(cmdtext) < 3) || (cmdtext[0] == '/') || (cmdtext[0] == '#') || (cmdtext[0] == '!')) return 1;

new offset;
new len;
  for(new i=0; i<MAX_WORDS; i++)
{
offset = strfind(cmdtext, swear[i], true);
if(offset > -1)
{
len = strlen(swear[i]);
if(len < 3) break;
for(new y=0; y<len; y++)
{
cmdtext[offset+y] = '*';
}
swearCount[playerid]++;
new string[64];
format(string, sizeof(string), "Swearing is not allowed here, warning %d/%d", swearCount[playerid], MAX_SWEARCOUNT);
SendClientMessage(playerid, 0xE60000FF, string);
    if(swearCount[playerid] >= MAX_SWEARCOUNT)
{
    new name[24];
    GetPlayerName(playerid, name, sizeof(name));
    format(string, sizeof(string), "*** %s has been kicked for offensive language", name);
    SendClientMessageToAll(0xE60000FF, string);
    Kick(playerid);
    break;
}
break;
}
}
return 1;
}

the onplayeretext sure you can just copy the main thing lol not the whole onplayertext because it will make problem with ur commands

Feel free to post any bugs you find ;)

Credits

• Sinner
• Wikipedia for a considerable part of the words

Pages: [1]