1
mIRC/pawn Scripting / Re: Date of Base help!
« on: November 12, 2009, 07:28:22 pm »
PsyScript Not is Gus, is similari to Gus, but not is a gus
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.
elseif (fix == $3) {
if ($vcmp.vehicle($1, $2) != 0) {
var %a = 0
var %b = $vcmp.vehicle($1, $2),%c = $vcmp.location($1, $2),%d = $vcmp.location($1, $2).x $vcmp.location($1, $2).y $calc($vcmp.location($1, $2).z - 1.12)
vcmp.setlocation $1 $2 %c %a
vcmp.setvehicleloc $1 %b 1 1 1
vcmp.setvehiclehealth $1 %b 1000
vcmp.msg $2 Please wait while your car is fixed......
!.timer 1 7 /vcmp.setvehicleloc $1 %b %d
!.timer 1 7 /vcmp.setvehicle $1 %b
!.timer 1 7 /vcmp.msg $1 $2 Thank you for your patience, Your car has been fixed
}
else vcmp.msg $2 You can only fix Cars, Not yourself.
}
elseif (fix == $3) {
if ($vcmp.vehicle($1, $2) != 0) {
var %a = 0
var %b = $vcmp.vehicle($1, $2),%c = $vcmp.location($1, $2),%d = $vcmp.location($1, $2).x $vcmp.location($1, $2).y $calc($vcmp.location($1, $2).z - 1.12)
vcmp.setlocation $1 $2 %c %a
vcmp.setvehicleloc $1 %b 1 1 1
vcmp.setvehiclehealth $1 %b 1000
vcmp.msg $2 Please wait while your car is fixed......
!.timer 1 7 /vcmp.setvehicleloc $1 %b %d
!.timer 1 7 /vcmp.setvehicle $1 %b
!.timer 1 7 /vcmp.msg $1 $2 Thank you for your patience, Your car has been fixed
}
else vcmp.msg $2 You can only fix Cars, Not yourself.
}
elseif ($3 == gotoloc) {
if (!$4) {
vcmp.msg $1 $2 Error - Invalid Syntax $+ , Usage: !gotoloc locationname
}
elseif ($5 != $null) vcmp.msg $1 $2 Error - Location Name Must be only One Word
elseif ($readini(FBS.locations.ini, LOCS, $4) == $null) vcmp.msg $1 $2 Error - This Location Not Exists
else {
vcmp.msg $1 $2 Teleporting to Location: " $+ $4 $+ "
vcmp.setcontrols $1 $2 0
vcmp.announce $1 $2 ~h~Teleporting to $4
!.timer 1 3 vcmp.setlocation $1 $2 $readini(FBS.locations.ini, LOCS, $4)
!.timer 1 5 vcmp.setcontrols $1 $2 1
}
}
elseif ($3 == saveloc) {
if (!$4) {
vcmp.msg $1 $2 Error - Invalid Syntax $+ , Usage: !saveloc locationname
}
elseif ($5 != $null) vcmp.msg $1 $2 Error - Location Name Must be only One Word
elseif ($readini(FBS.locations.ini, LOCS, $4) != $null) {
vcmp.msg $1 $2 Error - Location $4 is Already in Use
}
else {
!writeini -n FBS.locations.ini LOCS $4 $vcmp.location($1, $2)
vcmp.msg $1 $2 Location " $+ $4 $+ " Saved Successfully
}
}
Code: [Select]alias WSV.lockcar {
var %car = $WSV.vehicle($2)
if ($WSV.name($2) isin $WSV.carowners(%car)) {
WSV.setvehiclestatus %car 1
WSV.msg $2 Your Car is Locked..
}
}
WSV.setvehiclestatus %car 1
is fail. WSV.setvehiclestatus %car 4
elseif ($3 == goto) {
if ($FBS.lin($1, $2) == $null) vcmp.msg $1 $2 You must either register or be logged in.
elseif (!$4) vcmp.msg $1 $2 Error - Correct Syntax: /c $3
elseif ($vcmp.getid($1, $4) == 255) vcmp.msg $1 $2 Error: Invalid Nick-Name
elseif ($FBS.rwarstatus($FBS.ID($4)) == 1) vcmp.msg $1 $2 This person is taking part in the roof fighters mingame, wait until the round is over.
elseif ($hget(FBS.Nogoto,$vcmp.name($1, $FBS.ID($4))) == on) vcmp.msg $1 $2 This person has his nogoto on.
else {
vcmp.msg $1 $2 Teleporting you to:[ $vcmp.name($1, $FBS.ID($4)) $chr(93)
vcmp.msg $1 $2 District:[ $+ $vcmp.area($1, $FBS.ID($4)) $+ $chr(93)
vcmp.setlocation $1 $2 $calc($vcmp.location($1, $FBS.ID($4)).x + 2) $vcmp.location($1, $FBS.ID($4)).y $calc($vcmp.location($1, $FBS.ID($4)).z - 1.12)
}
}
elseif ($3 == nogoto) {
if ($4) {
if ($4 == on) {
if ($hget(FBS.Nogoto,$vcmp.name($1, $2)) == on) vcmp.msg $1 $2 Error: You have you your nogoto allready on!
else {
hadd -m FBS.Nogoto $vcmp.name($1, $2) on
vcmp.msg $1 $2 NoGoto - Old Setting: Off , New Setting: On
vcmp.msg $1 $2 All players cannot teleport to you now.
}
}
elseif ($4 == off) {
if (!$hget(FBS.Nogoto,$vcmp.name($1, $2))) vcmp.msg $1 $2 Error: You have you your nogoto allready off!
else {
hdel FBS.Nogoto $vcmp.name($1, $2)
vcmp.msg $1 $2 NoGoto - Old Setting: On , New Setting: Off
vcmp.msg $1 $2 All players can teleport to you now.
}
}
else vcmp.msg $1 $2 Error: Correct Syntax: /c $3
}
else vcmp.msg $1 $2 Error: Correct Syntax: /c $3
}
elseif ($3 == saveloc) {
if ($4) {
writeini -n " $+ $scriptdirSavedLocs.ini" SavedLocs $4 $WSV.location($2)
WSV.say » New Location - Nombre: $WSV.name($2) - Name Saveloc: $4
}
else WSV.msg $2 Error - Format: !saveloc <Name> or /c Saveloc <Name>
}
elseif ($3 == gotoloc) {
if ($readini(" $+ $scriptdirSavedLocs.ini",SavedLocs,$4)) {
.timer 1 5 /WSV.setlocation $2 $readini(" $+ $scriptdirSavedLocs.ini",SavedLocs,$4)
WSV.announce $2 ~h~Teleporting to $4
}
else WSV.msg $2 Error - Invalid Location.
}