<![CDATA[SphereCommunity - Script Submissions]]> https://forum.spherecommunity.net/ Wed, 22 Apr 2026 16:09:43 +0000 MyBB <![CDATA[[CORE][FIX] GMPageDelete - Missing Catch for Clients without Chars]]> https://forum.spherecommunity.net/Thread-CORE-FIX-GMPageDelete-Missing-Catch-for-Clients-without-Chars Mon, 04 Nov 2019 16:09:27 +0100 https://forum.spherecommunity.net/Thread-CORE-FIX-GMPageDelete-Missing-Catch-for-Clients-without-Chars I don't know if this is the correct place but i want to share a Fix, which was missed after <SERV.CLIENT.x> behavior was updated. After "Page" function gained a
revised version, there is a subroutine called "[FUNCTION GMPageDelete]". While walking trough the online clients, it will now try to find the uid clients like telnet logins. It cant, of course. So there is a small fix to be added, and no forther errors will show up.

ORIGINAL:

Code:
[FUNCTION GMPageDelete]
SERV.GMPAGE.<ARGS>.DELETE
CTAG.Dialog.GMPage.Selected=

IF (<SERV.CLIENTS>)

FOR 0 <eval <SERV.CLIENTS>-1>

  REF1=<SERV.CLIENT.<LOCAL._FOR>.UID>
  IF !(<isempty <REF1.CTAG.Dialog.GMPage.Selected>>)
   IF (<REF1.CTAG0.Dialog.GMPage.Selected> > <ARGS>)
    REF1.CTAG0.Dialog.GMPage.Selected --
   ELIF (<REF1.CTAG0.Dialog.GMPage.Selected> == <ARGS>)
    REF1.SYSMESSAGE @035 GM page cleared from queue
    REF1.CTAG.Dialog.GMPage.Selected=
    REF1.SDIALOG d_gmpage_queue
   ENDIF
  ELIF (<REF1.ISDIALOGOPEN.d_gmpage_queue>)
   REF1.DIALOGCLOSE d_gmpage_queue
   REF1.SDIALOG d_gmpage_queue
  ENDIF

ENDFOR

ENDIF


FIXED:
Code:
[FUNCTION GMPageDelete]
SERV.GMPAGE.<ARGS>.DELETE
CTAG.Dialog.GMPage.Selected=

IF (<SERV.CLIENTS>)

FOR 0 <eval <SERV.CLIENTS>-1>

IF (<SERV.CLIENT.<LOCAL._FOR>>)

  REF1=<SERV.CLIENT.<LOCAL._FOR>.UID>
  IF !(<isempty <REF1.CTAG.Dialog.GMPage.Selected>>)
   IF (<REF1.CTAG0.Dialog.GMPage.Selected> > <ARGS>)
    REF1.CTAG0.Dialog.GMPage.Selected --
   ELIF (<REF1.CTAG0.Dialog.GMPage.Selected> == <ARGS>)
    REF1.SYSMESSAGE @035 GM page cleared from queue
    REF1.CTAG.Dialog.GMPage.Selected=
    REF1.SDIALOG d_gmpage_queue
   ENDIF
  ELIF (<REF1.ISDIALOGOPEN.d_gmpage_queue>)
   REF1.DIALOGCLOSE d_gmpage_queue
   REF1.SDIALOG d_gmpage_queue
  ENDIF
  
  ENDIF
  
ENDFOR

ENDIF
]]> I don't know if this is the correct place but i want to share a Fix, which was missed after <SERV.CLIENT.x> behavior was updated. After "Page" function gained a
revised version, there is a subroutine called "[FUNCTION GMPageDelete]". While walking trough the online clients, it will now try to find the uid clients like telnet logins. It cant, of course. So there is a small fix to be added, and no forther errors will show up.

ORIGINAL:

Code:
[FUNCTION GMPageDelete]
SERV.GMPAGE.<ARGS>.DELETE
CTAG.Dialog.GMPage.Selected=

IF (<SERV.CLIENTS>)

FOR 0 <eval <SERV.CLIENTS>-1>

  REF1=<SERV.CLIENT.<LOCAL._FOR>.UID>
  IF !(<isempty <REF1.CTAG.Dialog.GMPage.Selected>>)
   IF (<REF1.CTAG0.Dialog.GMPage.Selected> > <ARGS>)
    REF1.CTAG0.Dialog.GMPage.Selected --
   ELIF (<REF1.CTAG0.Dialog.GMPage.Selected> == <ARGS>)
    REF1.SYSMESSAGE @035 GM page cleared from queue
    REF1.CTAG.Dialog.GMPage.Selected=
    REF1.SDIALOG d_gmpage_queue
   ENDIF
  ELIF (<REF1.ISDIALOGOPEN.d_gmpage_queue>)
   REF1.DIALOGCLOSE d_gmpage_queue
   REF1.SDIALOG d_gmpage_queue
  ENDIF

ENDFOR

ENDIF


FIXED:
Code:
[FUNCTION GMPageDelete]
SERV.GMPAGE.<ARGS>.DELETE
CTAG.Dialog.GMPage.Selected=

IF (<SERV.CLIENTS>)

FOR 0 <eval <SERV.CLIENTS>-1>

IF (<SERV.CLIENT.<LOCAL._FOR>>)

  REF1=<SERV.CLIENT.<LOCAL._FOR>.UID>
  IF !(<isempty <REF1.CTAG.Dialog.GMPage.Selected>>)
   IF (<REF1.CTAG0.Dialog.GMPage.Selected> > <ARGS>)
    REF1.CTAG0.Dialog.GMPage.Selected --
   ELIF (<REF1.CTAG0.Dialog.GMPage.Selected> == <ARGS>)
    REF1.SYSMESSAGE @035 GM page cleared from queue
    REF1.CTAG.Dialog.GMPage.Selected=
    REF1.SDIALOG d_gmpage_queue
   ENDIF
  ELIF (<REF1.ISDIALOGOPEN.d_gmpage_queue>)
   REF1.DIALOGCLOSE d_gmpage_queue
   REF1.SDIALOG d_gmpage_queue
  ENDIF
  
  ENDIF
  
ENDFOR

ENDIF
]]> <![CDATA[Walking Dead (tv) type zombies]]> https://forum.spherecommunity.net/Thread-Walking-Dead-tv-type-zombies Thu, 10 May 2018 18:14:03 +0200 https://forum.spherecommunity.net/Thread-Walking-Dead-tv-type-zombies
0.56d version using newest version of old client.

PHP Code:
/////////////////////////////////////////////////////////////////////////////////
////  Zombie Infection script
////    by Capes 2018-5-10
/////////////////////////////////////////////////////////////////////////////////
[COMMENT zombie_infection_info]
An infected zombie 
    - moves faster
    - npc's & player's hit by them must pass a 50% check else they become infected (A permanent buff).
    - when that npc/player dies it's corpse becomes an infected zombie, with all the inventory on them
    - once infected there is no cure
    - dropping a lit torch on an infected corpse will destroy this infection

[DEFNAME infection_settings]
CORPSE_to_ZOMBIE_delay = 120 //2 mins
INFECTION_rate = 10    //10 secs
INFECTION_chance = 50 //% 1-100

/////////////////////////////////////////////////////////////////////////////////    
[EVENTS e_zInfection]    
ON=@Timer
    //not infected quit
    if !(<src.tag0._is_infected>)
        return
    endif
    //inform player their rotting away
    src.sysmessage @33 Your flesh is rotting!
    
    //we are infected so slowly take 10 damage (player starts to turn)
    src.damage= 10 (<DEF.dam_poison>)
    
    //run timer again
    src.timerf <def.INFECTION_rate> f_infection_timer
    
ON=@Hit
    //only run if this is an infected zombie
    if !(<defname>==c_infected_zombie)
        return
    endif
    
    //if target already infected quit
    if (<src.tag0._is_infected>)
        return
    endif
    
    //disease check else infect them
    if (<eval RAND(100)+1> <= <def.INFECTION_chance>)
        return
    endif
    
    //set infected flag
    src.tag0._is_infected = 1
    
    //add infected event
    src.events +e_zInfection
    src.sysmessage @30 You have been infected.
    
    //add buf icon if player
    if (<src.isplayer>)
        src.addbuff 1017,3010160,1053096,0,
    endif
    
    //start timer for rotting
    src.timerf <def.INFECTION_rate> f_infection_timer
    
ON=@DeathCorpse 
    //quit if c_infected_zombie
    if (<defname>==c_infected_zombie)
        return
    end
    
    //we died while infected so turn corpse into zombie in x amount of time
    argo.timerf <def.CORPSE_to_ZOMBIE_delay> f_turn_to_infected <src.name>
    
    //remove this infection from player
    src.events -e_zInfection
    src.tag0._is_infected =
    
    //remove buf icon if player
    if (<src.isplayer>)
        src.removebuff 1017
    endif
    
    //remove f_infection_timer
    src.timerf STOP,f_infection_timer

ON=@Logout
    //we are infected and logging out
        //stop timer
    timerf STOP,f_infection_timer
    
ON=@Login 
    //since this is triggering, we are infected and loging in
        //add the infection buf & fire timer if not present
    addbuff 1017,3010160,1053096,0,
    timerf <def.INFECTION_rate> f_infection_timer

/////////////////////////////////////////////////////////////////////////////////
[FUNCTION f_turn_to_infected]    
    //we died while infected so turn corpse into infected zombie
        //transfer all possessions & name to new zombie
    SERV.newnpc c_infected_zombie
    new.name = The infected corpse of <args>
    new.p = <p>
    FORCONT <uid> 0  //we don't need to search in the subcontainers, just grab them.
        //serv.log <name>
            new.bounce <uid>
    ENDFOR
    //remove corpse
    remove
    new.updatex
    
/////////////////////////////////////////////////////////////////////////////////    
[FUNCTION f_infection_timer]
    I.trigger @timer
    
    

/////////////////////////////////////////////////////////////////////////////////        
[CHARDEF c_infected_zombie]
ID=c_zombie
NAME=infected zombie
ICON=i_pet_zombie
SOUND=snd_monster_zombie1
CAN=MT_WALK|MT_RUN
DAM=3,7
ARMOR=18
DESIRES=r_graveyards,t_coin,t_gold,t_gem,t_potion
AVERSIONS=t_trap,r_civilization
RESOURCES=1 i_reag_bone
TAG.SlayerGroup=UNDEAD
TEVENTS=e_undead
TEVENTS=e_carnivores
TEVENTS=e_zInfection
MOVERATE={180 240}
CATEGORY=Monsters
SUBSECTION=Undead
DESCRIPTION=Zombie
ON=@Create
   NPC=brain_monster
   FAME=600
   KARMA=-600
   STR={45 70}
   DEX={30 50}
   INT={25 40}
   MAXHITS={30 45}
   WRESTLING={35.1 50.0}
   TACTICS={35.1 50.0}
   MAGICRESISTANCE={15.1 40.0}
   RESPHYSICAL={15 20}
   RESFIRE=0
   RESCOLD={20 30}
   RESPOISON={5 10}
   RESENERGY=0
ON=@NPCRestock
   //ITEM=loot_zombie    
    
/////////////////////////////////////////////////////////////////////////////////    
[ITEMDEF 0a12]
DEFNAME=i_torch_lit
TYPE=t_light_lit
TDATA3=i_torch
FLIP=1
CATEGORY=Decoration - Lightsources
SUBSECTION=Torches
DESCRIPTION=Torch (Lit)
DUPELIST=0a13,0a14
ON=@Create
   MOREZ=2
ON=@DropOn_Item 

    //set corpse on fire & remove infection if any
    if (<argo.baseid> == i_corpse) 
    
        //place fire effect & play sound
        serv.newitem i_fire
        new.p = <argo.p>
        new.attr = 08010
        new.timerf 10,remove
        sfx 054
        
        //turn corpse black (charring)
        argo.color = 1899
        argo.timerf STOP,f_turn_to_infected
        
        //add scorch marks
        serv.newitem 0f34
        new.name = scorch marks
        new.attr = 08010
        new.color = 1
        new.p = <argo.p>
        new.timerf 20,remove
        
        src.sysmessage You burn the corpse.
        return 1
    endif 

Capes]]>
0.56d version using newest version of old client.

PHP Code:
/////////////////////////////////////////////////////////////////////////////////
////  Zombie Infection script
////    by Capes 2018-5-10
/////////////////////////////////////////////////////////////////////////////////
[COMMENT zombie_infection_info]
An infected zombie 
    - moves faster
    - npc's & player's hit by them must pass a 50% check else they become infected (A permanent buff).
    - when that npc/player dies it's corpse becomes an infected zombie, with all the inventory on them
    - once infected there is no cure
    - dropping a lit torch on an infected corpse will destroy this infection

[DEFNAME infection_settings]
CORPSE_to_ZOMBIE_delay = 120 //2 mins
INFECTION_rate = 10    //10 secs
INFECTION_chance = 50 //% 1-100

/////////////////////////////////////////////////////////////////////////////////    
[EVENTS e_zInfection]    
ON=@Timer
    //not infected quit
    if !(<src.tag0._is_infected>)
        return
    endif
    //inform player their rotting away
    src.sysmessage @33 Your flesh is rotting!
    
    //we are infected so slowly take 10 damage (player starts to turn)
    src.damage= 10 (<DEF.dam_poison>)
    
    //run timer again
    src.timerf <def.INFECTION_rate> f_infection_timer
    
ON=@Hit
    //only run if this is an infected zombie
    if !(<defname>==c_infected_zombie)
        return
    endif
    
    //if target already infected quit
    if (<src.tag0._is_infected>)
        return
    endif
    
    //disease check else infect them
    if (<eval RAND(100)+1> <= <def.INFECTION_chance>)
        return
    endif
    
    //set infected flag
    src.tag0._is_infected = 1
    
    //add infected event
    src.events +e_zInfection
    src.sysmessage @30 You have been infected.
    
    //add buf icon if player
    if (<src.isplayer>)
        src.addbuff 1017,3010160,1053096,0,
    endif
    
    //start timer for rotting
    src.timerf <def.INFECTION_rate> f_infection_timer
    
ON=@DeathCorpse 
    //quit if c_infected_zombie
    if (<defname>==c_infected_zombie)
        return
    end
    
    //we died while infected so turn corpse into zombie in x amount of time
    argo.timerf <def.CORPSE_to_ZOMBIE_delay> f_turn_to_infected <src.name>
    
    //remove this infection from player
    src.events -e_zInfection
    src.tag0._is_infected =
    
    //remove buf icon if player
    if (<src.isplayer>)
        src.removebuff 1017
    endif
    
    //remove f_infection_timer
    src.timerf STOP,f_infection_timer

ON=@Logout
    //we are infected and logging out
        //stop timer
    timerf STOP,f_infection_timer
    
ON=@Login 
    //since this is triggering, we are infected and loging in
        //add the infection buf & fire timer if not present
    addbuff 1017,3010160,1053096,0,
    timerf <def.INFECTION_rate> f_infection_timer

/////////////////////////////////////////////////////////////////////////////////
[FUNCTION f_turn_to_infected]    
    //we died while infected so turn corpse into infected zombie
        //transfer all possessions & name to new zombie
    SERV.newnpc c_infected_zombie
    new.name = The infected corpse of <args>
    new.p = <p>
    FORCONT <uid> 0  //we don't need to search in the subcontainers, just grab them.
        //serv.log <name>
            new.bounce <uid>
    ENDFOR
    //remove corpse
    remove
    new.updatex
    
/////////////////////////////////////////////////////////////////////////////////    
[FUNCTION f_infection_timer]
    I.trigger @timer
    
    

/////////////////////////////////////////////////////////////////////////////////        
[CHARDEF c_infected_zombie]
ID=c_zombie
NAME=infected zombie
ICON=i_pet_zombie
SOUND=snd_monster_zombie1
CAN=MT_WALK|MT_RUN
DAM=3,7
ARMOR=18
DESIRES=r_graveyards,t_coin,t_gold,t_gem,t_potion
AVERSIONS=t_trap,r_civilization
RESOURCES=1 i_reag_bone
TAG.SlayerGroup=UNDEAD
TEVENTS=e_undead
TEVENTS=e_carnivores
TEVENTS=e_zInfection
MOVERATE={180 240}
CATEGORY=Monsters
SUBSECTION=Undead
DESCRIPTION=Zombie
ON=@Create
   NPC=brain_monster
   FAME=600
   KARMA=-600
   STR={45 70}
   DEX={30 50}
   INT={25 40}
   MAXHITS={30 45}
   WRESTLING={35.1 50.0}
   TACTICS={35.1 50.0}
   MAGICRESISTANCE={15.1 40.0}
   RESPHYSICAL={15 20}
   RESFIRE=0
   RESCOLD={20 30}
   RESPOISON={5 10}
   RESENERGY=0
ON=@NPCRestock
   //ITEM=loot_zombie    
    
/////////////////////////////////////////////////////////////////////////////////    
[ITEMDEF 0a12]
DEFNAME=i_torch_lit
TYPE=t_light_lit
TDATA3=i_torch
FLIP=1
CATEGORY=Decoration - Lightsources
SUBSECTION=Torches
DESCRIPTION=Torch (Lit)
DUPELIST=0a13,0a14
ON=@Create
   MOREZ=2
ON=@DropOn_Item 

    //set corpse on fire & remove infection if any
    if (<argo.baseid> == i_corpse) 
    
        //place fire effect & play sound
        serv.newitem i_fire
        new.p = <argo.p>
        new.attr = 08010
        new.timerf 10,remove
        sfx 054
        
        //turn corpse black (charring)
        argo.color = 1899
        argo.timerf STOP,f_turn_to_infected
        
        //add scorch marks
        serv.newitem 0f34
        new.name = scorch marks
        new.attr = 08010
        new.color = 1
        new.p = <argo.p>
        new.timerf 20,remove
        
        src.sysmessage You burn the corpse.
        return 1
    endif 

Capes]]> <![CDATA[Respawning Loot]]> https://forum.spherecommunity.net/Thread-Respawning-Loot Fri, 20 Apr 2018 18:04:13 +0200 https://forum.spherecommunity.net/Thread-Respawning-Loot
PHP Code:
[DEFNAME respawning_loot_settings]
RESPAWN_CUSTOM_LOOT_TIME = 10 //secs

/////////////////////////////////////////////////////
////     EVENTS/TYPEDEF e_eventhandler_respawn_loot
////    -our event handler for ON=@ PickUp_Self/DropOn_Self/TIMER
////    @ PickUp_Self - checks contents of container, when empty use TIMERF to call f_loopback_timer to trigger our @Timer event
////    @ DropOn_Self - prevents adding items to the container
////    @ TIMER - if container empty calls f_Load_Loot passing in a list created from TAG.loot
/////////////////////////////////////////////////////
[TYPEDEF e_eventhandler_respawn_loot]    //loot handler
ON=@PickUp_Self
    //when an item is removed from container reset our timer
    //we have -1 because COUNT still considers the current object to still be in the container
    IF ((<I.COUNT> - 1)== 0)    //only fire if no other items are left
        TIMERF <dDEF.RESPAWN_CUSTOM_LOOT_TIME> f_loopback_timer      
    ENDIF
    UPDATE

