论坛 › 《辐射3》 › 自动拾取物品内核汉化版，红名物品不拾取

1610109605 发表于 2024-1-14 17:52

自动拾取物品内核汉化版，红名物品不拾取

原作者帖子:https://bbs.blacksheepgame.com/thread-627293-1-1.html
在此基础上修改了判断红名物品，如果红名不拾取。
原帖的红名物品会先将权限设置为玩家所有，从而不减道德值







scn aaatcslootcontainerscript
ref ritem
ref rt2
begin gamemode
;------------------------------------   loot container
      set ritem to getfirstref 27 aaatcslootingrange
      label 10
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem.getself
                        ifrt2.getdisabled ==0
                              rt2.removeallitems aaaresetboxref
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 10               
      endif

      if getquestrunning aaatcslootitemquest ==0&& getquestrunning aaatcslootdbquest ==0 && getquestrunning aaatcslootequipquest ==0
                aaaresetboxref.activate player
      endif

      stopquest aaatcslootcontainerquest

end
scn aaatcslootdbscript
ref ritem
ref rt2
begin gamemode      
;------------------------------------   loot db
      set ritem to getfirstref 200 aaatcslootingrange
      label 10
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem.getself
                        if rt2.getdead ==1
                              rt2.removeallitems aaaresetboxref
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 10               
      endif

      if getquestrunning aaatcslootitemquest ==0 && getquestrunning aaatcslootcontainerquest==0 && getquestrunning aaatcslootequipquest ==0
                aaaresetboxref.activate player
      endif
      stopquest aaatcslootdbquest

end
scn aaatcslootitemscript
ref ritem
ref rt2
begin gamemode
;----------------------------- get book
      set ritem to getfirstref 25 aaatcslootingrange
      label 10
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.activate aaatcspickingdogref2
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 10               
      endif
;----------------------------- get med
      set ritem to getfirstref 29 aaatcslootingrange
      label 20
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.activate aaatcspickingdogref2
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 20               
      endif
;--------------------------------get Alchemy
      set ritem to getfirstref 47 aaatcslootingrange
      label 30
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.activate aaatcspickingdogref2
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 30               
      endif

;--------------------------------get misc
      set ritem to getfirstref 31 aaatcslootingrange
      label 40
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.activate aaatcspickingdogref2
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 40               
      endif

      aaatcspickingdogref2.removeallitems aaaresetboxref
      startquest aaatcslootequipquest
;=================================================== make disabled
;----------------------------- get book
      set ritem to getfirstref 25 aaatcslootingrange
      label 10
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.disable
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 10               
      endif
;----------------------------- get med
      set ritem to getfirstref 29 aaatcslootingrange
      label 20
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.disable
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 20               
      endif
;--------------------------------get Alchemy
      set ritem to getfirstref 47 aaatcslootingrange
      label 30
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.disable
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 30               
      endif

;--------------------------------get misc
      set ritem to getfirstref 31 aaatcslootingrange
      label 40
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.disable
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 40               
      endif
      stopquest aaatcslootitemquest
end
scn aaatcslootequipscript
ref ritem
ref rt2
begin gamemode
;--------------------------------get WEAPON
      set ritem to getfirstref 40 aaatcslootingrange
      label 10
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.activate aaatcspickingdogref2
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 10               
      endif
;--------------------------------get ammo
      set ritem to getfirstref 41 aaatcslootingrange
      label 20
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.activate aaatcspickingdogref2
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 20
      endif

;--------------------------------get clothing
      set ritem to getfirstref 26 aaatcslootingrange
      label 30
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.activate aaatcspickingdogref2
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 30
      endif
;--------------------------------get armor
      set ritem to getfirstref 24 aaatcslootingrange
      label 40
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.activate aaatcspickingdogref2
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 40
      endif

      aaatcspickingdogref2.removeallitems aaaresetboxref
      if getquestrunning aaatcslootcontainerquest==0 && getquestrunning aaatcslootdbquest ==0
                aaaresetboxref.activate player
      endif
      aaatcspickingdogref2.resetinventory
      

;=================================================== make disabled

;--------------------------------get WEAPON
      set ritem to getfirstref 40 aaatcslootingrange
      label 10
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.disable
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 10               
      endif
;--------------------------------get ammo
      set ritem to getfirstref 41 aaatcslootingrange
      label 20
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.disable
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 20
      endif

;--------------------------------get clothing
      set ritem to getfirstref 26 aaatcslootingrange
      label 30
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.disable
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 30
      endif
;--------------------------------get armor
      set ritem to getfirstref 24 aaatcslootingrange
      label 40
      if ritem
                if ritem.IsOffLimits player ==0
                ;如果玩家拿东西不违法，进来。否则，下一个循环。
                        set rt2 to ritem
                        if rt2.getdisabled ==0
                              rt2.disable
                        endif
                endif
                set ritem to 0
                set ritem to getnextref
                goto 40
      endif
      stopquest aaatcslootequipquest
end
**** Hidden Message *****

LAO马师徒 发表于 2024-2-19 15:09

666666666666

odtdfdsentz 发表于 2024-2-20 12:03

:):):):):):):)

尘世巨蟒 发表于 2024-2-24 15:26

谢谢分享

tcc8888 发表于 2024-2-25 07:13

121111111111

psr369 发表于 2024-3-10 12:56

谢谢分享

theway313 发表于 2024-3-13 18:17

谢谢分享最爱捡垃圾

ntzap 发表于 2024-3-14 15:26

钱钱钱钱钱钱钱钱钱钱钱钱钱钱钱钱钱钱钱

zyx1695814293 发表于 2024-3-18 00:23

666666666666

Serpent文 发表于 2024-3-18 12:17

哈哈哈哈哈哈哈哈哈哈或或

阿可萌德 发表于 2024-3-26 14:26

6666666666

mochengzhijian 发表于 2024-3-27 12:59

虽然自动拾取都还搞不明白，但是不妨碍我探索的心

renzhe123w 发表于 2024-4-3 22:20

666666666666666

lytlwf586 发表于 2024-4-10 09:34

ddddddddddd

120952325 发表于 2024-4-15 18:36

支持一下

oo08oo 发表于 2024-4-15 20:54

谢谢楼主分享

莫笑飒 发表于 2024-4-18 14:45

金将军不不不你你你你吧哈哈哈哈哈哈哈哈

q460458016 发表于 2024-4-18 16:31

1111111111111111111

Freemasonry 发表于 2024-4-19 13:20

论坛›经典游戏›《辐射》全系列›《辐射3》›自动拾取物品内核汉化版，红名物 ...›参与/回复主题

RE: 自动拾取物品内核汉化版，红名物品不拾取 [修改]

lengshan21 发表于 2024-4-19 15:51

感谢 电视剧不错 来体验一下

sugdzl 发表于 2024-4-20 14:10

11111111111111

启蒙小白 发表于 2024-4-21 17:01

1111111111111

强中自有强中手 发表于 2024-4-22 01:53

1111111111111111111

代號war10ck 发表于 2024-4-27 02:01

感谢楼主分享

gswwda 发表于 2024-4-27 22:50

55555555555555

瓦洛兰小白龙 发表于 2024-4-28 16:32

6666666666666666666666

取啥名 发表于 2024-5-1 00:29

攒劲啊攒劲

angkorman 发表于 2024-5-1 14:47

有了这个，看不见的都能捡起来...:lol

TT789 发表于 2024-5-3 23:56

谢谢分享

piouiy1 发表于 2024-5-7 19:56

66666666666

查看完整版本: 自动拾取物品内核汉化版，红名物品不拾取