Threaded Mode | Linear Mode

Satvet · 02-18-2020 06:05 PM

Can a suggestion for this?
-does the photo appear
https://imgur.com/W3DzS7Z

***Coruja*** · 02-21-2020 01:24 PM

This seems to be a custom script, are you opening the trade window using the hardcoded function "OPENTRADEWINDOW [char_uid] [item_uid]"?

Satvet · 02-21-2020 08:54 PM

CommunityPack. "Version 5.5" (sphere_house_system) I use. thy of sharing.
I click on the transfer button, says choose the person to be transferred. "TradeWindow" opens when you select the char.
When I accept it, it tells me to wait.
I use the following.

Quote:[DIALOG d_house_ownership BUTTON]
..
..
ON=22
if !(<SRC.ISGM>)
if !(<IsOwner <SRC>>)
return 1
elif (<TAG0.VENDORS>)
SRC.SYSMESSAGE @,,1 You cannot trade this house while you still have personal vendors inside.
return 1
elif (<TAG0.DEMOLITION_PENDING>)
SRC.SYSMESSAGE @,,1 This house has been marked for demolition, and it cannot be transferred.
return 1
endif
endif
SRC.DIALOGCLOSE d_house_ownership
SRC.SYSMESSAGE @,,1 Target the person to whom you wish to give this house.
SRC.TARGETF f_house_transfer <UID>

Quote:[EVENTS e_house_transfer]
ON=@TradeAccepted
DIALOGCLOSE d_house_demolish
DIALOGCLOSE d_house_ownership
for <ARGN1>
if (<REF<dLOCAL._FOR>.TYPE>==t_trade_house_deed)
UID.<REF<dLOCAL._FOR>>.TRIGGER @HouseTraded
UID.<REF<dLOCAL._FOR>>.REMOVE
endif
endfor
EVENTS=-e_house_transfer

PHP Code:

[FUNCTION f_house_transfer]
if !(<ARGO.ISPLAYER>)
    SRC.SYSMESSAGE @,,1 Only players can own a house!
    return 1
endif
REF1=<ARGS>
if (<ARGO>==<SRC>)
    SRC.SYSMESSAGE @,,1 You cannot transfer a house to yourself, silly.
    return 1
elif ((<ARGO.IsOnHouse>) || (<SRC.IsOnHouse>)) || ((<ARGO.DISTANCE <REF1>> > 2) || (<SRC.DISTANCE <REF1>> > 2))
    SRC.SYSMESSAGE @,,1 In order to transfer the house, you and the recipient must both be outside the building and within two paces of the house sign.
    return 1
elif (<ARGO.CHECK_ACCOUNT_TYPEDEF t_multi*> >= <DEF.scp.House_MaxPerAccount>)
    SRC.SYSMESSAGE @,,1 <ARGO.NAME> already have <dDEF.scp.House_MaxPerAccount> houses and can't own another one!
    return 1
elif (<DEF0.scp.House_PlaceWaitPeriod>) && (<ARGO.TAG0.House.PlacementDelay> > <SERV.TIME>)
    SRC.SYSMESSAGE @,,1 That player cannot have a house transferred to them at this time.
    ARGO.SYSMESSAGE @,,1 Number of days you will have to wait till you can have a house transfered to you: <eval (<ARGO.TAG0.House.PlacementDelay>-<SERV.TIME>)/864000>
    return 1
endif
SRC.SYSMESSAGE @,,1 Please wait while the other player verifies the transfer.
SRC.TRYSRC <ARGO> DIALOG d_house_transfer 0,<REF1>

[TYPEDEF t_trade_house_deed]
ON=@Click
MESSAGE House Transfer Contract
MESSAGE House Name: <LINK.NAME>
MESSAGE Owner: <UID.<LINK.MORE2>.NAME>
MESSAGE Location: <LINK.SEXTANTP> //<LINK.REGION.REGION.NAME> (<LINK.P>)
return 1