ON=@DropOn_Self
    //prevent droping things into this container
        return 1

ON=@TIMER
    //if container is empty add new loot based on stored template(s) above or previous
    IF (<I.COUNT> == 0)
        //turn TAG.loot into a list then pass into function
        //    f_Load_Loot expects a list
            f_Load_Loot <EXPLODE +,<TAG.loot>>    
    ENDIF

/////////////////////////////////////////////////////
////     FUNCTION f_loopback_timer
////    -loopback to call @TIMER
////    -without this loopback, timers that reach zero will auto decay the object.
////        If that item is static -> error object timer elapsed without decay
////        error is thrown.  This prevents that error.
/////////////////////////////////////////////////////
[FUNCTION f_loopback_timer]
    //call this items TIMER event
    I.TRIGGER @TIMER

/////////////////////////////////////////////////////
//// FUNCTION f_Load_Loot <args>
////    Param <args> - must be a list
//// -takes a list of items and adds each item to the calling container's contents
//// -updates nearby clients so tooltip shows correctly
/////////////////////////////////////////////////////
[FUNCTION f_Load_Loot]
    //a list is passed in, loop through and add each item
    FOR 0 <EVAL (<ARGV> - 1)> 
            SERV.NEWITEM <ARGV[<LOCAL._FOR>]>
        NEW.CONT=<UID>
    ENDFOR
    UPDATE

/////////////////////////////////////////////////////
//// ITEM i_metal_chest_rloot 
/////////////////////////////////////////////////////
[ITEMDEF i_metal_chest_rloot]    //A - our item ref
ID = i_chest_metal                //B - what our item looks & feels like
TAG.loot = poor_gold_pile+poor_pouch    //C - the loot this item respawns, can have mutiple items seperated by a +
ON=@Create
    EVENTS +e_eventhandler_respawn_loot
    I.TRIGGER @TIMER 

Now define your own containers.
Try .add i_metal_chest_rloot then .set attr=08010 so no one walks away with it.


I'm currently writing a script for respawning loot & relocking containers using a gump. I'll post the whole script when its done.

Capes]]>
PHP Code:
[DEFNAME respawning_loot_settings]
RESPAWN_CUSTOM_LOOT_TIME = 10 //secs

/////////////////////////////////////////////////////
////     EVENTS/TYPEDEF e_eventhandler_respawn_loot
////    -our event handler for ON=@ PickUp_Self/DropOn_Self/TIMER
////    @ PickUp_Self - checks contents of container, when empty use TIMERF to call f_loopback_timer to trigger our @Timer event
////    @ DropOn_Self - prevents adding items to the container
////    @ TIMER - if container empty calls f_Load_Loot passing in a list created from TAG.loot
/////////////////////////////////////////////////////
[TYPEDEF e_eventhandler_respawn_loot]    //loot handler
ON=@PickUp_Self
    //when an item is removed from container reset our timer
    //we have -1 because COUNT still considers the current object to still be in the container
    IF ((<I.COUNT> - 1)== 0)    //only fire if no other items are left
        TIMERF <dDEF.RESPAWN_CUSTOM_LOOT_TIME> f_loopback_timer      
    ENDIF
    UPDATE

ON=@DropOn_Self
    //prevent droping things into this container
        return 1

ON=@TIMER
    //if container is empty add new loot based on stored template(s) above or previous
    IF (<I.COUNT> == 0)
        //turn TAG.loot into a list then pass into function
        //    f_Load_Loot expects a list
            f_Load_Loot <EXPLODE +,<TAG.loot>>    
    ENDIF

/////////////////////////////////////////////////////
////     FUNCTION f_loopback_timer
////    -loopback to call @TIMER
////    -without this loopback, timers that reach zero will auto decay the object.
////        If that item is static -> error object timer elapsed without decay
////        error is thrown.  This prevents that error.
/////////////////////////////////////////////////////
[FUNCTION f_loopback_timer]
    //call this items TIMER event
    I.TRIGGER @TIMER

/////////////////////////////////////////////////////
//// FUNCTION f_Load_Loot <args>
////    Param <args> - must be a list
//// -takes a list of items and adds each item to the calling container's contents
//// -updates nearby clients so tooltip shows correctly
/////////////////////////////////////////////////////
[FUNCTION f_Load_Loot]
    //a list is passed in, loop through and add each item
    FOR 0 <EVAL (<ARGV> - 1)> 
            SERV.NEWITEM <ARGV[<LOCAL._FOR>]>
        NEW.CONT=<UID>
    ENDFOR
    UPDATE

/////////////////////////////////////////////////////
//// ITEM i_metal_chest_rloot 
/////////////////////////////////////////////////////
[ITEMDEF i_metal_chest_rloot]    //A - our item ref
ID = i_chest_metal                //B - what our item looks & feels like
TAG.loot = poor_gold_pile+poor_pouch    //C - the loot this item respawns, can have mutiple items seperated by a +
ON=@Create
    EVENTS +e_eventhandler_respawn_loot
    I.TRIGGER @TIMER 

Now define your own containers.
Try .add i_metal_chest_rloot then .set attr=08010 so no one walks away with it.


I'm currently writing a script for respawning loot & relocking containers using a gump. I'll post the whole script when its done.

Capes]]> <![CDATA[Fishing - net & lobster traps]]> https://forum.spherecommunity.net/Thread-Fishing-net-lobster-traps Tue, 17 Apr 2018 19:44:47 +0200 https://forum.spherecommunity.net/Thread-Fishing-net-lobster-traps


PHP Code:
//////////////////////////////////////////////////////////////////////////////////////////////
///////       Fishing - net & lobster traps
///////     By: Capes last modified - 2018-04-17 0.56d
//////////////////////////////////////////////////////////////////////////////////////////////
[TEMPLATE random_fish]
ITEM={i_fish_big_1 1 i_fish_big_2 1 i_fish_big_3 1 i_fish_big_4 1 i_fish_small 1 0dd7 1 0dd8 1 0dd9 1 random_cannibalized_fish 1 random_special_fish 1 0dba 1 0dbb 1}

[TEMPLATE random_special_fish]
ITEM={i_fish_makoto_courtesan_fish 1 i_fish_minoc_blue 1 i_fish_britain_crown_fish 1 i_fish_red_dart_fish 1 i_fish_small_mouth_sucker_fin 1 i_fish_fandancer 1 i_fish_golden_broadtail 1 i_fish_albino_courtesan_fish 1 i_fish_spined_scratcher_fish 1 i_fish_nujelm_honey 1 i_fish_yellow_fin_bluebelly 1 i_fish_vesper_reef_tiger 1 i_fish_spotted_bucaneer 1 i_fish_stripped_flake_fish 1}

[TEMPLATE random_cannibalized_fish]
ITEM={03b0c 1 i_fish_raw_whole 1 i_fish_raw_headless 1 i_fish_raw_head}

[TEMPLATE random_crustacean]
ITEM={i_fish_crab 1 044d2 1 i_fish_lobster 1 044d4 1 i_seahorse 1 i_shrimp_brine 1 i_jellyfish 1 i_crab_speckled 1 i_shrimp 1}


//////////////////////////////////////////////////////////////////////////////////////////////
///////       Items - i_net/i_lobster_cage/i_rope
//////////////////////////////////////////////////////////////////////////////////////////////
//fishing net
[ITEMDEF 01ea3]
DEFNAME=i_net
NAME=Fishing Net
FLIP=1
WEIGHT=50.0
VALUE=65
RESOURCES=10 i_rope,10 i_thread,8 i_fishing_weight,1 i_sewing_kit
SKILLMAKE=Tailoring 50.0,Tinkering 30.0,t_tinker_tools
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Weighted Fishing Net
DUPELIST=01ea4,01ea5,01ea6,03d8e,03d8f
ON=@Create
    UsesMax=25
    TAG._bait_type = t_meat_raw
    TAG0._bait_skill_difficulty = 30
    TAG._sea_critter_catch_difficulty = 50
    TAG0._max_catch = 6
    TAG._sea_critters = random_fish
    EVENTs +e_declining_uses
    EVENTs +e_sea_trapping 
    
//lobster trap    
[ITEMDEF 044cf]
DEFNAME=i_lobster_cage
NAME=lobster cage
FLIP=1
WEIGHT=25.0
VALUE=45
RESOURCES=4 i_board,10 i_thread,4 i_fishing_weight,1 i_sewing_kit
SKILLMAKE=Tinkering 20.0,Tailoring 40.0,Carpentry 30.0,t_tinker_tools
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Lobster Cage
DUPELIST=044d0
ON=@Create
    UsesMax=25
    TAG._bait_type = t_meat_raw
    TAG0._bait_skill_difficulty = 30
    TAG._sea_critter_catch_difficulty = 50
    TAG0._max_catch = 4
    TAG._sea_critters = random_crustacean
    EVENTs +e_declining_uses
    EVENTs +e_sea_trapping
    
//rope
[ITEMDEF 014f8]
DEFNAME=i_rope
FLIP=1
WEIGHT=20
TYPE=t_rope
VALUE=25
RESOURCES=40 i_thread
SKILLMAKE=Tinkering 21.0,Tailoring 40.0,t_tinker_tools 
CATEGORY=Decoration - Miscellaneous
SUBSECTION=Nautical
DESCRIPTION=Rope (W)
DUPELIST=014fa
ON=@Create
    UsesMax=25
    EVENTs +e_declining_uses
    EVENTs +e_rope_buoy
    
//////////////////////////////////////////////////////////////////////////////////////////////
///////       Events
//////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////////////////////////////
//// EVENT/TYPEDEF e_sea_trapping
//// -our event handler for ON=@ DClick/TargOn_Ground
//// -enforces targeting of water tiles only
//// -verifies user has the proper bait
//// -moves item to target location, makes it sink
//// -adds a buoy at location, sets buoys properties
//// -links buoy to item
////    -requires the below-
////    TAG._bait_type = the bait type (t_meat_raw)
////    TAG0._bait_skill_difficulty = fishing test to bait (30)
////    TAG._sea_critter_catch_difficulty = fishing test to catch critters (50)
////    TAG0._max_catch = max amount of catch (4)
////    TAG._sea_critters = critter template (random_crustacean)
/////////////////////////////////////////////////////
[TYPEDEF e_sea_trapping]
ON=@DClick
    //target to place item in water
    TARGETG Select deep water to place <name>
    RETURN 1
    
ON=@TargOn_Ground
    //make sure water tile was choosen
    IF ((<serv.map(<src.targp.x>,<src.targp.y>).type>!=t_normal) || (<serv.map(<src.targp.x>,<src.targp.y>).statics.0.dispid>!=i_water))
        src.sysmessage <name> can only be placed in deep water.
        return 1
    ENDIF    
    
    //make sure we have bait
    IF !(<src.findtype.<TAG0._bait_type>>)
        src.sysmessage You have no raw bait.
        return 1
    ENDIF
        
    local._bait = <src.findtype.<TAG0._bait_type>>

    //pass a fishing check to properly bait the net
    if !(<src.skillcheck 18,<dTAG0._bait_skill_difficulty>>)
        src.sysmessage You failed to bait the <name> properly.
        
        src.skillgain 18,<dTAG0._bait_skill_difficulty>
        
        return 1
    endif
    src.skillgain 18,<dTAG0._bait_skill_difficulty>
    
    //remove bait
    UID.<local._bait>.consume 1
    
    //place item in water
    p = <src.targp>
    
    //add splash effect & sound
    serv.newitem 01fa3
    new.p = <p.x>,<eval <p.y>-1>,<p.z>
    new.attr = attr_decay|attr_static
    new.timer = 3
    serv.newitem 01fa8 
    new.p = <eval <p.x>-1>,<p.y>,<p.z>
    new.attr = attr_decay|attr_static
    new.timer = 3
    serv.newitem 01fad 
    new.p = <eval <p.x>+1>,<p.y>,<p.z>
    new.attr = attr_decay|attr_static
    new.timer = 3
    serv.newitem 01fb6 
    new.p = <p.x>,<eval <p.y>+1>,<p.z>
    new.attr = attr_decay|attr_static
    new.timer = 3
    sfx 027 //splash
    
    //sink item    
    timerf 1 f_sink_item 
    
    //add a buoy, set it's properties
    serv.newitem i_lobster_buoy
    new.name = <name> Buoy
    new.p = <p>
    new.attr = attr_move_never
    new.events +e_sea_trapping_retrieval
    new.link = <uid>
    
    return 1

/////////////////////////////////////////////////////
//// FUNCTION f_sink_item
////    - all this does is make the item invisible & static
////    - so it looks to have sunk
/////////////////////////////////////////////////////
[FUNCTION f_sink_item]    
    //make item invisible
    attr = attr_invis|attr_static
    updatex
    

    
    
/////////////////////////////////////////////////////
//// EVENT/TYPEDEF e_sea_trapping_retrieval
//// -our event handler for ON=@ DClick
//// -makes linked item visible and back in inventory
//// -removes bouy
//// -runs a loop at random amounts creating critters each interval
////    when a fishing test is passed.
////    -requires the below on the linked object-
////    TAG._sea_critter_catch_difficulty = fishing test to catch critters (50)
////    TAG0._max_catch = max amount of catch (4)
////    TAG._sea_critters = criter template (random_crustacean)
/////////////////////////////////////////////////////    
[TYPEDEF e_sea_trapping_retrieval]
ON=@DClick
    sfx 05a4
    //make our item visible and able to decay
    //    move item to inventory
    //        remove buoy (this item)
    link.attr = attr_decay 
    link.bounce
    remove
    
    //pass fishing check to get fish (critters)
    IF (<src.skillcheck 18,<link.dTAG._sea_critter_catch_difficulty>>)
        FOR 1 <eval rand(<link.dTAG0._max_catch>)+1>
            serv.newitem <link.TAG._sea_critters>    //add critter
            new.p = <src.p>
        ENDFOR
        src.sysmessage Your <link.name> was full!
        
    ELSE
        src.sysmessage The <link.name> was empty.
        
    ENDIF
    src.skillgain 18,<link.dTAG0._sea_critter_catch_difficulty>
    return 1
    
    
/////////////////////////////////////////////////////
//// EVENT/TYPEDEF e_declining_uses
//// -our event handler for ON=@ DClick
//// -makes this item degrade when used
//// -when degredation is 0, item will break
//// -warns the user when about to break
/////////////////////////////////////////////////////    
[TYPEDEF e_declining_uses]    
ON=@DClick
    //reduce uses
    USESCUR --
    IF (<USESCUR><=0)
        destroy 
        SRC.SYSMESSAGE Your <name> broke.
        return 1
    ENDIF
    //notify when close to breaking
    IF (<USESCUR><=3)
        SRC.SYSMESSAGE Your <name> is going to break soon.
    ENDIF

    
    
/////////////////////////////////////////////////////
//// EVENT/TYPEDEF e_rope_buoy
//// -our event handler for ON=@ DClick/TargOn_Item
//// -enforces buoy targetting only
//// -forces the buoy to be doubleclicked as if used
/////////////////////////////////////////////////////    
[TYPEDEF e_rope_buoy]    
ON=@DClick    
    //target a buoy
    TARGET Select buoy to rope in
    RETURN 1
ON=@TargOn_Item
    //only works on buoys
    IF !(<argo.defname>==i_lobster_buoy)
        src.sysmessage Rope only works on buoys.
        return 1
    ENDIF
    //to far away
    IF (<src.distance <argo>> > 6)
        src.sysmessage Too far away from buoy.
        return 1
    ENDIF
    //trigger/use buoy
    argo.useitem
    return 1
    
//////////////////////////////////////////////////////////////////////////////////////////////
///////       Items - Misc - previously undefined
//////////////////////////////////////////////////////////////////////////////////////////////    
[ITEMDEF 03b10]
DEFNAME=i_seahorse
NAME=sea horse
TYPE=t_fish
VALUE=2
WEIGHT=1
ON=@Create
    COLOR={0 1 colors_pink 1 colors_blue 1 colors_orange 1 colors_red 1}

[ITEMDEF 03b11]
DEFNAME=i_shrimp_brine
NAME=brine shrimp
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b0e]
DEFNAME=i_jellyfish
NAME=jellyfish
TYPE=t_fish
VALUE=2
WEIGHT=1
ON=@Create
    COLOR={0 1 colors_pink 1 colors_blue 1 colors_green 1}

[ITEMDEF 03afc]
DEFNAME=i_crab_speckled
NAME=speckled crab
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b14]
DEFNAME=i_shrimp
NAME=shrimp
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03afd]
DEFNAME=i_fish_makoto_courtesan_fish
NAME=makoto courtesan fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03afe]
DEFNAME=i_fish_minoc_blue
NAME=Minoc blue fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03aff]
DEFNAME=i_fish_britain_crown_fish
NAME=Britain crown fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b00]
DEFNAME=i_fish_red_dart_fish
NAME=red dart fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b01]
DEFNAME=i_fish_small_mouth_sucker_fin
NAME=small mouth sucker fin
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b02]
DEFNAME=i_fish_fandancer
NAME=fandancer fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b03]
DEFNAME=i_fish_golden_broadtail
NAME=golden broadtail
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b04]
DEFNAME=i_fish_albino_courtesan_fish
NAME=albino courtesan fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b05]
DEFNAME=i_fish_spined_scratcher_fish
NAME=spined scratcher fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b06]
DEFNAME=i_fish_nujelm_honey
NAME=Nujel'm honey fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b07]
DEFNAME=i_fish_yellow_fin_bluebelly
NAME=yellow fin bluebelly
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b08]
DEFNAME=i_fish_vesper_reef_tiger
NAME=Vesper reef tiger
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b09]
DEFNAME=i_fish_spotted_bucaneer
NAME=spotted buccaneer
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b0a]
DEFNAME=i_fish_stripped_flake_fish
NAME=stripped flake fish
TYPE=t_fish
VALUE=2
WEIGHT=1 

Capes


PS - the above works 100% for players, but when using an owner plevel account, the sinking effect does not work (???).]]>


PHP Code:
//////////////////////////////////////////////////////////////////////////////////////////////
///////       Fishing - net & lobster traps
///////     By: Capes last modified - 2018-04-17 0.56d
//////////////////////////////////////////////////////////////////////////////////////////////
[TEMPLATE random_fish]
ITEM={i_fish_big_1 1 i_fish_big_2 1 i_fish_big_3 1 i_fish_big_4 1 i_fish_small 1 0dd7 1 0dd8 1 0dd9 1 random_cannibalized_fish 1 random_special_fish 1 0dba 1 0dbb 1}

[TEMPLATE random_special_fish]
ITEM={i_fish_makoto_courtesan_fish 1 i_fish_minoc_blue 1 i_fish_britain_crown_fish 1 i_fish_red_dart_fish 1 i_fish_small_mouth_sucker_fin 1 i_fish_fandancer 1 i_fish_golden_broadtail 1 i_fish_albino_courtesan_fish 1 i_fish_spined_scratcher_fish 1 i_fish_nujelm_honey 1 i_fish_yellow_fin_bluebelly 1 i_fish_vesper_reef_tiger 1 i_fish_spotted_bucaneer 1 i_fish_stripped_flake_fish 1}

