分享一个给生产系和制作系声望的脚本

象跋

我设置的生产经验是20倍，经常卡声望，又不想调GM程序加声望，于是写了个拿道具换声望的脚本。4个采集是用4级采集品交换，武器和防具生产分别用4级武器和4级防具换声望。目前只针对见习，正职的以后再说。
block
window"@c\n\n你好，我来检查生产和采集系是否符合赞赏。",next
window"@c\n\n当你给予我适当生产物品，我玩会帮助你获得足够提升职业等级的声望。如果你不是生产或者采集系我是无法服务的。",ok,cancel

#检查到见习采集职业提问
Window_ok Job == 461 || job == 451 || job == 471 || job == 1011
window"@c\n\n你好见习的采集者，我需要20个纯银、20个芹菜、20个鸡肉、20个竹笋、20个海苔、20个竹夹鱼、20个铁杉、20个果梨、20个棉花，如果你给我这些采集品，我会发动我的小伙伴帮你增加一些声望。这么好的事，你要不要考虑一下呢？",yes,no
window no
endwindow"@c\n\n不勉强，你可以再考虑一下。"
#当采集品数量不足，不给于通过
window yes item 9603 < 20 || item 12000 < 20 || item 11201 < 20 || item 12003 < 20 || item 12407 < 20 || item 11601< 20 || item 10003 < 20 || item 12803 < 20 || item 40741 < 20  
endwindow"@c\n\n我要的采集品数量不够，你需要再多做些准备。"
#当采集品数量足够，继续后面的对话
window yes item 9603 >= 20 && item 12000 >=20 && item 11201 >=20 && item 12003 >=20 && item 12407 >=20 && item 11601 >=20 && item 10003 >=20 && item 12803 >=20 && item 40741 >=20
window"@c\n\n哇！你真收集到这些物资了！你愿意用这些采集品和3000金币换取晋级所需的声望么？",yes,no
window no
endwindow"@c\n\n你可以再考虑一下。"
#检查身上是否足够有3000金币
window yes gold < 3000
endwindow"@c\n\n你钱不够，我不能免费发动小伙伴们传播你的功绩。"
window yes gold >= 3000
addgold -3000
killitem 9603,20
killitem 12000,20
killitem 11201,20
killitem 12003,20
killitem 12407,20
killitem 10003,20
killitem 12803,20
killitem 40741,20
killitem 11601,20
setplayer fame = 3001
endwindow"@c\n\n你的能力已经满城皆知了，我想现在你的的声望已经足够晋级成为正式采集员了。"

#检查到见习厨师和见习药剂师职业提问
Window_ok Job == 351 || job == 361
window"@c\n\n你好见习的消耗品制作者，我需要1个烧鸡、1个生命力恢复药（250），如果你给我这些消耗品，我会发动我的小伙伴帮你增加一些声望。这么好的事，你要不要考虑一下呢？",yes,no
window no
endwindow"@c\n\n不勉强，你可以再考虑一下。"
#当消耗数量不足，不给于通过
window yes item 15207 < 1 || item 15609 < 1
endwindow"@c\n\n我要的消耗品数量不够，你需要再多做些准备。"
#当消耗品数量足够，继续后面的对话
window yes item 15207 >= 1 && item 15609 >=1
window"@c\n\n哇！你真收集到这些物资了！你愿意用这些消耗品和3000金币换取晋级所需的声望么？",yes,no
window no
endwindow"@c\n\n你可以再考虑一下。"
#检查身上是否足够有3000金币
window yes gold < 3000
endwindow"@c\n\n你钱不够，我不能免费发动小伙伴们传播你的功绩。"
window yes gold >= 3000
addgold -3000
killitem 15207,1
killitem 15609,1
setplayer fame = 3001
endwindow"@c\n\n你的能力已经满城皆知了，我想现在你的的声望已经足够晋级成为正式采集员了。"

#检查到见习武器生产职业提问
Window_ok Job == 201 || job == 211 || job == 221 || job == 231 || job == 241 || job == 251 || job == 261
window"@c\n\n你好见习的武器生产者，我需要1个双刃长剑、1个长战斧、1个穗枪、1个狙击之弓、1个贤者手杖、1个耳柄小刀、1个狮子回力镖，如果你给我这些武器，我会发动我的小伙伴帮你增加一些声望。这么好的事，你要不要考虑一下呢？",yes,no
window no
endwindow"@c\n\n不勉强，你可以再考虑一下。"
#当武器数量不足，不给于通过
window yes item 37 < 1 || item 830 < 1 || item 1635 < 1 || item 2035 < 1 || item 2447 < 1 || item 3230 < 1 || item 2834 < 1
endwindow"@c\n\n我要的武器数量不够，你需要再多做些准备。"
#当武器数量足够，继续后面的对话
window yes item 37 >= 1 && item 830 >= 1 && item 1635 >= 1 && item 2035 >= 1 && item 2447 >= 1 && item 3230 >= 1 && item 2834 >= 1
window"@c\n\n哇！你真收集到这些物资了！你愿意用这些武器和3000金币换取晋级所需的声望么？",yes,no
window no
endwindow"@c\n\n你可以再考虑一下。"
#检查身上是否足够有3000金币
window yes gold < 3000
endwindow"@c\n\n你钱不够，我不能免费发动小伙伴们传播你的功绩。"
window yes gold >= 3000
addgold -3000
killitem 37,1
killitem 830,1
killitem 1635,1
killitem 2035,1
killitem 2447,1
killitem 3230,1
killitem 2834,1
setplayer fame = 3001
endwindow"@c\n\n你的能力已经满城皆知了，我想现在你的的声望已经足够晋级成为正式武器生产者了。"


#检查到见习防具生产职业提问
Window_ok Job == 271 || job == 281 || job == 291 || job == 301 || job == 312 || job == 321 || job == 331 || job == 341
window"@c\n\n你好见习的防具生产者，我需要1个霸葛头盔、1个时髦帽子、1个钢铁铠甲、1个布甲、1个乌鸦之袍、1个锁炼长靴、1个薄板鞋、1个士兵盾，如果你给我这些武器，我会发动我的小伙伴帮你增加一些声望。这么好的事，你要不要考虑一下呢？",yes,no
window no
endwindow"@c\n\n不勉强，你可以再考虑一下。"
#当防具数量不足，不给于通过
window yes item 3632 < 1 || item 4032 < 1 || item 4430 < 1 || item 4408 < 1 || item 5233 < 1 || item 5630 < 1 || item 6033 < 1 || item 6437 < 1
endwindow"@c\n\n我要的防具数量不够，你需要再多做些准备。"
#当防具数量足够，继续后面的对话
window yes item 3632 >= 1 && item 4032 >= 1 && item 4430 >= 1 && item 4408 >= 1 && item 5233 >= 1 && item 5630 >= 1 && item 6033 >= 1 && item 6437 >= 1
window"@c\n\n哇！你真收集到这些物资了！你愿意用这些防具和3000金币换取晋级所需的声望么？",yes,no
window no
endwindow"@c\n\n你可以再考虑一下。"
#检查身上是否足够有3000金币
window yes gold < 3000
endwindow"@c\n\n你钱不够，我不能免费发动小伙伴们传播你的功绩。"
window yes gold >= 3000
addgold -3000
killitem 3632,1
killitem 4032,1
killitem 4430,1
killitem 4408,1
killitem 5233,1
killitem 5630,1
killitem 6033,1
killitem 6437,1
setplayer fame = 3001
endwindow"@c\n\n你的能力已经满城皆知了，我想现在你的的声望已经足够晋级成为正式防具生产者了。"