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 - PsyChO_KiLLeR
1
General Discussion / Good News For All
« on March 9th, 2015, 01:28 PM »
Well i disturb u much but good new is i am leaving vcmp ;)
Thnx for helping
2
Scripting and Server Management / Custom Map
« on March 9th, 2015, 08:07 AM »
well i have a one custom map which has files that are vc data like mansion and starl and they include ipl , col and ide file how can i set them in my svr
3
Scripting and Server Management / Objects
« on March 7th, 2015, 04:16 PM »
Well i add a custom object of a car and i also added in object.xml with id 23 then i go to my server and i type /exec CreateObject( 6024, 0, FindPlayer(0), 255 ); but nothing happens

then i add train in my objects folder and i give him id of 24 and i go in server and type /exec CreateObject( 6025, 0, FindPlayer(0), 255 );

Nothin Happens...What's Wrong....???
4
Scripting and Server Management / TradeCar
« on March 7th, 2015, 09:30 AM »
Well i create a trade car system but its not working always getting error on 33 line


this is commands

             

 else if ( cmd == "taccept" )
{
local cost = status[ player.ID ].cost
local IDS = status[ player.ID ].id
if ( status[ player.ID ].waiting == false ) ePrivMessage("Error: You dont have pending request.",player)
 Always error here else if ( player.Cash < cost ) ePrivMessage("Error: You need $ [ " + cost + " ] to buy this vehicle.",player)
else
{
local plr = FindPlayer( status[ plr.ID ].tname )
QuerySQL( db, "UPDATE Cars SET Owner='" + player.Name + "' WHERE ID='" + IDS + "'" );
ePrivMessage( "You have purchased the vehicle ID [ " + IDS + " ]", player );
DecCash( player , status[ player.ID ].cost )
ePrivMessage("You have selling vehicle ID [ " + IDS + " ]",plr)
IncCash( plr , status[ player.ID ].cost )
status[ player.ID ].cost = null
status[ player.ID ].waiting = false
status[ player.ID ].id = null
status[ player.ID ].name = null
status[ plr.ID ].t = false
ttimeouts.Stop()
}
}




Code: [Select]
else if ( cmd =="tradecar" )
{
if ( !text ) ePrivMessage("Syntax: /c tradecar <player/id> <cost>",player)
else
{
local veh = player.Vehicle;
local id = player.ID
local plr = FindPlayer( GetTok( text, " ", 1 ) ), cost = GetTok( text, " ", 2 );
if ( !veh ) ePrivMessage( "Error: You must be in a vehicle.", player );
else
{
local q = QuerySQL( db, "SELECT * FROM Cars WHERE rowid LIKE '" + veh.ID + "'" );
if ( plr == null ) ePrivMessage("Invalid Player",player)
else if ( GetSQLColumnData( q, 2 ) != player.Name ) ePrivMessage( "Error: You do not own this vehicle.", player );
else if ( !plr ) ePrivMessage("Error: Invalid player.",player)
else if ( cost == null ) ePrivMessage("Who will set cost ah?",player)
else if ( !IsNum( cost ) ) ePrivMessage( "Error: The cost should be in number.", player );
else
{
status[ player.ID ].t = true
status[ plr.ID ].cost = cost
status[ plr.ID ].waiting = true
status[ plr.ID ].id = veh.ID
status[ plr.ID ].name = player.Name
ePrivMessage("Request send, wait for him reply.",player)
ePrivMessage("Player [ " + player.Name + " ] want sell ID [ " + veh.ID + " ][ " + GetVehicleNameFromModel( veh.Model ) + " ] for $[ " + cost + " ]",plr)
ePrivMessage("Type /c taccept to accept or /c tdeny to reject request",plr)
ttimeouts <- NewTimer("ttimeout",30000,player.ID,1)
}
}
}
}





this is on playerstats

Code: [Select]
t = false;
    cost = 0;
      waiting = false;
     id = 0;
    name = false;
5
Scripting and Server Management / Setlevel
« on March 7th, 2015, 06:17 AM »
My Setlevel Command not working it always say lvl does not exist

Code: [Select]
else if ( cmd == "setlevel" )
{
                  if ( IsNoob( player, cmd ) ) return 0;
if ( !text ) ePrivMessage( "Syntax, / " + cmd + " <Nick/ID> <Level 3, 4 ,5> ", player );
local plr = GetPlayer( GetTok( text, " ", 1 ) );
if ( !plr ) ePrivMessage( "Unknown Player..", player );
else
{
   if (!IsNum(lvl)) ePrivMessage("Level Must Be In Numbers..",player);
   else
   {
   ePrivMessage(" Admin " + player.Name + " Set Level To " + plr.Name + ", Level: " + lvl + ".",player);
   QuerySQL(db,"UPDATE Account SET Level='" + lvl + "' WHERE Name='" + plr.Name.tolower() + "'");
   }
}
}
6
Scripting and Server Management / Radio
« on March 6th, 2015, 04:37 PM »
How to use radio command. When i type /radio it goes to Flash FM and also i gave URL in command

Code: [Select]
if ( cmd == "radio" )
 {
  player.Vehicle.Radio = CreateRadioStream( "TestRadio", "http://sound41.topsongspk.com/indian/Aashiqui2-2013/%5BSongsPK.cc%5D%20Aashiqui%202%20-%2001%20-%20Tum%20Hi%20Ho.mp3", true );
 }