[TEMPLATE random_cannibalized_fish]
ITEM={03b0c 1 i_fish_raw_whole 1 i_fish_raw_headless 1 i_fish_raw_head}

[TEMPLATE random_crustacean]
ITEM={i_fish_crab 1 044d2 1 i_fish_lobster 1 044d4 1 i_seahorse 1 i_shrimp_brine 1 i_jellyfish 1 i_crab_speckled 1 i_shrimp 1}


//////////////////////////////////////////////////////////////////////////////////////////////
///////       Items - i_net/i_lobster_cage/i_rope
//////////////////////////////////////////////////////////////////////////////////////////////
//fishing net
[ITEMDEF 01ea3]
DEFNAME=i_net
NAME=Fishing Net
FLIP=1
WEIGHT=50.0
VALUE=65
RESOURCES=10 i_rope,10 i_thread,8 i_fishing_weight,1 i_sewing_kit
SKILLMAKE=Tailoring 50.0,Tinkering 30.0,t_tinker_tools
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Weighted Fishing Net
DUPELIST=01ea4,01ea5,01ea6,03d8e,03d8f
ON=@Create
    UsesMax=25
    TAG._bait_type = t_meat_raw
    TAG0._bait_skill_difficulty = 30
    TAG._sea_critter_catch_difficulty = 50
    TAG0._max_catch = 6
    TAG._sea_critters = random_fish
    EVENTs +e_declining_uses
    EVENTs +e_sea_trapping 
    
//lobster trap    
[ITEMDEF 044cf]
DEFNAME=i_lobster_cage
NAME=lobster cage
FLIP=1
WEIGHT=25.0
VALUE=45
RESOURCES=4 i_board,10 i_thread,4 i_fishing_weight,1 i_sewing_kit
SKILLMAKE=Tinkering 20.0,Tailoring 40.0,Carpentry 30.0,t_tinker_tools
CATEGORY=Items by Professions
SUBSECTION=Fisherman
DESCRIPTION=Lobster Cage
DUPELIST=044d0
ON=@Create
    UsesMax=25
    TAG._bait_type = t_meat_raw
    TAG0._bait_skill_difficulty = 30
    TAG._sea_critter_catch_difficulty = 50
    TAG0._max_catch = 4
    TAG._sea_critters = random_crustacean
    EVENTs +e_declining_uses
    EVENTs +e_sea_trapping
    
//rope
[ITEMDEF 014f8]
DEFNAME=i_rope
FLIP=1
WEIGHT=20
TYPE=t_rope
VALUE=25
RESOURCES=40 i_thread
SKILLMAKE=Tinkering 21.0,Tailoring 40.0,t_tinker_tools 
CATEGORY=Decoration - Miscellaneous
SUBSECTION=Nautical
DESCRIPTION=Rope (W)
DUPELIST=014fa
ON=@Create
    UsesMax=25
    EVENTs +e_declining_uses
    EVENTs +e_rope_buoy
    
//////////////////////////////////////////////////////////////////////////////////////////////
///////       Events
//////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////////////////////////////
//// EVENT/TYPEDEF e_sea_trapping
//// -our event handler for ON=@ DClick/TargOn_Ground
//// -enforces targeting of water tiles only
//// -verifies user has the proper bait
//// -moves item to target location, makes it sink
//// -adds a buoy at location, sets buoys properties
//// -links buoy to item
////    -requires the below-
////    TAG._bait_type = the bait type (t_meat_raw)
////    TAG0._bait_skill_difficulty = fishing test to bait (30)
////    TAG._sea_critter_catch_difficulty = fishing test to catch critters (50)
////    TAG0._max_catch = max amount of catch (4)
////    TAG._sea_critters = critter template (random_crustacean)
/////////////////////////////////////////////////////
[TYPEDEF e_sea_trapping]
ON=@DClick
    //target to place item in water
    TARGETG Select deep water to place <name>
    RETURN 1
    
ON=@TargOn_Ground
    //make sure water tile was choosen
    IF ((<serv.map(<src.targp.x>,<src.targp.y>).type>!=t_normal) || (<serv.map(<src.targp.x>,<src.targp.y>).statics.0.dispid>!=i_water))
        src.sysmessage <name> can only be placed in deep water.
        return 1
    ENDIF    
    
    //make sure we have bait
    IF !(<src.findtype.<TAG0._bait_type>>)
        src.sysmessage You have no raw bait.
        return 1
    ENDIF
        
    local._bait = <src.findtype.<TAG0._bait_type>>

    //pass a fishing check to properly bait the net
    if !(<src.skillcheck 18,<dTAG0._bait_skill_difficulty>>)
        src.sysmessage You failed to bait the <name> properly.
        
        src.skillgain 18,<dTAG0._bait_skill_difficulty>
        
        return 1
    endif
    src.skillgain 18,<dTAG0._bait_skill_difficulty>
    
    //remove bait
    UID.<local._bait>.consume 1
    
    //place item in water
    p = <src.targp>
    
    //add splash effect & sound
    serv.newitem 01fa3
    new.p = <p.x>,<eval <p.y>-1>,<p.z>
    new.attr = attr_decay|attr_static
    new.timer = 3
    serv.newitem 01fa8 
    new.p = <eval <p.x>-1>,<p.y>,<p.z>
    new.attr = attr_decay|attr_static
    new.timer = 3
    serv.newitem 01fad 
    new.p = <eval <p.x>+1>,<p.y>,<p.z>
    new.attr = attr_decay|attr_static
    new.timer = 3
    serv.newitem 01fb6 
    new.p = <p.x>,<eval <p.y>+1>,<p.z>
    new.attr = attr_decay|attr_static
    new.timer = 3
    sfx 027 //splash
    
    //sink item    
    timerf 1 f_sink_item 
    
    //add a buoy, set it's properties
    serv.newitem i_lobster_buoy
    new.name = <name> Buoy
    new.p = <p>
    new.attr = attr_move_never
    new.events +e_sea_trapping_retrieval
    new.link = <uid>
    
    return 1

/////////////////////////////////////////////////////
//// FUNCTION f_sink_item
////    - all this does is make the item invisible & static
////    - so it looks to have sunk
/////////////////////////////////////////////////////
[FUNCTION f_sink_item]    
    //make item invisible
    attr = attr_invis|attr_static
    updatex
    

    
    
/////////////////////////////////////////////////////
//// EVENT/TYPEDEF e_sea_trapping_retrieval
//// -our event handler for ON=@ DClick
//// -makes linked item visible and back in inventory
//// -removes bouy
//// -runs a loop at random amounts creating critters each interval
////    when a fishing test is passed.
////    -requires the below on the linked object-
////    TAG._sea_critter_catch_difficulty = fishing test to catch critters (50)
////    TAG0._max_catch = max amount of catch (4)
////    TAG._sea_critters = criter template (random_crustacean)
/////////////////////////////////////////////////////    
[TYPEDEF e_sea_trapping_retrieval]
ON=@DClick
    sfx 05a4
    //make our item visible and able to decay
    //    move item to inventory
    //        remove buoy (this item)
    link.attr = attr_decay 
    link.bounce
    remove
    
    //pass fishing check to get fish (critters)
    IF (<src.skillcheck 18,<link.dTAG._sea_critter_catch_difficulty>>)
        FOR 1 <eval rand(<link.dTAG0._max_catch>)+1>
            serv.newitem <link.TAG._sea_critters>    //add critter
            new.p = <src.p>
        ENDFOR
        src.sysmessage Your <link.name> was full!
        
    ELSE
        src.sysmessage The <link.name> was empty.
        
    ENDIF
    src.skillgain 18,<link.dTAG0._sea_critter_catch_difficulty>
    return 1
    
    
/////////////////////////////////////////////////////
//// EVENT/TYPEDEF e_declining_uses
//// -our event handler for ON=@ DClick
//// -makes this item degrade when used
//// -when degredation is 0, item will break
//// -warns the user when about to break
/////////////////////////////////////////////////////    
[TYPEDEF e_declining_uses]    
ON=@DClick
    //reduce uses
    USESCUR --
    IF (<USESCUR><=0)
        destroy 
        SRC.SYSMESSAGE Your <name> broke.
        return 1
    ENDIF
    //notify when close to breaking
    IF (<USESCUR><=3)
        SRC.SYSMESSAGE Your <name> is going to break soon.
    ENDIF

    
    
/////////////////////////////////////////////////////
//// EVENT/TYPEDEF e_rope_buoy
//// -our event handler for ON=@ DClick/TargOn_Item
//// -enforces buoy targetting only
//// -forces the buoy to be doubleclicked as if used
/////////////////////////////////////////////////////    
[TYPEDEF e_rope_buoy]    
ON=@DClick    
    //target a buoy
    TARGET Select buoy to rope in
    RETURN 1
ON=@TargOn_Item
    //only works on buoys
    IF !(<argo.defname>==i_lobster_buoy)
        src.sysmessage Rope only works on buoys.
        return 1
    ENDIF
    //to far away
    IF (<src.distance <argo>> > 6)
        src.sysmessage Too far away from buoy.
        return 1
    ENDIF
    //trigger/use buoy
    argo.useitem
    return 1
    
//////////////////////////////////////////////////////////////////////////////////////////////
///////       Items - Misc - previously undefined
//////////////////////////////////////////////////////////////////////////////////////////////    
[ITEMDEF 03b10]
DEFNAME=i_seahorse
NAME=sea horse
TYPE=t_fish
VALUE=2
WEIGHT=1
ON=@Create
    COLOR={0 1 colors_pink 1 colors_blue 1 colors_orange 1 colors_red 1}

[ITEMDEF 03b11]
DEFNAME=i_shrimp_brine
NAME=brine shrimp
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b0e]
DEFNAME=i_jellyfish
NAME=jellyfish
TYPE=t_fish
VALUE=2
WEIGHT=1
ON=@Create
    COLOR={0 1 colors_pink 1 colors_blue 1 colors_green 1}

[ITEMDEF 03afc]
DEFNAME=i_crab_speckled
NAME=speckled crab
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b14]
DEFNAME=i_shrimp
NAME=shrimp
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03afd]
DEFNAME=i_fish_makoto_courtesan_fish
NAME=makoto courtesan fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03afe]
DEFNAME=i_fish_minoc_blue
NAME=Minoc blue fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03aff]
DEFNAME=i_fish_britain_crown_fish
NAME=Britain crown fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b00]
DEFNAME=i_fish_red_dart_fish
NAME=red dart fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b01]
DEFNAME=i_fish_small_mouth_sucker_fin
NAME=small mouth sucker fin
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b02]
DEFNAME=i_fish_fandancer
NAME=fandancer fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b03]
DEFNAME=i_fish_golden_broadtail
NAME=golden broadtail
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b04]
DEFNAME=i_fish_albino_courtesan_fish
NAME=albino courtesan fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b05]
DEFNAME=i_fish_spined_scratcher_fish
NAME=spined scratcher fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b06]
DEFNAME=i_fish_nujelm_honey
NAME=Nujel'm honey fish
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b07]
DEFNAME=i_fish_yellow_fin_bluebelly
NAME=yellow fin bluebelly
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b08]
DEFNAME=i_fish_vesper_reef_tiger
NAME=Vesper reef tiger
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b09]
DEFNAME=i_fish_spotted_bucaneer
NAME=spotted buccaneer
TYPE=t_fish
VALUE=2
WEIGHT=1

[ITEMDEF 03b0a]
DEFNAME=i_fish_stripped_flake_fish
NAME=stripped flake fish
TYPE=t_fish
VALUE=2
WEIGHT=1 

Capes


PS - the above works 100% for players, but when using an owner plevel account, the sinking effect does not work (???).]]> <![CDATA[Grave Digging]]> https://forum.spherecommunity.net/Thread-Grave-Digging Sat, 14 Apr 2018 14:10:43 +0200 https://forum.spherecommunity.net/Thread-Grave-Digging Here's a grave digging script.
Basically it allows a player to use a shovel on a grave to dig it up.
They may get goodies, disturb the dead, find something gross or have their shovel break.
This demonstrates the basic use of SERV.LIST (a basic array) functionality.
It also shows how an event can alter an items behavior.
Change GRAVE_RESET_DELAY to a lower number to test it.

PHP Code:
/////////////////////////////////////////////////////////////////////////////////////
//// GRAVE DIGGING - shovel & graves
//// By: Capes last modified - 2018-04-14
/////////////////////////////////////////////////////////////////////////////////////
[DEFNAME body_parts]
random_body_part {01b12 1 01b14 1 01b18 1 01b1a 1 01b1c 1 01cdd 1 01ce5 1 01ced 1 01cf0 1 01cef 1 01cee 1 01ce1 1 01ce9 1 01dad 1}

[DEFNAME gravedigging_settings]
GRAVE_RESET_DELAY = 600 //in secounds (10 mins)
////////////////////////////////////////////////////////////
////// shovel
////////////////////////////////////////////////////////////
[ITEMDEF 0f39]
DEFNAME=i_shovel
TYPE=t_weapon_mace_pick
FLIP=1
VALUE=20
WEIGHT=6.0
RESOURCES=4 i_ingot_iron,2 i_log
SKILLMAKE=Tinkering 20.0,t_tinker_tools
TEVENTS=e_grave_digging        //<- this event adds gravedigging to shovel
CATEGORY=Items by Professions
SUBSECTION=Miner
DESCRIPTION=Shovel
DUPELIST=0f3a
ON=@Create
   HITPOINTS={150 250}
   UsesMax=50

[ITEMDEF 0f3a]
//shovel
DUPEITEM=0f39

///////////////////////////////////////////////////////
//// EVENTS e_grave_digging
////    - adding e_grave_digging to TEVENTS of any item provides 
////        this functionality
////    - defines ON=@TargOn_Ground handler
////    - prevents usage if mounted, to far away or if already dug up
////    - makes sure tile selected is i_grave
////    - lowers karma, then randomly picks an outcome
////        - outcomes - 
////        1 - you found nothing
////        2 - you have disturbed the dead, summons 1 undead
////        3 - you found a body part
////        4 - you found something
////    - reduces uses of item (assuming shovel defualts) with possible breakage
////    - stores src.targp in SERV.LIST._graves_dug_up (prevents further digging)
////    - fires a timerf in GRAVE_RESET_DELAY to remove cords from SERV.LIST._graves_dug_up
////        to allow this tile to be dug up again
///////////////////////////////////////////////////////
[TYPEDEF e_grave_digging]
ON=@TargOn_Ground
    //is mounted quit
    IF (<SRC.FINDLAYER.layer_horse>)    
        SRC.SYSMESSAGE You can't dig up a grave while mounted!
        return 1
    ENDIF
    //to far away quit
    IF (<src.distance <src.targp>> > 1)         
        SRC.SYSMESSAGE Your to far away.
        return 1
    ENDIF
    //already dug up
    IF ((<SERV.LIST._graves_dug_up.FINDELEM <src.targp>> != -1) &&(<eval <SERV.LIST._graves_dug_up.COUNT>> != 0))
        SRC.SYSMESSAGE This grave has already been dug up.
        return 1
    ENDIF    

    //only do if (dispid=i_grave)
    IF (<serv.map(<src.targp.x>,<src.targp.y>).statics.0.dispid> == i_grave)
        //dig up grave, add loot, lose karma
        local._karma = <eval <src.karma>>
        local._karma -= 10
        src.karma = <dlocal._karma>
        SRC.SYSMESSAGE @37 You have lost some karma
        
        //get random number 0-3
        local._rnd_num = <eval RAND(4)>
        //respond to random number (maybe replace with a doswitch)
        IF (<eval <local._rnd_num>> == 0)
            //you found nothing
            SRC.SYSMESSAGE You dig but find nothing.
        ELSEIF (<local._rnd_num> == 1)
            //you have disturbed the dead
            SRC.SYSMESSAGE @30 You dig and disturb the dead.
            SERV.NEWNPC {c_zombie 1 c_skeleton 1 c_ghoul 1} 
            NEW.P = <src.targp.x>,<src.targp.y>,<eval <src.targp.z>+1>
        ELSEIF (<local._rnd_num> == 2)
            //you found a body part
            SERV.NEWITEM random_body_part
            SRC.SYSMESSAGE @30 Gross you found a body part.
            NEW.BOUNCE
        ELSE
            //you found something
            SERV.NEWITEM {poor_gold_pile 1 random_jewelry 1 random_jewel 1}    
            SRC.SYSMESSAGE @70 You found <NEW.name>.
            NEW.BOUNCE
        ENDIF
        
        //reduce shovel uses
        USESCUR --
        IF (<USESCUR><=0)
            DESTROY 1 
            SRC.SYSMESSAGE Your shovel broke.
        ENDIF
        
        //store cords & remove cords sometime laiter
        SERV.LIST._graves_dug_up.ADD <src.targp>
        timerf <dDEF.GRAVE_RESET_DELAY> f_remove_grave_dugup_flag <src.targp>        
                
        return 1    //<-- don't run other events ie minning stuff
    ENDIF



///////////////////////////////////////////////////////
//// FUYNCTION     f_remove_grave_dugup_flag <args>
////    Param - <args> = expecting a <P> string equivelent
////        - removes given cords<args> from SERV.LIST._graves_dug_up
////        - this assumes the cords given in <args> exists
///////////////////////////////////////////////////////
[FUNCTION f_remove_grave_dugup_flag]
    //find the element that holds the cords, and remove it
    SERV.LIST._graves_dug_up.<eval <SERV.LIST._graves_dug_up.FINDELEM <args>>>.REMOVE


///////////////////////////////////////////////////////////////
////    Grave Tiles
///////////////////////////////////////////////////////////////
[MULTIDEF m_grave_ns]
//ID=98967F
NAME=Grave
TYPE=t_multi
CATEGORY=Multis
SUBSECTION=Misc
DESCRIPTION=Grave (north south)
MULTIREGION=0,0,0,0
COMPONENT=00edf,0,0
COMPONENT=00ee1,0,-1

[MULTIDEF m_grave_ew]
//ID=98967F
NAME=Grave
TYPE=t_multi
CATEGORY=Multis
SUBSECTION=Misc
DESCRIPTION=Grave (north south)
MULTIREGION=0,0,0,0
COMPONENT=00ee0,0,0
COMPONENT=00ee2,-1,0

[ITEMDEF 0edf]
DEFNAME=i_grave
CATEGORY=Decoration - Dungeons and The Dead
SUBSECTION=Graves & Gravestones
DESCRIPTION=Grave
//TAG._can_be_dug = 1
DUPELIST=0ee0,0ee1,0ee2, 0ed3 //<- these are also considered ID=0edf when querried OR i_grave
ON=@CREATE
    ATTR=08010

[ITEMDEF 0ee0]
//grave
DUPEITEM=0edf
ON=@CREATE
    ATTR=08010

[ITEMDEF 0ee1]
//grave
DUPEITEM=0edf
ON=@CREATE
    ATTR=08010