ON=@ClientToolTip
SRC.ADDCLILOC 1061112,<LINK.NAME>
SRC.ADDCLILOC 1061113,<UID.<LINK.MORE2>.NAME>
SRC.ADDCLILOC 1061114,<STRARG <LINK.SEXTANTP>> <STREAT <LINK.SEXTANTP>>

ON=@Timer
if (<CONT.TYPE>==t_eq_trade_window)
    TIMERF 2,trigger @Timer
else
    UID.<MORE1>.EVENTS=-e_house_transfer
    REMOVE
endif
return 1

ON=@HouseTraded
REF1=<MORE1>        //New Owner
REF2=<LINK.MORE2>    //Old Owner
REF1.EVENTS=-e_house_transfer
REF2.SYSMESSAGE @,,1 You have transferred ownership of the house.
REF1.SYSMESSAGE @,,1 You are now the owner of this house.  The house's co-owner, friend, ban, and access lists have been cleared.  You should double-check the security settings on any doors and teleporters in the house.
LINK.TAG.LastTraded=<serv.rtime.format %d>-<serv.rtime.format %m>-<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>
LINK.MORE2=<REF1>
LINK.LINK.MORE1=<REF1>
for <eval <REF2.COUNT>-1> 0
    if (<REF2.FINDCONT.<LOCAL._FOR>.LINK>==<LINK.LINK>)
        REF2.FINDCONT.<dLOCAL._FOR>.CONT=<REF1>
    endif
endfor
for 1 3
    ARGS=<LINK.HouseAccessList <LOCAL._FOR>>
    for x <LINK.TAG0.Access.Total.<LOCAL._FOR>>
        if !(<isempty <ARGV[<dLOCAL.X>]>>)
            UID.<ARGV[<dLOCAL.X>]>.NOTICE You got removed from the <DEF.Access_<LOCAL._FOR>> list of the house '<LINK.NAME>' because it was been traded to a new owner on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
        endif
    endfor
endfor
if !(<REF1.ISGM>) && (<DEF0.scp.House_PlaceWaitPeriod>)
    REF1.TAG.House.PlacementDelay=<eval <SERV.TIME>+(<DEF0.scp.House_PlaceWaitPeriod>*864000)+36000>
endif
LINK.CLEARTAGS Access 

***Coruja*** · 02-22-2020 10:22 AM

I can't find the code that open the trade window, maybe it should be under dialog d_house_transfer

But as I recall this is a really old script made before OPENTRADEWINDOW got created, so it open the trade window using an workaround to create the trade window container and equip it manually on char, so you must find this code and replace it with OPENTRADEWINDOW [char_uid] [item_uid]

Satvet · 02-27-2020 06:12 PM

I couldn't find solution, will you be able to help?

***Coruja*** · 02-28-2020 04:55 PM

I was about to request you this script to take a look, but then I realized that this code seems to be like a script that I made about a decade ago, I found a old copy here and it is exactly what I thought lol

This script have a workaround function to manually open the trade window creating a t_eq_trade_window container to equip it on char and use SENDPACKET to open the gump. But this is not needed anymore because now this can be done using OPENTRADEWINDOW function. I don't remember the name of this old workaround function (maybe [FUNCTION TradeWindow] or something like this) but you must delete it from the script and use OPENTRADEWINDOW instead

Code:

[DIALOG d_house_transfer BUTTON]

ON=0 1

REF1=<CTAG0.HOUSE.TRANSFER>

CTAG0.HOUSE.TRANSFER=

IF (<ARGN>==1)

  ...

  SERV.NEWITEM i_deed

  NEW.ATTR=attr_move_never

  NEW.COLOR=0480

  NEW.LINK=<REF1>

  NEW.MORE1=<SRC>

  NEW.TYPE=t_trade_house_deed

  OPENTRADEWINDOW <SRC>,<NEW>      // <-------

ENDIF

Satvet · 03-05-2020 03:16 AM

thx. good working now

Threaded Mode \| Linear Mode home cannot be transferred
Author	Message