EFMods Forum Archive
[Click here to go to EFMods.com]

[Submit]Ore Shovel

EFMods Forum Archive - Old Stuff
Vanhal
is going to kill you!!!

Posts: 10496
Join Date: 01-12-2001
Posted at 7:03 pm, 22nd April 2002
//################################################################################
//## ##
//## KK KK SSSSS III ##
//## KK KK SS III ##
//## KKKK SSSSS III ##
//## KK KK SS III ##
//## KK KK SSSSS III ##
//## SCRIPTING ##
//## http://www.keepsmiling.tk ##
//## ##
//## Vanhal(TDS:Fredrick 069912) ##
//## vanhal@eircom.net ##
//## ICQ:64579156 ##
//## ##
//################################################################################
//This is a shovel that can get iron ore in large amounts, the only thing is that you have to wait
//a while after each use (its a normal shovel for that time).

[FUNCTION get_ore]
newitem=019b9,{<ARGS>}
act.bounce

[ITEMDEF i_ore_shovel]
Name=Ore Shovel
id=0f39
type=t_script

ON=@Create
color=009a4
timer=1
more=1

ON=@DCLICK
if <more>==0
TARGETG Where do you want to mine
return 1
else
src.message You fail to find large amounts of ore.
return 0
ENDIF

On=@Targon_ground
IF (<src.Mining>>100)
timer=1000
src.get_ore 100 80
Src.SYSMessage You will not be able to find any more ore for 1000 Seconds
ELIF (<src.Mining>>80)
timer=800
src.get_ore 80 50
Src.SYSMessage You will not be able to find any more ore for 800 Seconds
ELIF (<src.Mining>>60)
timer=500
src.get_ore 50 20
Src.SYSMessage You will not be able to find any more ore for 500 Seconds
ELIF (<src.Mining>>40)
timer=200
src.get_ore 20 10
Src.SYSMessage You will not be able to find any more ore for 200 Seconds
ELIF (<src.Mining>>20)
timer=100
src.get_logs 10 5
Src.SYSMessage You will not be able to find any more ore for 100 Seconds
ELSE
timer=50
src.get_logs 5 0
Src.SYSMessage You will not be able to find any more ore for 50 Seconds
ENDIF
color=009a4
more=1
return 1

on=@timer
color=009b6
more=0
return 1

[EOF]

Last edited by Vanhal on 31 Feb 2003 25:71, edited 9385 times in total