[ITEMDEF 0ee2]
//grave
DUPEITEM=0edf
ON=@CREATE
    ATTR=08010
    
[ITEMDEF 0ed3]
//grave
DUPEITEM=0edf
ON=@CREATE
    ATTR=08010



[EOF] 


Capes]]> Here's a grave digging script.
Basically it allows a player to use a shovel on a grave to dig it up.
They may get goodies, disturb the dead, find something gross or have their shovel break.
This demonstrates the basic use of SERV.LIST (a basic array) functionality.
It also shows how an event can alter an items behavior.
Change GRAVE_RESET_DELAY to a lower number to test it.

PHP Code:
/////////////////////////////////////////////////////////////////////////////////////
//// GRAVE DIGGING - shovel & graves
//// By: Capes last modified - 2018-04-14
/////////////////////////////////////////////////////////////////////////////////////
[DEFNAME body_parts]
random_body_part {01b12 1 01b14 1 01b18 1 01b1a 1 01b1c 1 01cdd 1 01ce5 1 01ced 1 01cf0 1 01cef 1 01cee 1 01ce1 1 01ce9 1 01dad 1}

[DEFNAME gravedigging_settings]
GRAVE_RESET_DELAY = 600 //in secounds (10 mins)
////////////////////////////////////////////////////////////
////// shovel
////////////////////////////////////////////////////////////
[ITEMDEF 0f39]
DEFNAME=i_shovel
TYPE=t_weapon_mace_pick
FLIP=1
VALUE=20
WEIGHT=6.0
RESOURCES=4 i_ingot_iron,2 i_log
SKILLMAKE=Tinkering 20.0,t_tinker_tools
TEVENTS=e_grave_digging        //<- this event adds gravedigging to shovel
CATEGORY=Items by Professions
SUBSECTION=Miner
DESCRIPTION=Shovel
DUPELIST=0f3a
ON=@Create
   HITPOINTS={150 250}
   UsesMax=50

[ITEMDEF 0f3a]
//shovel
DUPEITEM=0f39

///////////////////////////////////////////////////////
//// EVENTS e_grave_digging
////    - adding e_grave_digging to TEVENTS of any item provides 
////        this functionality
////    - defines ON=@TargOn_Ground handler
////    - prevents usage if mounted, to far away or if already dug up
////    - makes sure tile selected is i_grave
////    - lowers karma, then randomly picks an outcome
////        - outcomes - 
////        1 - you found nothing
////        2 - you have disturbed the dead, summons 1 undead
////        3 - you found a body part
////        4 - you found something
////    - reduces uses of item (assuming shovel defualts) with possible breakage
////    - stores src.targp in SERV.LIST._graves_dug_up (prevents further digging)
////    - fires a timerf in GRAVE_RESET_DELAY to remove cords from SERV.LIST._graves_dug_up
////        to allow this tile to be dug up again
///////////////////////////////////////////////////////
[TYPEDEF e_grave_digging]
ON=@TargOn_Ground
    //is mounted quit
    IF (<SRC.FINDLAYER.layer_horse>)    
        SRC.SYSMESSAGE You can't dig up a grave while mounted!
        return 1
    ENDIF
    //to far away quit
    IF (<src.distance <src.targp>> > 1)         
        SRC.SYSMESSAGE Your to far away.
        return 1
    ENDIF
    //already dug up
    IF ((<SERV.LIST._graves_dug_up.FINDELEM <src.targp>> != -1) &&(<eval <SERV.LIST._graves_dug_up.COUNT>> != 0))
        SRC.SYSMESSAGE This grave has already been dug up.
        return 1
    ENDIF    

    //only do if (dispid=i_grave)
    IF (<serv.map(<src.targp.x>,<src.targp.y>).statics.0.dispid> == i_grave)
        //dig up grave, add loot, lose karma
        local._karma = <eval <src.karma>>
        local._karma -= 10
        src.karma = <dlocal._karma>
        SRC.SYSMESSAGE @37 You have lost some karma
        
        //get random number 0-3
        local._rnd_num = <eval RAND(4)>
        //respond to random number (maybe replace with a doswitch)
        IF (<eval <local._rnd_num>> == 0)
            //you found nothing
            SRC.SYSMESSAGE You dig but find nothing.
        ELSEIF (<local._rnd_num> == 1)
            //you have disturbed the dead
            SRC.SYSMESSAGE @30 You dig and disturb the dead.
            SERV.NEWNPC {c_zombie 1 c_skeleton 1 c_ghoul 1} 
            NEW.P = <src.targp.x>,<src.targp.y>,<eval <src.targp.z>+1>
        ELSEIF (<local._rnd_num> == 2)
            //you found a body part
            SERV.NEWITEM random_body_part
            SRC.SYSMESSAGE @30 Gross you found a body part.
            NEW.BOUNCE
        ELSE
            //you found something
            SERV.NEWITEM {poor_gold_pile 1 random_jewelry 1 random_jewel 1}    
            SRC.SYSMESSAGE @70 You found <NEW.name>.
            NEW.BOUNCE
        ENDIF
        
        //reduce shovel uses
        USESCUR --
        IF (<USESCUR><=0)
            DESTROY 1 
            SRC.SYSMESSAGE Your shovel broke.
        ENDIF
        
        //store cords & remove cords sometime laiter
        SERV.LIST._graves_dug_up.ADD <src.targp>
        timerf <dDEF.GRAVE_RESET_DELAY> f_remove_grave_dugup_flag <src.targp>        
                
        return 1    //<-- don't run other events ie minning stuff
    ENDIF



///////////////////////////////////////////////////////
//// FUYNCTION     f_remove_grave_dugup_flag <args>
////    Param - <args> = expecting a <P> string equivelent
////        - removes given cords<args> from SERV.LIST._graves_dug_up
////        - this assumes the cords given in <args> exists
///////////////////////////////////////////////////////
[FUNCTION f_remove_grave_dugup_flag]
    //find the element that holds the cords, and remove it
    SERV.LIST._graves_dug_up.<eval <SERV.LIST._graves_dug_up.FINDELEM <args>>>.REMOVE


///////////////////////////////////////////////////////////////
////    Grave Tiles
///////////////////////////////////////////////////////////////
[MULTIDEF m_grave_ns]
//ID=98967F
NAME=Grave
TYPE=t_multi
CATEGORY=Multis
SUBSECTION=Misc
DESCRIPTION=Grave (north south)
MULTIREGION=0,0,0,0
COMPONENT=00edf,0,0
COMPONENT=00ee1,0,-1

[MULTIDEF m_grave_ew]
//ID=98967F
NAME=Grave
TYPE=t_multi
CATEGORY=Multis
SUBSECTION=Misc
DESCRIPTION=Grave (north south)
MULTIREGION=0,0,0,0
COMPONENT=00ee0,0,0
COMPONENT=00ee2,-1,0

[ITEMDEF 0edf]
DEFNAME=i_grave
CATEGORY=Decoration - Dungeons and The Dead
SUBSECTION=Graves & Gravestones
DESCRIPTION=Grave
//TAG._can_be_dug = 1
DUPELIST=0ee0,0ee1,0ee2, 0ed3 //<- these are also considered ID=0edf when querried OR i_grave
ON=@CREATE
    ATTR=08010

[ITEMDEF 0ee0]
//grave
DUPEITEM=0edf
ON=@CREATE
    ATTR=08010

[ITEMDEF 0ee1]
//grave
DUPEITEM=0edf
ON=@CREATE
    ATTR=08010

[ITEMDEF 0ee2]
//grave
DUPEITEM=0edf
ON=@CREATE
    ATTR=08010
    
[ITEMDEF 0ed3]
//grave
DUPEITEM=0edf
ON=@CREATE
    ATTR=08010



[EOF] 


Capes]]> <![CDATA[Logout anywere]]> https://forum.spherecommunity.net/Thread-Logout-anywere Wed, 11 Apr 2018 17:00:59 +0200 https://forum.spherecommunity.net/Thread-Logout-anywere
PHP Code:
[ITEMDEF i_bedroll]
DEFNAME=i_bedroll
TYPE=t_bedroll
VALUE=136  //maybe change value
WEIGHT=12.5
DUPELIST=01f25,01f26,01f27
ON=@DCLICK
    //store badroll for recovery
    src.cTag._bedroll = <I.uid>
    //look for a campfire with in 2 tiles
    foritems 2
        IF (<type> == t_campfire)
            //found a campfire, pass a camping skill check 
            IF (<src.skillcheck 10,20>)
                
                //show logout gump
                src.sdialog d_log_out_gump
                return
            ELSE
                SRC.SYSMESSAGE You were unable to secure this camp site.
                return
            ENDIF
        ENDIF
    endfor
    //if we made it here, there is no campfire in range
    SRC.SYSMESSAGE To use a bedroll a campfire must be close.
    return

[DIALOG d_log_out_gump]
0,0
page 0
resizepic 280 240 9270 232 120
dtext 339 266 1152 Camp Site Secured!
dtext 310 286 1152 You may now logout safely.
button 368 320 247 249 1 0 1
tilepic 290 255 0FAC
tilepic 460 255 0A59

[DIALOG d_log_out_gump BUTTON]
ON=1
    
    //move bedroll back to inventory
    UID.<src.cTag._bedroll>.BOUNCE  //maybe change to remove
    //disconnect player after slight delay
    timerf 1, f_leave

[FUNCTION f_leave]
    TRYSRV serv.uid.<uid>.disconnect
    timerf 1, TRYSRV serv.uid.<uid>.disconnect 


Capes]]>
PHP Code:
[ITEMDEF i_bedroll]
DEFNAME=i_bedroll
TYPE=t_bedroll
VALUE=136  //maybe change value
WEIGHT=12.5
DUPELIST=01f25,01f26,01f27
ON=@DCLICK
    //store badroll for recovery
    src.cTag._bedroll = <I.uid>
    //look for a campfire with in 2 tiles
    foritems 2
        IF (<type> == t_campfire)
            //found a campfire, pass a camping skill check 
            IF (<src.skillcheck 10,20>)
                
                //show logout gump
                src.sdialog d_log_out_gump
                return
            ELSE
                SRC.SYSMESSAGE You were unable to secure this camp site.
                return
            ENDIF
        ENDIF
    endfor
    //if we made it here, there is no campfire in range
    SRC.SYSMESSAGE To use a bedroll a campfire must be close.
    return

[DIALOG d_log_out_gump]
0,0
page 0
resizepic 280 240 9270 232 120
dtext 339 266 1152 Camp Site Secured!
dtext 310 286 1152 You may now logout safely.
button 368 320 247 249 1 0 1
tilepic 290 255 0FAC
tilepic 460 255 0A59

[DIALOG d_log_out_gump BUTTON]
ON=1
    
    //move bedroll back to inventory
    UID.<src.cTag._bedroll>.BOUNCE  //maybe change to remove
    //disconnect player after slight delay
    timerf 1, f_leave

[FUNCTION f_leave]
    TRYSRV serv.uid.<uid>.disconnect
    timerf 1, TRYSRV serv.uid.<uid>.disconnect 


Capes]]> <![CDATA[e_Carnivores - Making Carnivores hunt]]> https://forum.spherecommunity.net/Thread-e-Carnivores-Making-Carnivores-hunt Sat, 17 Mar 2018 13:36:10 +0100 https://forum.spherecommunity.net/Thread-e-Carnivores-Making-Carnivores-hunt
0.56d nightly.
Info - I noticed events in sphere_event_npcs.scp like e_Carnivores,e_Carnivores2 & e_Carnivores3 were blank, and in the corresponding sphere_monsters.scp file all the code was already there for critters to be carnivores.

This is my attempt to make animals hunt when hungry, provided that they are carnivores (if they have TEVENTS in their CHARDEF defined as e_Carnivores). This only effects animals.

1)
Global variable (placed in sphere_serv_triggers.scp under [FUNCTION f_onserver_start])

VAR.HUNGER_RATE_DECAY_TIME = 120

/////////////////////////////////////////////////////
///// VAR.HUNGER_RATE_DECAY_TIME = 120
//// (in secs)
//// 120 = every 2 mins at 20 mins per day cycle or reduced 10 times a day
//// so critter with maxfood=10 will eat once a day
/////////////////////////////////////////////////////

2)
Modified sphere_events_npc.scp [EVENTS]e_Carnivores,e_Carnivores2,e_Carnivores3 just like below

[EVENTS e_Carnivores]
// weak carnivores.
ON=@CREATE
EVENTS +e_Hunger
f_setNeedsFood

[EVENTS e_Carnivores2]
// normal carnivores.
ON=@CREATE
EVENTS +e_Hunger
f_setNeedsFood

[EVENTS e_Carnivores3]
// strong carnivores.
ON=@CREATE
EVENTS +e_Hunger
f_setNeedsFood

3)
Added this to the bottom of sphere_events_npc.scp

/////////////////////////////////////////////////////
//// EVENT e_Hunger
//// -our event handler for ON=@ HUNGER/KILL/DEATH
//// -only executes when (hunger_in_effect) is set on animal
//// -1)sets a new brain to animal and possible buff/debuff based on e__Carnivores TEVENTS
//// -2)resets brain to animal after killing (eating) so it doesn't hunt anymore
//// -3)cleans up mem from tags
/////////////////////////////////////////////////////
[EVENTS e_Hunger]
ON=@HUNGER //<-- triggered from f_Hunger_handler
IF !(<eval <I.TAG.hunger_in_effect>>)
return //no hunger_in_effect so quit
ENDIF
//change brain and do something special for given e_Carnivore's type
IF ((STRCMPI(<I.TEVENTS>,e_Carnivores)==0) || (STRCMPI(<I.TEVENTS>,e_Carnivores)==1)))
//we are e_Carnivores (weak), do something


ELSEIF ((STRCMPI(<I.TEVENTS>,e_Carnivores2)==0) || (STRCMPI(<I.TEVENTS>,e_Carnivores2)==1)))
//we are e_Carnivores2 (normal), do something


ELSEIF ((STRCMPI(<I.TEVENTS>,e_Carnivores3)==0) || (STRCMPI(<I.TEVENTS>,e_Carnivores3)==1)))
//we are e_Carnivores3 (strong), do something


ENDIF
//we are hungry attack something (change brain)
I.NPC = brain_berserk

ON=@KILL //<-- triggered after any kill
IF !(<eval <I.TAG.hunger_in_effect>>)
return //no hunger_in_effect so quit
ENDIF
//change back to animal brain, reset hunger lvl and restart timer
I.NPC = brain_animal
I.TAG.hunger_lvl =<eval <I.FOOD>>
I.TIMERF <eval <VAR.HUNGER_RATE_DECAY_TIME>> f_Hunger_handler

ON=@DEATH
IF !(<eval <I.TAG.hunger_in_effect>>)
return //no hunger_in_effect so quit
ENDIF
//clear hunger lvl tag & hunger in effect from mem
I.TAG.hunger_lvl =
I.TAG.hunger_in_effect =

/////////////////////////////////////////////////////
//// FUNCTION f_setNeedsFood
//// -prevents usage if not brain_animal (must be an animal)
//// -set hunger lvl & hunger in effect tags
//// -starts our hunger handler
/////////////////////////////////////////////////////
[FUNCTION f_setNeedsFood]
//only do if this is an animal
//set variable to store hunger level & set var to show hunger is in effect & start timer
IF (<NPC> == brain_animal)
TAG.hunger_lvl = <eval <FOOD>>
//prevents other scripts from triggering our events
TAG.hunger_in_effect = 1
TIMERF <eval <VAR.HUNGER_RATE_DECAY_TIME>> f_Hunger_handler
ENDIF

/////////////////////////////////////////////////////
//// FUNCTION f_Hunger_handler
//// -recursive routine
//// -reduces hunger lvl by 1 each interval
//// -stops loop and fires @HUNGER event of e_Hunger (events) above
/////////////////////////////////////////////////////
[FUNCTION f_Hunger_handler]
//reduce hunger lvl
I.TAG.hunger_lvl -= 1
//if hungry fire hunger trigger and exit otherwise run timer-func again
IF (<eval <I.TAG.hunger_lvl>> <= 0)
//trigger hunger event
I.TRIGGER @HUNGER
return
ENDIF
TIMERF <eval <VAR.HUNGER_RATE_DECAY_TIME>> f_Hunger_handler

/////////////////////////////////////////////////////


I have left room for adding other behaviors in [EVENTS e_Hunger] if desired.

Now I never know if that dam bear is gunna attack me or not!

Thanks to everyone!
Capes]]>
0.56d nightly.
Info - I noticed events in sphere_event_npcs.scp like e_Carnivores,e_Carnivores2 & e_Carnivores3 were blank, and in the corresponding sphere_monsters.scp file all the code was already there for critters to be carnivores.

This is my attempt to make animals hunt when hungry, provided that they are carnivores (if they have TEVENTS in their CHARDEF defined as e_Carnivores). This only effects animals.

1)
Global variable (placed in sphere_serv_triggers.scp under [FUNCTION f_onserver_start])

VAR.HUNGER_RATE_DECAY_TIME = 120

/////////////////////////////////////////////////////
///// VAR.HUNGER_RATE_DECAY_TIME = 120
//// (in secs)
//// 120 = every 2 mins at 20 mins per day cycle or reduced 10 times a day
//// so critter with maxfood=10 will eat once a day
/////////////////////////////////////////////////////

2)
Modified sphere_events_npc.scp [EVENTS]e_Carnivores,e_Carnivores2,e_Carnivores3 just like below

[EVENTS e_Carnivores]
// weak carnivores.
ON=@CREATE
EVENTS +e_Hunger
f_setNeedsFood

[EVENTS e_Carnivores2]
// normal carnivores.
ON=@CREATE
EVENTS +e_Hunger
f_setNeedsFood

[EVENTS e_Carnivores3]
// strong carnivores.
ON=@CREATE
EVENTS +e_Hunger
f_setNeedsFood

3)
Added this to the bottom of sphere_events_npc.scp

/////////////////////////////////////////////////////
//// EVENT e_Hunger
//// -our event handler for ON=@ HUNGER/KILL/DEATH
//// -only executes when (hunger_in_effect) is set on animal
//// -1)sets a new brain to animal and possible buff/debuff based on e__Carnivores TEVENTS
//// -2)resets brain to animal after killing (eating) so it doesn't hunt anymore
//// -3)cleans up mem from tags
/////////////////////////////////////////////////////
[EVENTS e_Hunger]
ON=@HUNGER //<-- triggered from f_Hunger_handler
IF !(<eval <I.TAG.hunger_in_effect>>)
return //no hunger_in_effect so quit
ENDIF
//change brain and do something special for given e_Carnivore's type
IF ((STRCMPI(<I.TEVENTS>,e_Carnivores)==0) || (STRCMPI(<I.TEVENTS>,e_Carnivores)==1)))
//we are e_Carnivores (weak), do something


ELSEIF ((STRCMPI(<I.TEVENTS>,e_Carnivores2)==0) || (STRCMPI(<I.TEVENTS>,e_Carnivores2)==1)))
//we are e_Carnivores2 (normal), do something


