Author Topic: Let them go fishing...  (Read 636 times)

0 Members and 1 Guest are viewing this topic.

~|h?lySHit|~

  • Cheater Apprentice
  • *
  • Posts: 23
    • View Profile
Let them go fishing...
« on: June 28, 2004, 10:51:34 pm »
With this script you can let a soldier direct in front of you going fishing! A locked boat without fuel is created far away from island. The player can't do anything, but discoonect! :twisted:

Unfortunately i could not test it in online, bcs i don't know how to do in 1.96. So could someone test it for me?

init.sqs
Code: [Select]

[] exec "fishing.sqs"


fishing.sqs
Code: [Select]

?I_am_going_fishing_today : Goto "Action"
I_am_going_fishing_today = true

#ABC
@alive player
_p = player
_i = _p addaction ["!!GoFishing!!","gofishing!.sqs"]
@!alive _p
_p removeaction _i
Goto "ABC"

#Action
_t = _time + 3
_a = _this select 1
_b = getdir _a
_p = [(getpos _a select 0) + (sin (_b)*15),(getpos _a select 1) + (cos (_b)*15),0]
_v = objnull
_v = nearestobject [_p,""]
@!(isnull _v) or (_time > _t)
?_v == player or _v == vehicle player or ((handshit _v == 1) and !(canstand _v) and (getdammage _v < 0.5)): hint "No Fisher found!"; exit
hint format ["Bye, Bye, %1!",name _v]
_s = "BoatW" createvehicle [-5000,-5000,0]
_s lock true
_s setfuel 0
_v moveindriver _s
Busterbusters!