7
Scripting and Server Management / OnPlayerCommand2
« on March 6th, 2015, 08:21 AM »
Well i have question can we use onplayercommand2 of ! because i see it in little whitey server 0.4
8
Scripting and Server Management / Vote Kick
« on March 6th, 2015, 08:20 AM »
Well i try to add Vote Kick system of ADM Script of Dany but its not working when i type /votekick name it doesnt show anything and type /vote name its also not show any thing it just give error on console of OnPlayerCommand VKick Does not exist what it is?
9
Snippet Showroom / Hotkey Fix Vehicle
« on March 5th, 2015, 06:07 AM »
Well I Create a HotKey of Fixing A vehicle its soo easy but its for newbies

Add this onScriptLoad
Code: [Select]
P <- BindKey(true, 0x50,0,0);


Add this on KeyDown
Code: [Select]
if( key == P )
{
     local veh = player.Vehicle;
if ( !veh ) MessagePlayer( "You must be in a Vehicle.", player );
else if ( veh.Health == 1000 ) MessagePlayer( "[Dod-Error] There is no need to fix your vehicle.", player );
else
{
         NewTimer( "Fix", 3000, 1, player.ID );
               MessagePlayer( ">> Fixing your Vehicle in 3 secs..", player );
}
  }



Add this on Functions.nut

Code: [Select]
function Fix(player)
{
local p = FindPlayer( player );
if (p)
{
    p.Vehicle.Fix();
    MessagePlayer( "Successfully fixed your vehicle.", p );
}
}



That it


Credits: Goes to me
10
Scripting and Server Management / Passwords
« on March 5th, 2015, 04:48 AM »
Well i am facing big problem as u know in db the real password are not save i go in my server and register there with password is password and when my ip changed then i go and type /login password it say invalid pass what is problem?
11
Snippet Showroom / Custom Weapon
« on March 5th, 2015, 04:21 AM »
well i am releasing some custom weapons here i give two custom weapons there
Link
Code: [Select]
http://www.2shared.com/file/zh20OEqP/w101_s8_l28_AK.html
and
 
Code: [Select]
http://www.2shared.com/file/KfvxygzL/w102_s8_l28_m60.html

Just Paste it to server/store/weapons/here
 and take this cmd which unable u to done it quick dont need to use /exec 

       
Code: [Select]
else if ( cmd == "buy" )
{
if ( text )
{
if (player.IsSpawned)
{if (IsNum ( text ))
{
if ( text == "101" )
{
MessagePlayer( "You Bought Custom Weapon of AK-47", player );
player.SetWeapon( 101,999);
}
else if ( text == "102" )
{
MessagePlayer( "You Bought Custom Weapon of Rifle", player );
player.SetWeapon( 102,999);
}
}
else MessagePlayer( "[Error] - ID must be in numbers", player );
}
else MessagePlayer( "[Error] - You have'nt spawned yet!", player );
}
else MessagePlayer( "[Syntax] - /wep <Wep ID 100 to 108>", player );
}





And If u want also hotkey then here it is i am ready to make it

Add this on Main.nut onScriptLoad
Code: [Select]
L <- BindKey(true, 0x4C,0,0);


Add this on Your Function KeyDown

Code: [Select]
if( key == L )
{
       if ( !player.IsSpawned ) MessagePlayer( "[Error] - You haven't spawned yet..", player );
else
{
                   player.SetWeapon(101,999);
                   player.SetWeapon(102,999);
                   Announce( "Custom Weapons Given", player );
   MessagePlayer( "You got Custom Weapons.", player );
}
}   


UPDATED

Maybe U Enjoy THat If any error comes then tell me


Credits Goes To Rathore and Me Rathore help me in buy command


12
Scripting and Server Management / ReSpawn Time
« on March 3rd, 2015, 10:51 AM »
Well i create a pickup in my server but its respawn cant set when i pick a pickup it respawn after 0  sec again and again how to set respawn time
 
Code: [Select]
if ( pickup.Model == 408 )
                {
                pickup.RespawnTime = 60;
                 IncCash( player, 2000 );
                Message( "You have found 2000 cash in bank." );
}
13
Scripting and Server Management / Custom Weapons
« on March 2nd, 2015, 01:23 PM »
Description:Well i have added custom weapons they are working well but i have to type /exec FindPlayer(0).SetWeapon( weaponid,ammo); i want it to change into /wep id how i change?
14
Scripting and Server Management / Rotate Object
« on March 2nd, 2015, 08:19 AM »
Description: Well I am facing problem i add objects on my server but there angel/rotation are not change how to change their angel/rotation

ScreenShot:




15
Scripting and Server Management / Cant Join Server
« on March 1st, 2015, 01:25 PM »
Description: Well i am facing very big problem that i cant join my server when i open my server and try to go in it give me error in console and get Disconnected

ScreenShots of error: Error in Console 

 and error in server


FunctionOnPlayerJoin: I Think maybe something error on player join so i put the whole onplayerjoin here
Code: [Select]
function onPlayerJoin( player )
{   
    AccInfo(player);
    local IP = player.IP;
    ePrivMessage("--> " + player.Name + " Connecting From: "+ IpToCountry( IP )+" ",player );
}