ELSEIF ((STRCMPI(<I.TEVENTS>,e_Carnivores3)==0) || (STRCMPI(<I.TEVENTS>,e_Carnivores3)==1)))
//we are e_Carnivores3 (strong), do something


ENDIF
//we are hungry attack something (change brain)
I.NPC = brain_berserk

ON=@KILL //<-- triggered after any kill
IF !(<eval <I.TAG.hunger_in_effect>>)
return //no hunger_in_effect so quit
ENDIF
//change back to animal brain, reset hunger lvl and restart timer
I.NPC = brain_animal
I.TAG.hunger_lvl =<eval <I.FOOD>>
I.TIMERF <eval <VAR.HUNGER_RATE_DECAY_TIME>> f_Hunger_handler

ON=@DEATH
IF !(<eval <I.TAG.hunger_in_effect>>)
return //no hunger_in_effect so quit
ENDIF
//clear hunger lvl tag & hunger in effect from mem
I.TAG.hunger_lvl =
I.TAG.hunger_in_effect =

/////////////////////////////////////////////////////
//// FUNCTION f_setNeedsFood
//// -prevents usage if not brain_animal (must be an animal)
//// -set hunger lvl & hunger in effect tags
//// -starts our hunger handler
/////////////////////////////////////////////////////
[FUNCTION f_setNeedsFood]
//only do if this is an animal
//set variable to store hunger level & set var to show hunger is in effect & start timer
IF (<NPC> == brain_animal)
TAG.hunger_lvl = <eval <FOOD>>
//prevents other scripts from triggering our events
TAG.hunger_in_effect = 1
TIMERF <eval <VAR.HUNGER_RATE_DECAY_TIME>> f_Hunger_handler
ENDIF

/////////////////////////////////////////////////////
//// FUNCTION f_Hunger_handler
//// -recursive routine
//// -reduces hunger lvl by 1 each interval
//// -stops loop and fires @HUNGER event of e_Hunger (events) above
/////////////////////////////////////////////////////
[FUNCTION f_Hunger_handler]
//reduce hunger lvl
I.TAG.hunger_lvl -= 1
//if hungry fire hunger trigger and exit otherwise run timer-func again
IF (<eval <I.TAG.hunger_lvl>> <= 0)
//trigger hunger event
I.TRIGGER @HUNGER
return
ENDIF
TIMERF <eval <VAR.HUNGER_RATE_DECAY_TIME>> f_Hunger_handler

/////////////////////////////////////////////////////


I have left room for adding other behaviors in [EVENTS e_Hunger] if desired.

Now I never know if that dam bear is gunna attack me or not!

Thanks to everyone!
Capes]]> <![CDATA[Chardef Export (PHP+MySQL)]]> https://forum.spherecommunity.net/Thread-Chardef-Export-PHP-MySQL Tue, 30 Jan 2018 19:30:15 +0100 https://forum.spherecommunity.net/Thread-Chardef-Export-PHP-MySQL
UPDATES:
2/01/2018:
- Expression searches are now case INsensitive ( CHARDEF = chardef )


One benefit to this script is that it will also export stuff under the @Create trigger, properties that are only set when the character is actually spawned or created... so if you want to have some sort of monster compendium or bestiary on your website, you'd probably want to display the damage, strength, dexterity and intelligence ranges and whatnot. It will search your icons script file to match the ICON property with the actual hexidecimal ID # for that icon item in the MUL files. It will also truncate comments and eliminate white spaces from all variables before inserting them into the table.

Example of the data put to work:
http://www.gargoylepoop.com/bestiary

For this to work, you will either need to have a web server with PHP 5x or 7x and copy your NPC script files to that -OR- you can do it how I am and install PHP on your Sphere machine (Windows for me) and run the script using a batch file. You then simply double click the batch file and watch the magic happen. You'll also need to make sure MySQLi extension is enabled (it seems Windows' PHP does not have it enabled by default). Of course, you also need a MySQL server somewhere. You can't use mine Big Grin

How I have mine setup:
C:\Sphere\php\EXPORT.bat
C:\Sphere\php\chardef_export.php

Batch file (adjust paths accordingly)
Code:
@echo off
C:\php\php.exe C:\Sphere\php\chardef_export.php
echo Press any key to close...
pause >nul

MySQL table structure:

.jpg  table_structure.jpg (Size: 131.27 KB / Downloads: 71)
.jpg  table_example.jpg (Size: 136.72 KB / Downloads: 37)

PHP Code:
CREATE TABLE `chardefs` (
 `idx` int(11) NOT NULL AUTO_INCREMENT,
 `id` varchar(30) DEFAULT NULL,
 `baseid` text,
 `defname` text,
 `icon` varchar(10) DEFAULT NULL,
 `bstat_str` varchar(30) DEFAULT NULL,
 `bstat_dex` varchar(30) DEFAULT NULL,
 `bstat_int` varchar(30) DEFAULT NULL,
 `bstat_maxhits` varchar(30) DEFAULT NULL,
 `damage` varchar(13) DEFAULT NULL,
 `armor` varchar(20) DEFAULT NULL,
 `barding_diff` varchar(6) DEFAULT NULL,
 `fame` varchar(20) DEFAULT NULL,
 `karma` varchar(20) DEFAULT NULL,
 `color` varchar(20) NOT NULL DEFAULT '0',
 `resources` text,
 `name` text,
 `category` text,
 `subsection` text,
 `description` text,
 PRIMARY KEY (`idx`),
 UNIQUE KEY `id` (`id`)
) ENGINE=InnoDB DEFAULT CHARSET=utf 

A screenshot of the script output:

.jpg  output.jpg (Size: 89.66 KB / Downloads: 63)

Your MySQL user will need all DATA privileges, along with DROP and ALTER.

In the PHP script, alter your settings as needed. You'll need to point the script to your NPC's folder (Sphere/scripts/npcs) and your pet icons file (Sphere/scripts/items/sphere_item_char_icons.scp). If you have NPCs spread out everywhere, you can move them all together or you can alter the script to point to each directory. Keep in mind, this script looks for the CHARDEF header in ALL .scp files in the directory, so if you have other files in the directory, it will still go through them but ignore everything unless it's a CHARDEF script.

The script will run several thousand MySQL queries. This should not be an issue if you have any half decent hardware. For me, with an 6th gen i5 and 8gb of RAM, the script takes 15-17 seconds.

With all that said, here ya go! Have fun!

The PHP script (chardef_export.php)
PHP Code:
<?php
/*
Last Edit: 2/01/2018
Written by n1ghtwish
*/

// ------ SETTINGS -------
// MySQL connection info
$INFO['sql_host']    =    "YOUR HOST HERE";
$INFO['sql_user']    =    "MYSQL USER HERE";
$INFO['sql_pass']    =    "MYSQL PASSWORD HERE";
$INFO['sql_db']        =    "DATABASE NAME";

// MySQL table to send data to
$chardefTable         = "chardefs";

// Path to NPC script directory
// Might have to move some files around -OR- modify the script
$scriptPath         = "C:/Sphere/scripts/npcs/";

// sphere_item_char_icons.scp (or whatever yours is called)
$sphereIconsFile     = "C:/Sphere/scripts/items/sphere_item_char_icons.scp";

// icon to use for chardefs without one
$noIcon             = "02100"; // wisp
// -------------------------------

$start = time();
echo "Connecting to MySQL database... \n";
// establish connection
$conn = new MySQLi($INFO['sql_host'], $INFO['sql_user'], $INFO['sql_pass'], $INFO['sql_db']) or die("Connection failed: " . $conn->connect_error);

echo "Using table '$chardefTable'... \n";
echo "Truncating table '$chardefTable'... \n\n";
$conn->query("TRUNCATE TABLE $chardefTable") or die($conn->error);

$total = 0;
$dir = new DirectoryIterator($scriptPath);
foreach ($dir as $file){
    if ($file->getExtension() == "scp") {
        echo "Scanning $file ... \n";
        $fullPath = $scriptPath . $file;
        $total += chardefExport($fullPath, $file, $conn);
    }
}

// find and set missing icons
$result = $conn->query("SELECT baseid FROM $chardefTable WHERE icon IS NULL") or die($conn->error);
$rows = $result->num_rows;
echo "\nFinding icons for $rows non-base chardefs...\n";

while ($i = $result->fetch_assoc()){
    $baseid = $i['baseid'];
    $icon = getMissingIcon($baseid, $conn);
    $conn->query("UPDATE $chardefTable SET icon = '$icon' WHERE baseid = '$baseid'") or die($conn->error);
}

// finally, add wisp icon to final rows without icon set
$result = $conn->query("UPDATE $chardefTable SET icon = '$noIcon' WHERE icon = '' OR icon IS NULL") or die($conn->error);
$affected = $conn->affected_rows;
echo "$affected chardefs left without icon property, setting to '$noIcon'. \n";

$end = time();
$elapsed = $end - $start;

// Yay, done!
echo "\nYay, done!  $total TOTAL chardefs exported in $elapsed seconds!\n";

function getMissingIcon($baseid, $conn){
    global $chardefTable;
    $result = $conn->query("SELECT icon FROM $chardefTable WHERE defname = '$baseid'") or die($conn->error);
    $i = $result->fetch_assoc();
    return $i['icon'];    
}

function findBaseHexIcon($icon_def){
    global $sphereIconsFile;
    $iconFile = new SplFileObject($sphereIconsFile);
    $check = "DEFNAME=" . $icon_def;
    foreach ($iconFile as $line){
        $line = trim($line);
        if (preg_match("/^\\[(ITEMDEF.*?)\\]/i", $line)){
            $itemdef = trim(str_replace(array('ITEMDEF','itemdef','[',']'), '', $line));
            continue;
        } elseif ($line == $check){
            return $itemdef;
        }
    }
}

function stripComments($string){
    if (preg_match("/(\/\/)/", $string)){
        $s = explode("//", $string);
        return $s[0];
    }
    return $string;
}

function chardefExport($file, $fileName, $conn){
    global $chardefTable;
    $scp = new SplFileObject($file);
    $scp->setFlags(SplFileObject::SKIP_EMPTY);
    $baseStat_prefix = "bstat_";

    $count = 0;
    foreach ($scp as $line){
        $line = trim($line);
        
        // LOCATE CHARDEF HEADER
        if (preg_match("/^\\[(CHARDEF.*?)\\]/i", $line)){
            $chardef = trim(str_replace(array('CHARDEF','chardef','[',']'), '', $line));
            $color = 0;
            continue;
        }
        
        if (!isset($chardef))
            continue;
        
        // DETERMINE IF BASE CHARACTER, SET DEFNAME AND/OR ID
        if (preg_match("/(^DEFNAME=.*?)|(^ID=.*?)/i", $line)){
            if (ctype_xdigit($chardef)) {
                $base = true;
                $id = $chardef;
                if (preg_match("/(^DEFNAME=.*?)/i", $line)){
                    $d = explode("=", $line);
                    $defname = stripComments(trim($d[1]));
                }
                $conn->query("INSERT INTO $chardefTable (id, defname) VALUES('$id','$defname')") or die($conn->error);
            } else {
                if (preg_match("/(^ID=.*?)/i", $line)){
                    $d = explode("=", $line);
                    $base_id = stripComments(trim($d[1]));
                }
                $base = false;
                $id = $chardef;
                $defname = $chardef;
                $conn->query("INSERT INTO $chardefTable (id, baseid, defname) VALUES('$id','$base_id','$defname')") or die($conn->error);
            }
            $count ++;
            continue;
        }
        
        // GET PET ICONS FOR BASE CHARS OR OTHERS WITH ICON PROPERTY SET
        if (preg_match("/(^ICON=.*?)/i", $line)){
            $d = explode("=", $line);
            $icon = findBaseHexIcon(trim($d[1]));
            $conn->query("UPDATE $chardefTable SET icon = '$icon' WHERE id = '$chardef'") or die($conn->error);
            continue;
        }
                
        // FIND DATA
        // Data searches grouped in similar data formats
        
        // FAME / KARMA
        if (preg_match("/(^FAME=.*?)|(^KARMA=.*?)/i", $line)){
            $d = explode("=", $line);
            $s = trim(strtolower($d[0]));
            $i = trim(str_replace(array('{','}'), '', $d[1]));
            $data = stripComments(preg_replace('/\s+/', ' to ', $i));
            $conn->query("UPDATE $chardefTable SET $s = '$data' WHERE id = '$chardef'") or die($conn->error);
            continue;
        }
        
        // FIND BASE STATS (STR, DEX, INT, MAXHITS)
        // COLUMN STRUCTURE: bstat_str, bstat_int, etc...
        if (preg_match("/(^STR=.*?)|(^DEX=.*?)|(^INT=.*?)|(^MAXHITS=.*?)/i", $line)){
            $d = explode("=", $line);
            $s = trim(strtolower($d[0]));
            $i = trim(str_replace(array('{','}'), '', $d[1]));
            $data = stripComments(preg_replace('/\s+/', ' - ', $i));
            $baseStat = $baseStat_prefix.$s;    
            $conn->query("UPDATE $chardefTable SET $baseStat = '$data' WHERE id = '$chardef'") or die($conn->error);
            continue;
        }
        
        // CATEGORY / SUBSECTION / DESCRIPTION / NAME / ARMOR / RESOURCES
        if (preg_match("/(^CATEGORY=.*?)|(^SUBSECTION=.*?)|(^DESCRIPTION=.*?)|(^NAME=.*?)|(^ARMOR=.*?)|(^​RESOURCES=.*?)/i", $line)){
            $d = explode("=", $line);
            $s = trim(strtolower($d[0]));
            $data = stripComments(trim($d[1]));
            
            $stmt = $conn->prepare("UPDATE $chardefTable SET $s = ? WHERE id = '$chardef'");
            $stmt->bind_param("s", $data);
            $stmt->execute() or die($stmt->error);
            continue;
        }
        
        // DAMAGE PROPERTY
        if (preg_match("/(^DAM=.*?)/i", $line)){
            $d = explode("=", $line);
            $data = trim($d[1]);
            $dam = str_replace(",", " - ", $data);
            $dmg = stripComments($dam);
            $conn->query("UPDATE $chardefTable SET damage = '$dmg' WHERE id = '$chardef'") or die($conn->error);
            continue;
        }

        // BARDING DIFF
        if (preg_match("/(^tag\.barding\.diff=.*?)/i", strtolower($line))){
            $d = explode("=", $line);
            $bdiff = rtrim(stripComments($d[1]));
            $conn->query("UPDATE $chardefTable SET barding_diff = '$bdiff' WHERE id = '$chardef'") or die($conn->error);
            continue;
        }
        
        // COLOR
        if (preg_match("/(^COLOR=.*?)/i", $line)){
            $d = explode("=", $line);
            $data = $d[1];
            if (ctype_xdigit($data))
                $color = stripComments($data);
            $conn->query("UPDATE $chardefTable SET color = '$color' WHERE id = '$chardef'") or die($conn->error);
        }        
    }
    
    if ($count <= 0){
        echo "No chardefs found in $fileName \n";
    } else {
        echo "$count chardefs exported from $fileName \n";
    }
    return $count;
} 
]]>
UPDATES:
2/01/2018:
- Expression searches are now case INsensitive ( CHARDEF = chardef )


One benefit to this script is that it will also export stuff under the @Create trigger, properties that are only set when the character is actually spawned or created... so if you want to have some sort of monster compendium or bestiary on your website, you'd probably want to display the damage, strength, dexterity and intelligence ranges and whatnot. It will search your icons script file to match the ICON property with the actual hexidecimal ID # for that icon item in the MUL files. It will also truncate comments and eliminate white spaces from all variables before inserting them into the table.

Example of the data put to work:
http://www.gargoylepoop.com/bestiary

For this to work, you will either need to have a web server with PHP 5x or 7x and copy your NPC script files to that -OR- you can do it how I am and install PHP on your Sphere machine (Windows for me) and run the script using a batch file. You then simply double click the batch file and watch the magic happen. You'll also need to make sure MySQLi extension is enabled (it seems Windows' PHP does not have it enabled by default). Of course, you also need a MySQL server somewhere. You can't use mine Big Grin

How I have mine setup:
C:\Sphere\php\EXPORT.bat
C:\Sphere\php\chardef_export.php

Batch file (adjust paths accordingly)
Code:
@echo off
C:\php\php.exe C:\Sphere\php\chardef_export.php
echo Press any key to close...
pause >nul

MySQL table structure:

.jpg  table_structure.jpg (Size: 131.27 KB / Downloads: 71)
.jpg  table_example.jpg (Size: 136.72 KB / Downloads: 37)

PHP Code:
CREATE TABLE `chardefs` (
 `idx` int(11) NOT NULL AUTO_INCREMENT,
 `id` varchar(30) DEFAULT NULL,
 `baseid` text,
 `defname` text,
 `icon` varchar(10) DEFAULT NULL,
 `bstat_str` varchar(30) DEFAULT NULL,
 `bstat_dex` varchar(30) DEFAULT NULL,
 `bstat_int` varchar(30) DEFAULT NULL,
 `bstat_maxhits` varchar(30) DEFAULT NULL,
 `damage` varchar(13) DEFAULT NULL,
 `armor` varchar(20) DEFAULT NULL,
 `barding_diff` varchar(6) DEFAULT NULL,
 `fame` varchar(20) DEFAULT NULL,
 `karma` varchar(20) DEFAULT NULL,
 `color` varchar(20) NOT NULL DEFAULT '0',
 `resources` text,
 `name` text,
 `category` text,
 `subsection` text,
 `description` text,
 PRIMARY KEY (`idx`),
 UNIQUE KEY `id` (`id`)
) ENGINE=InnoDB DEFAULT CHARSET=utf 

A screenshot of the script output:

.jpg  output.jpg (Size: 89.66 KB / Downloads: 63)

Your MySQL user will need all DATA privileges, along with DROP and ALTER.

In the PHP script, alter your settings as needed. You'll need to point the script to your NPC's folder (Sphere/scripts/npcs) and your pet icons file (Sphere/scripts/items/sphere_item_char_icons.scp). If you have NPCs spread out everywhere, you can move them all together or you can alter the script to point to each directory. Keep in mind, this script looks for the CHARDEF header in ALL .scp files in the directory, so if you have other files in the directory, it will still go through them but ignore everything unless it's a CHARDEF script.

The script will run several thousand MySQL queries. This should not be an issue if you have any half decent hardware. For me, with an 6th gen i5 and 8gb of RAM, the script takes 15-17 seconds.

With all that said, here ya go! Have fun!

The PHP script (chardef_export.php)
PHP Code:
<?php
/*
Last Edit: 2/01/2018
Written by n1ghtwish
*/

// ------ SETTINGS -------
// MySQL connection info
$INFO['sql_host']    =    "YOUR HOST HERE";
$INFO['sql_user']    =    "MYSQL USER HERE";
$INFO['sql_pass']    =    "MYSQL PASSWORD HERE";
$INFO['sql_db']        =    "DATABASE NAME";

// MySQL table to send data to
$chardefTable         = "chardefs";

// Path to NPC script directory
// Might have to move some files around -OR- modify the script
$scriptPath         = "C:/Sphere/scripts/npcs/";

// sphere_item_char_icons.scp (or whatever yours is called)
$sphereIconsFile     = "C:/Sphere/scripts/items/sphere_item_char_icons.scp";

// icon to use for chardefs without one
$noIcon             = "02100"; // wisp
// -------------------------------

$start = time();
echo "Connecting to MySQL database... \n";
// establish connection
$conn = new MySQLi($INFO['sql_host'], $INFO['sql_user'], $INFO['sql_pass'], $INFO['sql_db']) or die("Connection failed: " . $conn->connect_error);

echo "Using table '$chardefTable'... \n";
echo "Truncating table '$chardefTable'... \n\n";
$conn->query("TRUNCATE TABLE $chardefTable") or die($conn->error);

$total = 0;
$dir = new DirectoryIterator($scriptPath);
foreach ($dir as $file){
    if ($file->getExtension() == "scp") {
        echo "Scanning $file ... \n";
        $fullPath = $scriptPath . $file;
        $total += chardefExport($fullPath, $file, $conn);
    }
}

// find and set missing icons
$result = $conn->query("SELECT baseid FROM $chardefTable WHERE icon IS NULL") or die($conn->error);
$rows = $result->num_rows;
echo "\nFinding icons for $rows non-base chardefs...\n";

while ($i = $result->fetch_assoc()){
    $baseid = $i['baseid'];
    $icon = getMissingIcon($baseid, $conn);
    $conn->query("UPDATE $chardefTable SET icon = '$icon' WHERE baseid = '$baseid'") or die($conn->error);
}

// finally, add wisp icon to final rows without icon set
$result = $conn->query("UPDATE $chardefTable SET icon = '$noIcon' WHERE icon = '' OR icon IS NULL") or die($conn->error);
$affected = $conn->affected_rows;
echo "$affected chardefs left without icon property, setting to '$noIcon'. \n";

$end = time();
$elapsed = $end - $start;

// Yay, done!
echo "\nYay, done!  $total TOTAL chardefs exported in $elapsed seconds!\n";

function getMissingIcon($baseid, $conn){
    global $chardefTable;
    $result = $conn->query("SELECT icon FROM $chardefTable WHERE defname = '$baseid'") or die($conn->error);
    $i = $result->fetch_assoc();
    return $i['icon'];    
}

function findBaseHexIcon($icon_def){
    global $sphereIconsFile;
    $iconFile = new SplFileObject($sphereIconsFile);
    $check = "DEFNAME=" . $icon_def;
    foreach ($iconFile as $line){
        $line = trim($line);
        if (preg_match("/^\\[(ITEMDEF.*?)\\]/i", $line)){
            $itemdef = trim(str_replace(array('ITEMDEF','itemdef','[',']'), '', $line));
            continue;
        } elseif ($line == $check){
            return $itemdef;
        }
    }
}

function stripComments($string){
    if (preg_match("/(\/\/)/", $string)){
        $s = explode("//", $string);
        return $s[0];
    }
    return $string;
}

function chardefExport($file, $fileName, $conn){
    global $chardefTable;
    $scp = new SplFileObject($file);
    $scp->setFlags(SplFileObject::SKIP_EMPTY);
    $baseStat_prefix = "bstat_";

    $count = 0;
    foreach ($scp as $line){
        $line = trim($line);
        
        // LOCATE CHARDEF HEADER
        if (preg_match("/^\\[(CHARDEF.*?)\\]/i", $line)){
            $chardef = trim(str_replace(array('CHARDEF','chardef','[',']'), '', $line));
            $color = 0;
            continue;
        }
        
        if (!isset($chardef))
            continue;
        
        // DETERMINE IF BASE CHARACTER, SET DEFNAME AND/OR ID
        if (preg_match("/(^DEFNAME=.*?)|(^ID=.*?)/i", $line)){
            if (ctype_xdigit($chardef)) {
                $base = true;
                $id = $chardef;
                if (preg_match("/(^DEFNAME=.*?)/i", $line)){
                    $d = explode("=", $line);
                    $defname = stripComments(trim($d[1]));
                }
                $conn->query("INSERT INTO $chardefTable (id, defname) VALUES('$id','$defname')") or die($conn->error);
            } else {
                if (preg_match("/(^ID=.*?)/i", $line)){
                    $d = explode("=", $line);
                    $base_id = stripComments(trim($d[1]));
                }
                $base = false;
                $id = $chardef;
                $defname = $chardef;
                $conn->query("INSERT INTO $chardefTable (id, baseid, defname) VALUES('$id','$base_id','$defname')") or die($conn->error);
            }
            $count ++;
            continue;
        }
        
        // GET PET ICONS FOR BASE CHARS OR OTHERS WITH ICON PROPERTY SET
        if (preg_match("/(^ICON=.*?)/i", $line)){
            $d = explode("=", $line);
            $icon = findBaseHexIcon(trim($d[1]));
            $conn->query("UPDATE $chardefTable SET icon = '$icon' WHERE id = '$chardef'") or die($conn->error);
            continue;
        }
                
        // FIND DATA
        // Data searches grouped in similar data formats
        
        // FAME / KARMA
        if (preg_match("/(^FAME=.*?)|(^KARMA=.*?)/i", $line)){
            $d = explode("=", $line);
            $s = trim(strtolower($d[0]));
            $i = trim(str_replace(array('{','}'), '', $d[1]));
            $data = stripComments(preg_replace('/\s+/', ' to ', $i));
            $conn->query("UPDATE $chardefTable SET $s = '$data' WHERE id = '$chardef'") or die($conn->error);
            continue;
        }
        
        // FIND BASE STATS (STR, DEX, INT, MAXHITS)
        // COLUMN STRUCTURE: bstat_str, bstat_int, etc...
        if (preg_match("/(^STR=.*?)|(^DEX=.*?)|(^INT=.*?)|(^MAXHITS=.*?)/i", $line)){
            $d = explode("=", $line);
            $s = trim(strtolower($d[0]));
            $i = trim(str_replace(array('{','}'), '', $d[1]));
            $data = stripComments(preg_replace('/\s+/', ' - ', $i));
            $baseStat = $baseStat_prefix.$s;    
            $conn->query("UPDATE $chardefTable SET $baseStat = '$data' WHERE id = '$chardef'") or die($conn->error);
            continue;
        }
        
        // CATEGORY / SUBSECTION / DESCRIPTION / NAME / ARMOR / RESOURCES
        if (preg_match("/(^CATEGORY=.*?)|(^SUBSECTION=.*?)|(^DESCRIPTION=.*?)|(^NAME=.*?)|(^ARMOR=.*?)|(^​RESOURCES=.*?)/i", $line)){
            $d = explode("=", $line);
            $s = trim(strtolower($d[0]));
            $data = stripComments(trim($d[1]));
            
            $stmt = $conn->prepare("UPDATE $chardefTable SET $s = ? WHERE id = '$chardef'");
            $stmt->bind_param("s", $data);
            $stmt->execute() or die($stmt->error);
            continue;
        }
        
        // DAMAGE PROPERTY
        if (preg_match("/(^DAM=.*?)/i", $line)){
            $d = explode("=", $line);
            $data = trim($d[1]);
            $dam = str_replace(",", " - ", $data);
            $dmg = stripComments($dam);
            $conn->query("UPDATE $chardefTable SET damage = '$dmg' WHERE id = '$chardef'") or die($conn->error);
            continue;
        }

        // BARDING DIFF
        if (preg_match("/(^tag\.barding\.diff=.*?)/i", strtolower($line))){
            $d = explode("=", $line);
            $bdiff = rtrim(stripComments($d[1]));
            $conn->query("UPDATE $chardefTable SET barding_diff = '$bdiff' WHERE id = '$chardef'") or die($conn->error);
            continue;
        }
        
        // COLOR
        if (preg_match("/(^COLOR=.*?)/i", $line)){
            $d = explode("=", $line);
            $data = $d[1];
            if (ctype_xdigit($data))
                $color = stripComments($data);
            $conn->query("UPDATE $chardefTable SET color = '$color' WHERE id = '$chardef'") or die($conn->error);
        }        
    }
    
    if ($count <= 0){
        echo "No chardefs found in $fileName \n";
    } else {
        echo "$count chardefs exported from $fileName \n";
    }
    return $count;
} 
]]> <![CDATA[Dragon Shard - The Second Age Script Pack]]> https://forum.spherecommunity.net/Thread-Dragon-Shard-The-Second-Age-Script-Pack Wed, 08 Nov 2017 15:43:38 +0100 https://forum.spherecommunity.net/Thread-Dragon-Shard-The-Second-Age-Script-Pack

https://github.com/joaoescribano/DragonShardScripts]]>

https://github.com/joaoescribano/DragonShardScripts]]> <![CDATA[Fixing wrong Z position]]> https://forum.spherecommunity.net/Thread-Fixing-wrong-Z-position Tue, 18 Jul 2017 17:59:51 +0200 https://forum.spherecommunity.net/Thread-Fixing-wrong-Z-position
Ok... me too! but not anymore!!!

Code:
[FUNCTION f_fix_z]
local.z = <z>
local.tz = <serv.map(<p.x>,<p.y>).terrain.z>

if (<abs <eval (<local.z> - <local.tz>)>> < 10)
    z <local.tz>
else
    local.z <local.tz>
    for x 1 <serv.map(<p.x>,<p.y>).statics>
        if (<abs <eval (<local.z> - <serv.map(<p.x>,<p.y>).statics.<local.x>.z>)>> < 10)
            local.z <serv.map(<p.x>,<p.y>).statics.<local.x>.z>
        endif
    endfor

    z <local.z>
endif

To use it, just need to call in any item or mobile after create at the desired position...

The script will try to detect the correct Z position at X,Y based on:

- The land Z point
- The item Z point before the function (in case the item is added in structures with more than 1 floor)
- The possible view/climbable height

So... there is a lot do in this script, but.... it helped me A LOT!]]>
Ok... me too! but not anymore!!!

Code:
[FUNCTION f_fix_z]
local.z = <z>
local.tz = <serv.map(<p.x>,<p.y>).terrain.z>

if (<abs <eval (<local.z> - <local.tz>)>> < 10)
    z <local.tz>
else
    local.z <local.tz>
    for x 1 <serv.map(<p.x>,<p.y>).statics>
        if (<abs <eval (<local.z> - <serv.map(<p.x>,<p.y>).statics.<local.x>.z>)>> < 10)
            local.z <serv.map(<p.x>,<p.y>).statics.<local.x>.z>
        endif
    endfor

    z <local.z>
endif

To use it, just need to call in any item or mobile after create at the desired position...

The script will try to detect the correct Z position at X,Y based on:

- The land Z point
- The item Z point before the function (in case the item is added in structures with more than 1 floor)
- The possible view/climbable height

So... there is a lot do in this script, but.... it helped me A LOT!]]> <![CDATA[[SOURCE] STRTOKEN]]> https://forum.spherecommunity.net/Thread-SOURCE-STRTOKEN Wed, 15 Feb 2017 18:15:20 +0100 https://forum.spherecommunity.net/Thread-SOURCE-STRTOKEN
Usage: <STRTOKEN text,n,seperator>

<STRTOKEN a.b.c.d.e,3,.> returns c
<STRTOKEN a.b.c.d.e,0,.> returns 5
<STRTOKEN a.b.c.d.e,6,.> returns null

You can also specify a range of tokens:
<STRTOKEN a.b.c.d.e,2-,.> returns 2nd token onwards = b.c.d.e
<STRTOKEN a.b.c.d.e,2-4,.> returns tokens 2 through 4 = b.c.d

Installation;
Note: Please backup your files before starting to edit.

Open File: src/common/CScriptObj.cpp

find:
Code:
        case SSC_EXPLODE:

add before:
Code:
        case SSC_StrToken:
            {
                TCHAR * ppArgs[3];
                size_t iQty = Str_ParseCmds(const_cast<TCHAR *>(pszKey), ppArgs, COUNTOF(ppArgs), ",");
                if ( iQty < 3 )
                    return false;

                if ( *ppArgs[2] == '"' )
                   ppArgs[2]++;
                
                for (TCHAR * pEnd = ppArgs[2] + strlen(ppArgs[2]) - 1; pEnd >= ppArgs[2]; pEnd--)
                {
                    if ( *pEnd == '"' )
                    {
                        *pEnd = '\0';
                        break;
                    }
                }
                TCHAR * iSep = ppArgs[2];
                for (TCHAR *iSeperator = ppArgs[2] + strlen(ppArgs[2]) - 1; iSeperator > ppArgs[2]; iSeperator--)
                    *iSeperator = '\0';

                if ( *ppArgs[0] == '"' )
                    ppArgs[0]++;
                for (TCHAR * pEnd = ppArgs[0] + strlen(ppArgs[0]) - 1; pEnd >= ppArgs[0]; pEnd--)
                {
                    if ( *pEnd == '"' )
                    {
                        *pEnd = '\0';
                        break;
                    }
                }

                sVal = "";
                TCHAR *ppCmd[255];
                size_t count = Str_ParseCmds(ppArgs[0], ppCmd, COUNTOF(ppCmd), iSep);

                TCHAR * ppArrays[2];
                size_t iArrays = Str_ParseCmds(ppArgs[1], ppArrays, COUNTOF(ppArrays), "-");
                INT64    iValue = Exp_GetVal(ppArgs[1]);
                INT64     iValueEnd = iValue;
                
                if (iArrays > 1)
                {
                    iValue = Exp_GetVal(ppArrays[0]);
                    iValueEnd = Exp_GetVal(ppArrays[1]);
                    if (iValueEnd <= 0 || iValueEnd > count)
                        iValueEnd = count;                    
                }
                
                if (iValue < 0)
                    return false;
                else if (iValue > 0)
                {
                    if (iValue > count)
                        return false;
                    else if (iValue == iValueEnd)
                        sVal = ppCmd[iValue - 1];
                    else
                    {
                        sVal.Add(ppCmd[iValue - 1]);
                        INT64 i = iValue + 1;
                        for ( ; i <= iValueEnd; i++)
                        {
                            sVal.Add(iSep);
                            sVal.Add(ppCmd[i - 1]);
                        }
                    }
                }
                else
                    sVal.FormatVal(static_cast<long>(count));
            }
            return true;

Open File: src/tables/CScriptObj_functions.tbl

find:
Code:
ADD(StrSub,            "StrSub")

add after:
Code:
ADD(StrToken,        "StrToken")
]]>
Usage: <STRTOKEN text,n,seperator>

<STRTOKEN a.b.c.d.e,3,.> returns c
<STRTOKEN a.b.c.d.e,0,.> returns 5
<STRTOKEN a.b.c.d.e,6,.> returns null

You can also specify a range of tokens:
<STRTOKEN a.b.c.d.e,2-,.> returns 2nd token onwards = b.c.d.e
<STRTOKEN a.b.c.d.e,2-4,.> returns tokens 2 through 4 = b.c.d

Installation;
Note: Please backup your files before starting to edit.

Open File: src/common/CScriptObj.cpp

find:
Code:
        case SSC_EXPLODE:

add before:
Code:
        case SSC_StrToken:
            {
                TCHAR * ppArgs[3];
                size_t iQty = Str_ParseCmds(const_cast<TCHAR *>(pszKey), ppArgs, COUNTOF(ppArgs), ",");
                if ( iQty < 3 )
                    return false;

                if ( *ppArgs[2] == '"' )
                   ppArgs[2]++;
                
                for (TCHAR * pEnd = ppArgs[2] + strlen(ppArgs[2]) - 1; pEnd >= ppArgs[2]; pEnd--)
                {
                    if ( *pEnd == '"' )
                    {
                        *pEnd = '\0';
                        break;
                    }
                }
                TCHAR * iSep = ppArgs[2];
                for (TCHAR *iSeperator = ppArgs[2] + strlen(ppArgs[2]) - 1; iSeperator > ppArgs[2]; iSeperator--)
                    *iSeperator = '\0';

                if ( *ppArgs[0] == '"' )
                    ppArgs[0]++;
                for (TCHAR * pEnd = ppArgs[0] + strlen(ppArgs[0]) - 1; pEnd >= ppArgs[0]; pEnd--)
                {
                    if ( *pEnd == '"' )
                    {
                        *pEnd = '\0';
                        break;
                    }
                }

                sVal = "";
                TCHAR *ppCmd[255];
                size_t count = Str_ParseCmds(ppArgs[0], ppCmd, COUNTOF(ppCmd), iSep);

                TCHAR * ppArrays[2];
                size_t iArrays = Str_ParseCmds(ppArgs[1], ppArrays, COUNTOF(ppArrays), "-");
                INT64    iValue = Exp_GetVal(ppArgs[1]);
                INT64     iValueEnd = iValue;
                
                if (iArrays > 1)
                {
                    iValue = Exp_GetVal(ppArrays[0]);
                    iValueEnd = Exp_GetVal(ppArrays[1]);
                    if (iValueEnd <= 0 || iValueEnd > count)
                        iValueEnd = count;                    
                }
                
                if (iValue < 0)
                    return false;
                else if (iValue > 0)
                {
                    if (iValue > count)
                        return false;
                    else if (iValue == iValueEnd)
                        sVal = ppCmd[iValue - 1];
                    else
                    {
                        sVal.Add(ppCmd[iValue - 1]);
                        INT64 i = iValue + 1;
                        for ( ; i <= iValueEnd; i++)
                        {
                            sVal.Add(iSep);
                            sVal.Add(ppCmd[i - 1]);
                        }
                    }
                }
                else
                    sVal.FormatVal(static_cast<long>(count));
            }
            return true;

Open File: src/tables/CScriptObj_functions.tbl

find:
Code:
ADD(StrSub,            "StrSub")

add after:
Code:
ADD(StrToken,        "StrToken")
]]> <![CDATA[Hangman]]> https://forum.spherecommunity.net/Thread-Hangman Wed, 15 Feb 2017 15:40:47 +0100 https://forum.spherecommunity.net/Thread-Hangman
83 words included, but you can add/remove/replace as many words as you like.

Create a theme set of words , use for quests, with a little bit of editing you could reward them a new item every time they get it correct.

Or you could just leave it alone for some random Fun Smile

Hangman_v1_1

If you've already download please change Word count in names section to 83 Smile]]>
83 words included, but you can add/remove/replace as many words as you like.

Create a theme set of words , use for quests, with a little bit of editing you could reward them a new item every time they get it correct.

Or you could just leave it alone for some random Fun Smile

Hangman_v1_1

If you've already download please change Word count in names section to 83 Smile]]> <![CDATA[Pontoon / Blackjack / 21]]> https://forum.spherecommunity.net/Thread-Pontoon-Blackjack-21 Mon, 13 Feb 2017 03:41:55 +0100 https://forum.spherecommunity.net/Thread-Pontoon-Blackjack-21
No gambling on it atm, I may add that on a further version.

Pontoon / Blackjack / 21

Feel free to comment, any advice is welcome Wink]]>
No gambling on it atm, I may add that on a further version.

Pontoon / Blackjack / 21

Feel free to comment, any advice is welcome Wink]]> <![CDATA[Where am i?]]> https://forum.spherecommunity.net/Thread-Where-am-i Fri, 03 Feb 2017 19:06:36 +0100 https://forum.spherecommunity.net/Thread-Where-am-i
Code:
[FUNCTION f_where_am_i]
src.dialog d_where_am_i

[DIALOG d_where_am_i]
0,0 // This makes the gump start in the top left corner of the screen
page 0
resizepic 0 0 3600 640 480
gumppic 1 1 5500
gumppic 60 50 5528
gumppic 2 2 5536
button <EVAL ((<p.x>*10)/137)+60> <EVAL ((<p.y>*10)/112)+50> 4507 4507 1 0 0
text <EVAL ((<p.x>*10)/137)+110> <EVAL ((<p.y>*10)/112)+80> 90 0

[DIALOG d_where_am_i TEXT]
YOU ARE HERE!

Trammel/Felucca map.]]>
Code:
[FUNCTION f_where_am_i]
src.dialog d_where_am_i

[DIALOG d_where_am_i]
0,0 // This makes the gump start in the top left corner of the screen
page 0
resizepic 0 0 3600 640 480
gumppic 1 1 5500
gumppic 60 50 5528
gumppic 2 2 5536
button <EVAL ((<p.x>*10)/137)+60> <EVAL ((<p.y>*10)/112)+50> 4507 4507 1 0 0
text <EVAL ((<p.x>*10)/137)+110> <EVAL ((<p.y>*10)/112)+80> 90 0

[DIALOG d_where_am_i TEXT]
YOU ARE HERE!

Trammel/Felucca map.]]> <![CDATA[sphere send email]]> https://forum.spherecommunity.net/Thread-sphere-send-email Wed, 21 Sep 2016 12:10:59 +0200 https://forum.spherecommunity.net/Thread-sphere-send-email change transcoding occupy too large
[Image: send0.png]
[Image: send1.png]
[Image: send2.png]
[Image: send3.png]
part of the code
[Image: send4.png]
I deleted all my posts, because some people think that this program have Trojan.
It makes me really disappointed.
Using this program, please carefully think clearly.
This is a Chinese language program, not a C ++ or other programming languages
There upx shell
Antivirus program should have error report
I can guarantee that this program does not have any viruses and Trojans
If you think it was a virus or trojan, please do not download, do not come to question me, I think this is an insult

Sendemail]]> change transcoding occupy too large
[Image: send0.png]
[Image: send1.png]
[Image: send2.png]
[Image: send3.png]
part of the code
[Image: send4.png]
I deleted all my posts, because some people think that this program have Trojan.
It makes me really disappointed.
Using this program, please carefully think clearly.
This is a Chinese language program, not a C ++ or other programming languages
There upx shell
Antivirus program should have error report
I can guarantee that this program does not have any viruses and Trojans
If you think it was a virus or trojan, please do not download, do not come to question me, I think this is an insult

Sendemail]]> <![CDATA[In-Game Hue Tester/Sampler]]> https://forum.spherecommunity.net/Thread-In-Game-Hue-Tester-Sampler Mon, 05 Sep 2016 20:57:22 +0200 https://forum.spherecommunity.net/Thread-In-Game-Hue-Tester-Sampler

.jpg  ht1.jpg (Size: 47.52 KB / Downloads: 113)
.jpg  htrange.jpg (Size: 192.16 KB / Downloads: 98)
.jpg  htfile.jpg (Size: 183.11 KB / Downloads: 70)
.jpg  htalight.jpg (Size: 204.53 KB / Downloads: 77)

This tool will allow you to sample, in-game, either a range of hues, a list of hues from a file (hues.txt, for example), OR all 3,000 slots at once. You can choose any item in game to sample the hues with. It's pretty self explanatory, but basically just add this script and jump in, using the command ".huetest". From there, you will be given options.

If you'd like to have it read from a file, create "hues.txt" in your root Sphere directory and fill it with decimal hues, one hue per line. Ex:

Code:
34
67
12
678
1234
.. and so on....

You can create as many of these files as you want, just change the file you want to read from in the little options dialog you get when you use the command.

Post questions, comments and concerns! (and suggestions/bugs if I suck and missed something)

Code:
// In-Game Hue Tester/Sampler
// By n1ghtwish/Maximus
// LAST EDITED: 9/06/2016

[DEFNAME hueTest_Settings]
htMaxPP = 15                            // max tiles per page (don't change this unless you modify the overall dialog size and other code)
htDefHuesFile = "hues.txt"                // default hues file from root Sphere directory

[FUNCTION huetest]
sdialog dHueTest

[DIALOG dHueTest]
150,150
page 0
resizepic 0 0 2620 300 220
checkertrans 5 5 290 215
dhtmlgump 15 15 269 25 1 0 <def.center><def.big>Hue Tester - Options<def.bige><def.centere>
button 15 60 4005 4007 1 0 1 // hue range
dtext 57 60 68 Range
resizepic 100 60 9350 40 23
dtextentrylimited 103 61 40 23 0 1 4 <eval rand(1,1500)>
dtext 150 61 68 TO
resizepic 180 60 9350 40 23
dtextentrylimited 183 61 40 23 0 2 4 <eval rand(1501,3000)>
button 15 90 4005 4007 1 0 2 // file
dtext 57 90 68 File
resizepic 100 90 9350 180 23
dtextentrylimited 103 90 180 23 0 3 30 <def.htDefHuesFile>
button 15 120 4005 4007 1 0 3 // all 3,000
dtext 57 120 68 ALL Hues
button 15 180 4017 4019 1 0 0 // close
dtext 57 180 68 Close

[DIALOG dHueTest BUTTON]
ON=0 // cancel
sysmessage Aborted!

ON=1 // range
if (<isempty <argtxt1>>)||(<isempty <argtxt2>>)||(!<isnum <argtxt1>>)||(!<isnum <argtxt2>>)
    sysmessage Must provide two numbers for hue range!
    return 1
elseif (<isnum <argtxt1>>)&&(<isnum <argtxt2>>)&&(<argtxt1> > <argtxt2>)
    sysmessage Invalid range.
    return 1
endif
ctag.htType = 1
ctag.htB = <argtxt1>
ctag.htE = <argtxt2>
sysmessage Select target.
targetf fHuetest

ON=2 // file
if (!<FILE.FILEEXIST <argtxt3>>)
    sysmessage File "<argtxt3>" not found!
    return 1
endif
ctag.htType = 2
ctag.htFile = <argtxt3>
sysmessage Select target.
targetf fHuetest

ON=3 // all
ctag.htType = 3
sysmessage Select target.
targetf fHuetest

[FUNCTION fHuetest]
// You could get rid of this IF statement to allow targeting of characters as well
if (<argo.isitem>)
    ctag.htTileBG = 2620
    ctag.htPnum = 1
    argo.sdialog dHuetest2
    return 1
endif
sysmessage Items only, dummy!

[DIALOG dHuetest2]
100,100
page 0
resizepic 0 0 2620 700 560
checkertrans 5 5 695 555
doswitch <eval <src.ctag.htType> - 1>
    begin // range
        local.tnum = <eval <eval <src.ctag.htE> - <src.ctag.htB>> + 1>
        dhtmlgump 15 15 670 25 1 0 <def.center><def.big>Hue Tester - Range: <src.dctag.htB> to <src.dctag.htE><def.bige><def.centere>
    end
    begin // file
        FILE.MODE.WRITEFLAG = 0
        FILE.MODE.CREATEFLAG = 0
        FILE.MODE.READFLAG = 1
        if (<FILE.OPEN <src.ctag.htFile>>)
            local.tnum = <FILE.FILELINES <src.ctag.htFile>>
        endif
        dhtmlgump 15 15 670 25 1 0 <def.center><def.big>Hue Tester - File: <src.ctag.htFile> - <dlocal.tnum> hues<def.bige><def.centere>
    end
    begin // all
        local.tnum = 3000
        dhtmlgump 15 15 670 25 1 0 <def.center><def.big>Hue Tester - ALL HUES<def.bige><def.centere>
    end        
enddo
local.pages = <eval (((<local.tnum> - 1) / <def.htMaxPP>) + 1)>
if (<src.ctag.htPnum> > <local.pages>)
    src.ctag.htPnum = <dlocal.pages>
endif
local.offset = <qval (<src.ctag.htPnum> > 1) ? <eval ((<src.ctag.htPnum> - 1) * <def.htMaxPP>)> : 1>
local.x = 15
local.y = 45
if (<local.tnum> >= 1)
    for h <dlocal.offset> <eval <local.offset> + <eval <def.htMaxPP> - 1>>
        if (<local.h> <= <local.tnum>)
            local.c += 1
            resizepic <dlocal.x> <dlocal.y> <eval <src.ctag.htTileBG>> 126 126 // 2620 dark, 3000 light
            doswitch <eval <src.ctag.htType> - 1>
                begin // range
                    tilepichue <eval <local.x> + 45> <eval <local.y> + 15> <id> <eval <eval <local.h> + <src.ctag.htB>> - 1>
                    button <eval <local.x> + 46> <eval <local.y> + 135> 2103 2104 1 0 <eval <eval <local.h> + <src.ctag.htB> - 1> + 3>
                    dtext <eval <local.x> + 60> <eval <local.y> + 130> 1152 <eval <eval <local.h> + <src.ctag.htB>> - 1>
                end
                begin // file
                    tilepichue <eval <local.x> + 45> <eval <local.y> + 15> <id> <FILE.READLINE <dlocal.h>>
                    button <eval <local.x> + 46> <eval <local.y> + 135> 2103 2104 1 0 <eval <FILE.READLINE <dlocal.h>> + 3>
                    dtext <eval <local.x> + 60> <eval <local.y> + 130> 1152 <FILE.READLINE <dlocal.h>>
                end
                begin // all
                    tilepichue <eval <local.x> + 45> <eval <local.y> + 15> <id> <dlocal.h>
                    button <eval <local.x> + 46> <eval <local.y> + 135> 2103 2104 1 0 <eval <local.h> + 3>
                    dtext <eval <local.x> + 60> <eval <local.y> + 130> 1152 <dlocal.h>
                end
            enddo
            local.x += 135
            if (<local.c> == 5)
                local.x = 15
                local.y = 200
            elseif (<local.c> == 10)
                local.x = 15
                local.y = 360
            endif
        endif
    end
endif
FILE.CLOSE
button 15 517 4005 4007 1 0 3
dtext 50 517 1152 Toggle Light/Dark BG
if (<src.ctag.htPnum> > 1)
    button 275 520 9909 9909 1 0 1
endif
dhtmlgump 305 517 100 25 1 0 <def.center><eval <src.ctag.htPnum>> / <dlocal.pages><def.centere>
if (<local.pages> > <src.ctag.htPnum>)
    button 414 519 9903 9903 1 0 2
endif

[DIALOG dHuetest2 BUTTON]
ON=1 2
doswitch <eval <argn1> - 1>
    src.ctag.htPnum -= 1
    src.ctag.htPnum += 1
end
sdialog dHuetest2

ON=3
src.ctag.htTileBG = <qval <src.ctag.htTileBG> == 2620 ? 3000:2620>
sdialog dHuetest2

ON=4 3100
color = <eval <argn1> - 3>
]]>

.jpg  ht1.jpg (Size: 47.52 KB / Downloads: 113)
.jpg  htrange.jpg (Size: 192.16 KB / Downloads: 98)
.jpg  htfile.jpg (Size: 183.11 KB / Downloads: 70)
.jpg  htalight.jpg (Size: 204.53 KB / Downloads: 77)

This tool will allow you to sample, in-game, either a range of hues, a list of hues from a file (hues.txt, for example), OR all 3,000 slots at once. You can choose any item in game to sample the hues with. It's pretty self explanatory, but basically just add this script and jump in, using the command ".huetest". From there, you will be given options.

If you'd like to have it read from a file, create "hues.txt" in your root Sphere directory and fill it with decimal hues, one hue per line. Ex:

Code:
34
67
12
678
1234
.. and so on....

You can create as many of these files as you want, just change the file you want to read from in the little options dialog you get when you use the command.

Post questions, comments and concerns! (and suggestions/bugs if I suck and missed something)

Code:
// In-Game Hue Tester/Sampler
// By n1ghtwish/Maximus
// LAST EDITED: 9/06/2016

[DEFNAME hueTest_Settings]
htMaxPP = 15                            // max tiles per page (don't change this unless you modify the overall dialog size and other code)
htDefHuesFile = "hues.txt"                // default hues file from root Sphere directory

[FUNCTION huetest]
sdialog dHueTest

[DIALOG dHueTest]
150,150
page 0
resizepic 0 0 2620 300 220
checkertrans 5 5 290 215
dhtmlgump 15 15 269 25 1 0 <def.center><def.big>Hue Tester - Options<def.bige><def.centere>
button 15 60 4005 4007 1 0 1 // hue range
dtext 57 60 68 Range
resizepic 100 60 9350 40 23
dtextentrylimited 103 61 40 23 0 1 4 <eval rand(1,1500)>
dtext 150 61 68 TO
resizepic 180 60 9350 40 23
dtextentrylimited 183 61 40 23 0 2 4 <eval rand(1501,3000)>
button 15 90 4005 4007 1 0 2 // file
dtext 57 90 68 File
resizepic 100 90 9350 180 23
dtextentrylimited 103 90 180 23 0 3 30 <def.htDefHuesFile>
button 15 120 4005 4007 1 0 3 // all 3,000
dtext 57 120 68 ALL Hues
button 15 180 4017 4019 1 0 0 // close
dtext 57 180 68 Close

[DIALOG dHueTest BUTTON]
ON=0 // cancel
sysmessage Aborted!

ON=1 // range
if (<isempty <argtxt1>>)||(<isempty <argtxt2>>)||(!<isnum <argtxt1>>)||(!<isnum <argtxt2>>)
    sysmessage Must provide two numbers for hue range!
    return 1
elseif (<isnum <argtxt1>>)&&(<isnum <argtxt2>>)&&(<argtxt1> > <argtxt2>)
    sysmessage Invalid range.
    return 1
endif
ctag.htType = 1
ctag.htB = <argtxt1>
ctag.htE = <argtxt2>
sysmessage Select target.
targetf fHuetest

ON=2 // file
if (!<FILE.FILEEXIST <argtxt3>>)
    sysmessage File "<argtxt3>" not found!
    return 1
endif
ctag.htType = 2
ctag.htFile = <argtxt3>
sysmessage Select target.
targetf fHuetest

ON=3 // all
ctag.htType = 3
sysmessage Select target.
targetf fHuetest

[FUNCTION fHuetest]
// You could get rid of this IF statement to allow targeting of characters as well
if (<argo.isitem>)
    ctag.htTileBG = 2620
    ctag.htPnum = 1
    argo.sdialog dHuetest2
    return 1
endif
sysmessage Items only, dummy!

[DIALOG dHuetest2]
100,100
page 0
resizepic 0 0 2620 700 560
checkertrans 5 5 695 555
doswitch <eval <src.ctag.htType> - 1>
    begin // range
        local.tnum = <eval <eval <src.ctag.htE> - <src.ctag.htB>> + 1>
        dhtmlgump 15 15 670 25 1 0 <def.center><def.big>Hue Tester - Range: <src.dctag.htB> to <src.dctag.htE><def.bige><def.centere>
    end
    begin // file
        FILE.MODE.WRITEFLAG = 0
        FILE.MODE.CREATEFLAG = 0
        FILE.MODE.READFLAG = 1
        if (<FILE.OPEN <src.ctag.htFile>>)
            local.tnum = <FILE.FILELINES <src.ctag.htFile>>
        endif
        dhtmlgump 15 15 670 25 1 0 <def.center><def.big>Hue Tester - File: <src.ctag.htFile> - <dlocal.tnum> hues<def.bige><def.centere>
    end
    begin // all
        local.tnum = 3000
        dhtmlgump 15 15 670 25 1 0 <def.center><def.big>Hue Tester - ALL HUES<def.bige><def.centere>
    end        
enddo
local.pages = <eval (((<local.tnum> - 1) / <def.htMaxPP>) + 1)>
if (<src.ctag.htPnum> > <local.pages>)
    src.ctag.htPnum = <dlocal.pages>
endif
local.offset = <qval (<src.ctag.htPnum> > 1) ? <eval ((<src.ctag.htPnum> - 1) * <def.htMaxPP>)> : 1>
local.x = 15
local.y = 45
if (<local.tnum> >= 1)
    for h <dlocal.offset> <eval <local.offset> + <eval <def.htMaxPP> - 1>>
        if (<local.h> <= <local.tnum>)
            local.c += 1
            resizepic <dlocal.x> <dlocal.y> <eval <src.ctag.htTileBG>> 126 126 // 2620 dark, 3000 light
            doswitch <eval <src.ctag.htType> - 1>
                begin // range
                    tilepichue <eval <local.x> + 45> <eval <local.y> + 15> <id> <eval <eval <local.h> + <src.ctag.htB>> - 1>
                    button <eval <local.x> + 46> <eval <local.y> + 135> 2103 2104 1 0 <eval <eval <local.h> + <src.ctag.htB> - 1> + 3>
                    dtext <eval <local.x> + 60> <eval <local.y> + 130> 1152 <eval <eval <local.h> + <src.ctag.htB>> - 1>
                end
                begin // file
                    tilepichue <eval <local.x> + 45> <eval <local.y> + 15> <id> <FILE.READLINE <dlocal.h>>
                    button <eval <local.x> + 46> <eval <local.y> + 135> 2103 2104 1 0 <eval <FILE.READLINE <dlocal.h>> + 3>
                    dtext <eval <local.x> + 60> <eval <local.y> + 130> 1152 <FILE.READLINE <dlocal.h>>
                end
                begin // all
                    tilepichue <eval <local.x> + 45> <eval <local.y> + 15> <id> <dlocal.h>
                    button <eval <local.x> + 46> <eval <local.y> + 135> 2103 2104 1 0 <eval <local.h> + 3>
                    dtext <eval <local.x> + 60> <eval <local.y> + 130> 1152 <dlocal.h>
                end
            enddo
            local.x += 135
            if (<local.c> == 5)
                local.x = 15
                local.y = 200
            elseif (<local.c> == 10)
                local.x = 15
                local.y = 360
            endif
        endif
    end
endif
FILE.CLOSE
button 15 517 4005 4007 1 0 3
dtext 50 517 1152 Toggle Light/Dark BG
if (<src.ctag.htPnum> > 1)
    button 275 520 9909 9909 1 0 1
endif
dhtmlgump 305 517 100 25 1 0 <def.center><eval <src.ctag.htPnum>> / <dlocal.pages><def.centere>
if (<local.pages> > <src.ctag.htPnum>)
    button 414 519 9903 9903 1 0 2
endif

[DIALOG dHuetest2 BUTTON]
ON=1 2
doswitch <eval <argn1> - 1>
    src.ctag.htPnum -= 1
    src.ctag.htPnum += 1
end
sdialog dHuetest2

ON=3
src.ctag.htTileBG = <qval <src.ctag.htTileBG> == 2620 ? 3000:2620>
sdialog dHuetest2

ON=4 3100
color = <eval <argn1> - 3>
]]> <![CDATA[Linux/Bash: Creating Axis2 Web-Profile]]> https://forum.spherecommunity.net/Thread-Linux-Bash-Creating-Axis2-Web-Profile Mon, 23 May 2016 22:48:01 +0200 https://forum.spherecommunity.net/Thread-Linux-Bash-Creating-Axis2-Web-Profile We were struggling a bit to deliver a complete itemlist for Axis2 to all our GameMasters and Players who help creating buildings on a special build-server. Since we dont want share the entire gameserver-logic with the whole world. Smile

So we made this - and it works fine.

File 1 should be a bashfile. Please be aware, that...
- you have to adjust the pathes
- need awk
- need unix2dos
- need axis 2.0.4j

Code:
#!/bin/bash
SCRIPTPATH="/home/of/your/scripts"
awk -f /path/of/srvScriptStrip.awk $SCRIPTPATH/*.scp $SCRIPTPATH/custom/*.scp $SCRIPTPATH/npcs/*.scp $SCRIPTPATH/items/*.scp $SCRIPTPATH/stone/*.scp >output.txt
unix2dos output.txt

Code:
File 2 - srvScriptStrip.awk:
BEGIN{
}
{
$0 = tolower($0)
sub(/^\xef\xbb\xbf/,"")
if (($0 ~ /^\[itemdef/) || ($0 ~ /^id/) || ($0 ~ /^defname/) || ($0 ~ /^\[defname/) || ($0 ~ /^\[typedef/) || ($0 ~ /^\[chardef/) || ($0 ~ /^group/) || ($0 ~ /^p=/) || ($0 ~ /^\[spell/) || ($0 ~ /^\[skill/) || ($0 ~ /^\[areadef/) || ($0 ~ /^category/) || ($0 ~ /^subsection/) || ($0 ~ /^description/) || ($0 ~ /^name/) || ($0 ~ /^dupelist/) || ($0 ~ /^dupeitem/) || ($0 ~ /^\[template/) || ($0 ~ /^\[spawn/) || ($0 ~ /\[itemdef/)){
print($0)
    }
}
]]> We were struggling a bit to deliver a complete itemlist for Axis2 to all our GameMasters and Players who help creating buildings on a special build-server. Since we dont want share the entire gameserver-logic with the whole world. Smile

So we made this - and it works fine.

File 1 should be a bashfile. Please be aware, that...
- you have to adjust the pathes
- need awk
- need unix2dos
- need axis 2.0.4j

Code:
#!/bin/bash
SCRIPTPATH="/home/of/your/scripts"
awk -f /path/of/srvScriptStrip.awk $SCRIPTPATH/*.scp $SCRIPTPATH/custom/*.scp $SCRIPTPATH/npcs/*.scp $SCRIPTPATH/items/*.scp $SCRIPTPATH/stone/*.scp >output.txt
unix2dos output.txt

Code:
File 2 - srvScriptStrip.awk:
BEGIN{
}
{
$0 = tolower($0)
sub(/^\xef\xbb\xbf/,"")
if (($0 ~ /^\[itemdef/) || ($0 ~ /^id/) || ($0 ~ /^defname/) || ($0 ~ /^\[defname/) || ($0 ~ /^\[typedef/) || ($0 ~ /^\[chardef/) || ($0 ~ /^group/) || ($0 ~ /^p=/) || ($0 ~ /^\[spell/) || ($0 ~ /^\[skill/) || ($0 ~ /^\[areadef/) || ($0 ~ /^category/) || ($0 ~ /^subsection/) || ($0 ~ /^description/) || ($0 ~ /^name/) || ($0 ~ /^dupelist/) || ($0 ~ /^dupeitem/) || ($0 ~ /^\[template/) || ($0 ~ /^\[spawn/) || ($0 ~ /\[itemdef/)){
print($0)
    }
}
]]> <![CDATA[OSI Style House Placement Tool [SQLite]]]> https://forum.spherecommunity.net/Thread-OSI-Style-House-Placement-Tool-SQLite Sat, 23 Apr 2016 00:14:26 +0200 https://forum.spherecommunity.net/Thread-OSI-Style-House-Placement-Tool-SQLite ). Meant to run alongside Mordaunt's housing system by using some of its defname settings, but it can run standalone as well - if you don't use his house system, you will need to remove/edit some of this script (instructions for that are in the file).

Installation is simple - make sure you add MULTIDEF to your [RESOURCES] section in sphere.ini and reboot. Then load script/resync and run "hpl_setup" from console or in-game. Console will output # of houses/foundations placed into the table. You can specify your database file if you have one, otherwise Sphere will make one for you and stick this table in it.


.jpg  hpl1.jpg (Size: 95.22 KB / Downloads: 265)
.jpg  hpl2.jpg (Size: 189.5 KB / Downloads: 243)
.jpg  hpl3.jpg (Size: 80.94 KB / Downloads: 200)
.jpg  hpl4.jpg (Size: 88.4 KB / Downloads: 187)

Post bugs please!

-NW / Maximus

.scp  house_placement.scp (Size: 10.8 KB / Downloads: 94) ]]> ). Meant to run alongside Mordaunt's housing system by using some of its defname settings, but it can run standalone as well - if you don't use his house system, you will need to remove/edit some of this script (instructions for that are in the file).

Installation is simple - make sure you add MULTIDEF to your [RESOURCES] section in sphere.ini and reboot. Then load script/resync and run "hpl_setup" from console or in-game. Console will output # of houses/foundations placed into the table. You can specify your database file if you have one, otherwise Sphere will make one for you and stick this table in it.


.jpg  hpl1.jpg (Size: 95.22 KB / Downloads: 265)
.jpg  hpl2.jpg (Size: 189.5 KB / Downloads: 243)
.jpg  hpl3.jpg (Size: 80.94 KB / Downloads: 200)
.jpg  hpl4.jpg (Size: 88.4 KB / Downloads: 187)

Post bugs please!

-NW / Maximus

.scp  house_placement.scp (Size: 10.8 KB / Downloads: 94) ]]> <![CDATA[My litle script for easy use typedef_equipitem]]> https://forum.spherecommunity.net/Thread-My-litle-script-for-easy-use-typedef-equipitem Thu, 07 Apr 2016 17:02:56 +0200 https://forum.spherecommunity.net/Thread-My-litle-script-for-easy-use-typedef-equipitem
[events e_equipitem]
ON=@ItemClientTooltip
IF (<ACT.ISWEAPON>) || (<ACT.DEFNAME>==i_fishing_pole)

IF (<ACT.SKILL>==40)//Swordsmanship
SRC.ADDCLILOC 1061172 // or i.ADDCLILOC
ELSEIF (<ACT.SKILL>==41)//Macefighting
SRC.ADDCLILOC 1061173 // or i.ADDCLILOC
ELSEIF (<ACT.SKILL>==42)//Fencing
SRC.ADDCLILOC 1061174 // or i.ADDCLILOC
ELSEIF (<ACT.SKILL>==31)//Archery
SRC.ADDCLILOC 1061175 // or i.ADDCLILOC
ELSEIF (<ACT.SKILL>==57)//Throwing
SRC.ADDCLILOC 1112075
ENDIF

IF (<ACT.SPEED>)
SRC.ADDCLILOC 1061167,<ACT.SPEED> // or i.ADDCLILOC
ENDIF
IF (<EVAL <STRARG <ACT.RANGE>>> > 1)||(<EVAL <STREAT <ACT.RANGE>>> > 1)
IF (<EVAL <STREAT <ACT.RANGE>>> > <EVAL <STRARG <ACT.RANGE>>>)
SRC.ADDCLILOC 1061169,<EVAL <STREAT <ACT.RANGE>>> // or i.ADDCLILOC
ELSE
SRC.ADDCLILOC 1061169,<EVAL <ACT.RANGE>> // or i.ADDCLILOC
ENDIF
ENDIF


ENDIF

Like Sphere 56b]]>
[events e_equipitem]
ON=@ItemClientTooltip
IF (<ACT.ISWEAPON>) || (<ACT.DEFNAME>==i_fishing_pole)

IF (<ACT.SKILL>==40)//Swordsmanship
SRC.ADDCLILOC 1061172 // or i.ADDCLILOC
ELSEIF (<ACT.SKILL>==41)//Macefighting
SRC.ADDCLILOC 1061173 // or i.ADDCLILOC
ELSEIF (<ACT.SKILL>==42)//Fencing
SRC.ADDCLILOC 1061174 // or i.ADDCLILOC
ELSEIF (<ACT.SKILL>==31)//Archery
SRC.ADDCLILOC 1061175 // or i.ADDCLILOC
ELSEIF (<ACT.SKILL>==57)//Throwing
SRC.ADDCLILOC 1112075
ENDIF

IF (<ACT.SPEED>)
SRC.ADDCLILOC 1061167,<ACT.SPEED> // or i.ADDCLILOC
ENDIF
IF (<EVAL <STRARG <ACT.RANGE>>> > 1)||(<EVAL <STREAT <ACT.RANGE>>> > 1)
IF (<EVAL <STREAT <ACT.RANGE>>> > <EVAL <STRARG <ACT.RANGE>>>)
SRC.ADDCLILOC 1061169,<EVAL <STREAT <ACT.RANGE>>> // or i.ADDCLILOC
ELSE
SRC.ADDCLILOC 1061169,<EVAL <ACT.RANGE>> // or i.ADDCLILOC
ENDIF
ENDIF


ENDIF

Like Sphere 56b]]> <![CDATA[tGolemAssembly]]> https://forum.spherecommunity.net/Thread-tGolemAssembly Sun, 27 Mar 2016 09:19:05 +0200 https://forum.spherecommunity.net/Thread-tGolemAssembly
This uses Xun's Make my pet btw. You should grab that as well.

Code:
[TypeDef tClockworkAssembly]
On=@DClick
If !(<Src.Tinkering>)
Src.SMsgL -1,1071940    // You are not quite sure how to use this.
Return 1
EndIf
If (<Src.Tinkering> < 700)
Src.SMsgL -1,1071943    // You must be a journeyman or higher tinker to construct a golem.
Return 1
EndIf
If (<Src.Tag0.GolemDelay>)
Src.SMsgL -1,1071942    // You are too drained to make another golem. You must wait approximately one day to construct another.
Return 1
EndIf
If (<TopObj> != <Src.UID>)
Src.SMsgL -1,1071944    // The clockwork assembly must be in your backpack to construct a golem.
Return 1
EndIf
If <Src.CurFollower> > <Eval (<MaxFollowers> - 3)>
Src.SMsgL -1,1049607    // You have too many followers to control that creature.
Return 1
EndIf
If !(<Src.Restest 1 iPowerCrystal>)
Src.SMsgL -1,1071945    // You need a power crystal to construct a golem.
Return 1
ELIf !(<Src.Restest 5 iGears>)
Src.SMsgL -1,1071946    // You need more gears to construct a golem.
Return 1
ElIf !(<Src.Restest 50 iBronzeIngot>)
Src.SMsgL -1,1071947    // You need more bronze ingots to construct a golem.
Return 1
ElIf !(<Src.Restest 50 iIronIngot>)
Src.SMsgL -1,1071948    // You need more iron ingots to construct a golem.
Return 1
EndIf
If (<R1,1000> > <Eval ((<Src.Tinkering> - 700) * 2)>)
Src.SMsgL -1,1071941    // You failed to make the golem.
Return 1
Else
Serv.NewNpc cGolem
New.Fame=10
New.Karma=10
New.OStr=<MulDiv {251 350},<Src.Tinkering>,1000>
New.ODex=<MulDiv {76 100},<Src.Tinkering>,1000>
New.OInt=<MulDiv {101 150},<Src.Tinkering>,1000>
New.MaxHits=<MulDiv {151 210},<Src.Tinkering>,1000>
New.Wrestling=<MulDiv {601 1000},<Src.Tinkering>,1000>
New.Tactics=<MulDiv {601 1000},<Src.Tinkering>,1000>
New.MagisResistance=<MulDiv {1501 1900},<Src.Tinkering>,1000>
New.Parrying=<MulDiv {601 1000},<Src.Tinkering>,1000>
New.ResPhysical={35 55}
New.ResFire={50 60}
New.ResCold={10 30}
New.ResPoison={99 100}
New.ResEnergy={30 40}
New.P=<Src.P>
New.MakeMyPet
Src.CurFollowers += <New.ControlSlots>
Src.Tag.GolemDelay=1
Src.TimerF 864000,GolemDelay    // 24 hours; inclusive of the deciseconds multiplier.
Src.Sound 0241
Update
EndIf

[Function GolemDelay]
Src.Tag.GolemDelay=


[ItemDef iPowerCrystal]
ID=iMagicalCrystal2
Name=power crystal
NameLoc=1112811
Type=tNormal
Weight=1

Category=Resources
Subsection=Golems
Description=Power Crystal


[ItemDef iClockworkAssembly]
ID=iWinch
Name=clockwork assembly
NameLoc=1073426
Type=tClockworkAssembly
Weight=50

Category=Resources
Subsection=Golems
Description=Clockwork Assembly

On=@Create
Color=044E


[ItemDef iLeatherWolfAssembly]
ID=iWinch
Name=leather wolf assembly
NameLoc=1113031
Type=tNormal
SkillMake=Tinkering 1000
Resources=1 iClockworkAssembly,1 iPowerCrystal,2 iVoidEssnce
Weight=50

Category=Resources
Subsection=Golems
Description=Leather Wolf Assembly

On=@Create
Color=044E


[ItemDef iClockworkScorpionAssembly]
ID=iWinch
Name=clockwork scorpion assembly
NameLoc=1113032
Type=tNormal
SkillMake=Tinkering 1000
Resources=1 iClockworkAssembly,1 iPowerCrystal,1 iVoidEssnce
Weight=50

Category=Resources
Subsection=Golems
Description=Clockwork Scorpion Assembly

On=@Create
Color=044E


[ItemDef iVollemAssembly]
ID=iWinch
Name=vollem assembly
NameLoc=1113033
Type=tNormal
SkillMake=Tinkering 1000
Resources=1 iClockworkAssembly,1 iPowerCrystal,3 iVoidEssnce
Weight=50

Category=Resources
Subsection=Golems
Description=Vollem Assembly

On=@Create
Color=044E


[EOF]
]]>
This uses Xun's Make my pet btw. You should grab that as well.

Code:
[TypeDef tClockworkAssembly]
On=@DClick
If !(<Src.Tinkering>)
Src.SMsgL -1,1071940    // You are not quite sure how to use this.
Return 1
EndIf
If (<Src.Tinkering> < 700)
Src.SMsgL -1,1071943    // You must be a journeyman or higher tinker to construct a golem.
Return 1
EndIf
If (<Src.Tag0.GolemDelay>)
Src.SMsgL -1,1071942    // You are too drained to make another golem. You must wait approximately one day to construct another.
Return 1
EndIf
If (<TopObj> != <Src.UID>)
Src.SMsgL -1,1071944    // The clockwork assembly must be in your backpack to construct a golem.
Return 1
EndIf
If <Src.CurFollower> > <Eval (<MaxFollowers> - 3)>
Src.SMsgL -1,1049607    // You have too many followers to control that creature.
Return 1
EndIf
If !(<Src.Restest 1 iPowerCrystal>)
Src.SMsgL -1,1071945    // You need a power crystal to construct a golem.
Return 1
ELIf !(<Src.Restest 5 iGears>)
Src.SMsgL -1,1071946    // You need more gears to construct a golem.
Return 1
ElIf !(<Src.Restest 50 iBronzeIngot>)
Src.SMsgL -1,1071947    // You need more bronze ingots to construct a golem.
Return 1
ElIf !(<Src.Restest 50 iIronIngot>)
Src.SMsgL -1,1071948    // You need more iron ingots to construct a golem.
Return 1
EndIf
If (<R1,1000> > <Eval ((<Src.Tinkering> - 700) * 2)>)
Src.SMsgL -1,1071941    // You failed to make the golem.
Return 1
Else
Serv.NewNpc cGolem
New.Fame=10
New.Karma=10
New.OStr=<MulDiv {251 350},<Src.Tinkering>,1000>
New.ODex=<MulDiv {76 100},<Src.Tinkering>,1000>
New.OInt=<MulDiv {101 150},<Src.Tinkering>,1000>
New.MaxHits=<MulDiv {151 210},<Src.Tinkering>,1000>
New.Wrestling=<MulDiv {601 1000},<Src.Tinkering>,1000>
New.Tactics=<MulDiv {601 1000},<Src.Tinkering>,1000>
New.MagisResistance=<MulDiv {1501 1900},<Src.Tinkering>,1000>
New.Parrying=<MulDiv {601 1000},<Src.Tinkering>,1000>
New.ResPhysical={35 55}
New.ResFire={50 60}
New.ResCold={10 30}
New.ResPoison={99 100}
New.ResEnergy={30 40}
New.P=<Src.P>
New.MakeMyPet
Src.CurFollowers += <New.ControlSlots>
Src.Tag.GolemDelay=1
Src.TimerF 864000,GolemDelay    // 24 hours; inclusive of the deciseconds multiplier.
Src.Sound 0241
Update
EndIf

[Function GolemDelay]
Src.Tag.GolemDelay=


[ItemDef iPowerCrystal]
ID=iMagicalCrystal2
Name=power crystal
NameLoc=1112811
Type=tNormal
Weight=1

Category=Resources
Subsection=Golems
Description=Power Crystal


[ItemDef iClockworkAssembly]
ID=iWinch
Name=clockwork assembly
NameLoc=1073426
Type=tClockworkAssembly
Weight=50

Category=Resources
Subsection=Golems
Description=Clockwork Assembly

On=@Create
Color=044E


[ItemDef iLeatherWolfAssembly]
ID=iWinch
Name=leather wolf assembly
NameLoc=1113031
Type=tNormal
SkillMake=Tinkering 1000
Resources=1 iClockworkAssembly,1 iPowerCrystal,2 iVoidEssnce
Weight=50

Category=Resources
Subsection=Golems
Description=Leather Wolf Assembly

On=@Create
Color=044E


[ItemDef iClockworkScorpionAssembly]
ID=iWinch
Name=clockwork scorpion assembly
NameLoc=1113032
Type=tNormal
SkillMake=Tinkering 1000
Resources=1 iClockworkAssembly,1 iPowerCrystal,1 iVoidEssnce
Weight=50

Category=Resources
Subsection=Golems
Description=Clockwork Scorpion Assembly

On=@Create
Color=044E


[ItemDef iVollemAssembly]
ID=iWinch
Name=vollem assembly
NameLoc=1113033
Type=tNormal
SkillMake=Tinkering 1000
Resources=1 iClockworkAssembly,1 iPowerCrystal,3 iVoidEssnce
Weight=50

Category=Resources
Subsection=Golems
Description=Vollem Assembly

On=@Create
Color=044E


[EOF]
]]>